15050

Explanation
 The AMODE of the routine is 24, but the routine
contains C routines
that must run with AMODE(31).

System action
 CICS® abnormally
terminates the transaction with the abend code APCS.

Programmer response
 Relink-edit the routine AMODE(31).