*PSSR is not executed

pts.
Tags:
RPG
The exception error handler routine (*pssr) is not executed, instead the program abends when it encounters say for example record locked by other user.

Answer Wiki

Thanks. We'll let you know when a new response is added.

Since you did not include any code to examine I am just taking a guess at your problem.

The ILE reference manual states the *PSSR will only execute “If an indicator is not specified in positions 73 and 74 for the operation code, or if the operation does not have an (E) extender, or if the statement is not in a MONITOR block that can handle the error, or if an exception occurs that is not expected for the operation code (that is, an array indexing error during a SCAN operation), control is transferred to this subroutine when a program exception/error occurs.”

Make sure the operation codes you are trying to trap in a *PSSR is not tagged to ignore this routine.

Discuss This Question: 3  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • Ferddie
    here is my code FWRKHDRPF UF A E K DISK INFSR(*PSSR) WRKNBR chain WRKHDRPF if not %found(WRKHDRPF) . . . else . . . endif the *pssr routine contains all the error handling. but when the chain encounters a record locked by other user, i just simple abend, it doesnt execute the *pssr
    0 pointsBadges:
    report
  • mygoodname
    What does your *PSSR routine look like? Based on the code you sent, *PSSR should execute on its own on any file error. Are you expecting a dump and not getting it? If that's the case, make sure that your H-spec specifies "debug" or use the "dump (a)" opcode to override the debug setting.
    0 pointsBadges:
    report
  • Ferddie
    got it. thanks everyone.
    0 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following