In a CL program, how do I monitor for a fatal RPG III error? I have an interactive RPG program that opens a file
for update. The file has been exclusively allocated by another job, causing the user to see a system-supplied error screen showing CPF4128 with options to cancel, dump, etc. I'd like to trap that error and display my own message, but MONMSG does not seem to work with a call to an RPG program.
The easiest way to accomplish this is to use an *PSSR routine in your RPGIII program to trap the CPF4128 during the open operation. You can find more information on defining and using the *PSSR routine in the online library by selecting the AS/400 Online Library - English. You will need to use the section: 2.3.2 File Exception/Error Subroutine (INFSR), which will explain the required entries to create your routine.
MORE INFORMATION ON THIS TOPIC
The Best Web Links: tips, tutorials and more.
Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.
Dig deeper on iSeries COBOL programming
Related Q&A from John Brandt
Have a question for an expert?
Please add a title for your question
Get answers from a TechTarget expert on whatever's puzzling you.