Comments on: *PSSR is not executed

By: ferddie

ferddie — Wed, 12 Jan 2005 03:36:07 +0000

got it. thanks everyone.

By: mygoodname

mygoodname — Wed, 05 Jan 2005 07:54:52 +0000

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.

By: ferddie

ferddie — Wed, 05 Jan 2005 01:06:03 +0000

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