Transaction abend sample exit program: DFH$PCTA

DFH$PCTA is a sample global user exit program for the XPCTA exit point. It is designed to be invoked at the XPCTA exit to test whether the abend was caused by a storage protection exception condition.

About DFH$PCTA

The sample program tests whether the abend was caused by the application program trying to overwrite CICS-key storage in the CDSA, ECDSA, ETDSA, or GCDSA while running in user key. If this was the case, the sample changes the execution key to CICS, and retries the failing instruction.

You can use the sample program to identify, without abending, those programs that need to be defined with EXECKEY(CICS), because they intentionally modify a CICS-key DSA. For details of how to do this, see the prolog of DFH$PCTA.

Extending DFH$PCTA

DFH$PCTA can be extended for transaction isolation.