++USERMOD(ZP60012)      /* REPORT PIC FOR S0CX OR SODX ABEND */  .
++VER(Z038) FMID(EBB1102) PRE(UZ83396,UY02947)
 /*
   PROBLEM DESCRIPTION:
     THE CONTENTS OF GPR15 IS REPORTED AS THE REASON CODE.
       IN THE ABSENCE OF A "REASON" PARAMETER OF THE ABEND MACRO
       THE VALUE STORED IN GENERAL PURPOSE REGISTER 15 IS INSPECTED
       AND IF (LOGICALLY) LESS THAN 4096 IS THEN ARBITRARILY
       REPORTED AS THE REASON CODE OF THE ABEND.  THIS IS NOT
       APPROPRIATE FOR PROGRAM CHECK ABENDS WHERE IT CAN BE MORE
       USEFUL TO REPORT THE PROGRAM INTERRUPT CODE (PIC).

       THIS USERMOD CHANGES THE TSO TMP ESTAI EXIT ROUTINE IKJEFT04
       AND THE TSO TMP ESTAE EXIT ROUTINE IKJEFT05 SO THAT THE PIC
       IS REPORTED AS THE REASON CODE IN MESSAGE IKJ56641I.  AS A
       RESULT, THE DETERMINATION OF WHETHER THE PSW POINTS TO THE
       FAILING INSTRUCTION (AS FOR PIC10, PIC11 AND PIC12) OR THE
       NEXT INSTRUCTION WILL BE EASIER TO MAKE.

   SPECIAL CONDITIONS:
     ACTION:
       A "CLPA" MUST BE PERFORMED AT IPL TIME FOR THIS SYSMOD TO
       BECOME ACTIVE.

   COMMENTS:
     PRYCROFT SIX P/L PUBLIC DOMAIN USERMOD FOR MVS 3.8 NO. 12.

     A TYPICAL USAGE SCENARIO MIGHT CONSIST OF THE FOLLOWING STEPS:
     1) A PROGRAM OR COMMAND ABENDS RESULTING IN:
           IKJ56641I PGM-NAME ENDED DUE TO ERROR+
           READY
     2) THE USER ENTERS A QUESTION MARK RESULTING IN:
           IKJ56641I SYSTEM ABEND CODE 0C4   REASON CODE 011
           READY
     3) THE USER INITIATES THE TEST COMMAND TO COMMENCE DEBUGGING
        KNOWING THAT THE CURRENT LOCATION CONTAINS THE INSTRUCTION
        CAUSING THE PROGRAM CHECK.

     THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD:
     MODULES:
       IKJEFT04
       IKJEFT05
 */.