* %GOTO PDL1; /* BILINGUAL MAPPING */ 00050003 MACRO 00100021 IECPDSCT 00200021 * %PDL1: ; 00210003 */********************************************************************/ 00220003 */* */ 00230003 */* OPEN/CLOSE/EOV PROBLEM DETERMINATION WORK AREA DSECT */ 00240003 */* */ 00250003 */* METHOD OF ACCESS */ 00260003 */* PL/S - RFY PDDSECT BASED ON A PTR. */ 00270003 */* BAL - USING ON DSECT NAME GIVES ADDRESSABILITY TO ALL FIELDS.*/ 00280003 */* */ 00290003 */* NOTES */ 00300003 */* THERE IS A CLOSE CORRESPONDENCE BETWEEN THE FIRST 4 BYTES OF */ 00310003 */* PDPARM AND THE ABEND CODE ENTRIES IN IFG0190P, ET.AL., FROM */ 00320003 */* WHICH THE DATA COMES. THE TRACE OPTION CODES ARE THE SAME */ 00330003 */* EXCEPT WHEN MULTIPLE CONTROL BLOCKS ARE TO BE TRACED. */ 00340003 */* THE RECOVERY OPTIONS ARE MOVED FROM THE LAST 4 BITS OF THE */ 00350003 */* ABEND CODE TO THE PDCODE OPTION BYTE. */ 00360003 */* THE GTF GTRACE MACRO INSTRUCTION IS ISSUED WITH EID=X'EFFF' */ 00370003 */* (CLASS=E - USR, ID=FFF - DATA MANAGEMENT). */ 00380003 */* */ 00400003 */* VS2 RELEASE 4, 05/02/75 @ZA02534*/ 00450003 */* */ 00460003 */********************************************************************/ 00470003 * 00480003 * %GOTO PDL2; 00490003 PDDSECT DSECT PROBLEM DETERMINATION WORK AREA 00500021 PDMSGLNG DS H LENGTH OF WTP MSG 00600003 PDMCSCOD DS XL2 MCS FLAGS 00700021 PDMSG DS CL76 MESSAGE TEXT, R & D CODES 00800003 ORG PDDSECT ORG FOR MULTIPLE USE OF WK AREA 00900003 PDTRCLNG DS H LENGTH OF TRACE DATA 01000003 PDTRCFID DS XL2'00FF' O/C/EOV FORMAT ID = IMDUSRFF 01100003 PDDATAAD DS A(PDTRCDAT) ADDRESS OF TRACE DATA 01200003 PDTRCDAT DS 0CL184 TRACE DATA BUFFER YM3945 01300003 PDTRCODE DS FL1 O/C/EOV CONTROL BLOCK CODE 01310003 PDTRCDA1 DS CL183 TRACED CONTROL BLOCK 01390003 * 01400021 PDPARM DS 0CL12 PD USER INTERFACE PARMETER LIST 01500003 PDABCODE DS XL2 ABEND CODE (LEFT 12 BITS) 01600003 * RIGHT 4 BITS NOT PASSED TO USER 01640003 PDARECOV EQU X'08' OK TO RECOVER 01650003 PDAIGNOR EQU X'04' OK TO IGNORE 01660003 PDADELAY EQU X'02' OK TO DELAY 01670003 PDANOEXT EQU X'01' PD USER EXIT NOT ALLOWED 01680003 PDRETCOD DS X RETURN CODE 01700003 PDCODE DS X TRACE CODE/OPTION CODE/USER OPT 01800003 * OPTIONS PASSED TO USER - 01805003 PDCUNCHG EQU X'80' USER DID NOT CHANGE CODE 01810003 * EQU X'70' 3 BITS RESERVED 01820003 PDCRECOV EQU X'08' OK TO RECOVER 01830003 PDCIGNOR EQU X'04' OK TO IGNORE 01840003 PDCDELAY EQU X'02' OK TO DELAY 01850003 * EQU X'01' RESERVED 01860003 * OPTION SELECTED BY USER - 01865003 PDUIGNOR EQU 4 IGNORE ABEND 01870003 PDUDELAY EQU 8 DELAY ABEND 01880003 PDURECOV EQU 12 RECOVER FROM ABEND 01890003 PDDCBPTR DS A ADDR OF USER DCB 01900021 PDFORCOR DS A ADDR OF O/C/EOV WORK AREA 02000021 PDUSRAR DS A ADDR OF USER DATA 02100021 * 02110003 PDERRMOD DS CL8 MODULE THAT DETECTED ERROR 02120003 PDREGSAV DS 18F SAVE AREA(CALLERS REGS) ZA01291 02130003 PDBFRLEN EQU *-PDDSECT LENGTH OF P.D. WORKAREA YM3945 02140002 MEND 02200021 * %PDL2: ; 02300003 * DCL 1 PDDSECT BASED BDY(WORD), /* PROBLEM DETERMINATION WA */ 02400003 * 2 PDTRCLNG FIXED(15), /* LENGTH OF TRACE DATA */ 02500003 * 2 PDTRCFID FIXED(16), /* O/C/EOV FORMAT ID =X'00FF'*/ 02600003 * 2 PDDATAAD PTR(31), /* ADDRESS OF TRACE DATA */ 02700003 * 2 PDTRCDAT CHAR(184), /* TRACE DATA BUFFER */ 02800003 * 3 PDTRCODE FIXED(8), /* O/C/EOV CONTROL BLOCK CODE*/ 02900003 * 3 PDTRCDA1 CHAR(183), /* TRACED CONTROL BLOCK */ 03000003 * 2 PDPARM CHAR(16) BDY(WORD), /* PD USER INTERFACE PARM LST*/ 03100003 * 3 PDABCODE FIXED(16), /* ABEND CODE (LEFT 12 BITS) */ 03200003 * 4 PDABCODU CHAR(2), /* TO UNPK ABEND CODE */ 03300003 * 5 PDABCODB BIT(12), /* 12 BIT ABEND CODE */ 03400003 * /* 4 BITS NOT PASSED TO USER-*/ 03500003 * 5 PDARECOV BIT(1), /* OK TO RECOVER */ 03600003 * 5 PDAIGNOR BIT(1), /* OK TO IGNORE */ 03700003 * 5 PDADELAY BIT(1), /* OK TO DELAY */ 03800003 * 5 PDANOEXT BIT(1), /* PD USER EXIT NOT ALLOWED */ 03900003 * 3 PDRETCOD FIXED(8), /* RETURN CODE */ 04000003 * 3 PDCODE FIXED(8), /* TRACE CODE / OPTION CODE */ 04100003 * /* / USER OPTION SELECTED */ 04200003 * /* OPTIONS PASSED TO USER - */ 04300003 * 4 PDCUNCHG BIT(1), /* USER DID NOT CHANGE CODE */ 04400003 * 4 * BIT(3), /* RESERVED */ 04500003 * 4 PDCRECOV BIT(1), /* OK TO RECOVER */ 04600003 * 4 PDCIGNOR BIT(1), /* OK TO IGNORE */ 04700003 * 4 PDCDELAY BIT(1), /* OK TO DELAY */ 04800003 * 4 * BIT(1), /* RESERVED */ 04900003 * 3 PDDCBPTR PTR(31), /* ADDR OF USER DCB */ 05000003 * 3 PDFORCOR PTR(31), /* ADDR OF O/C/EOV WORK AREA */ 05100003 * 3 PDUSRAR PTR(31), /* ADDR OF USER DATA */ 05200003 * 2 PDERRMOD CHAR(8), /* MODULE THAT DETECTED ERROR*/ 05300003 * 2 PDREGSAV(18) PTR(31), /* SAVE AREA (CALLER'S REGS) */ 05400003 * 05500003 * 1 * DEF(PDDSECT), /* ORG FOR MULTIPLE USE OF WA*/ 05600003 * 2 PDMSGLNG FIXED(15), /* LENGTH OF WTP MESSAGE */ 05700003 * 2 PDMCSCOD BIT(16), /* MCS FLAGS */ 05800003 * 2 PDMSG CHAR(76), /* MESSAGE TEXT, R & D CODES */ 05900003 * 06000003 * PDRETCDU CHAR(2) DEF(PDRETCOD), /* TO UNPK PDRETCOD */ 06100003 * /* VALUE FOR PDTRCFID - */ 06200003 * PDTFIDFF FIXED(16) CONSTANT(255), /* X'00FF' = IMDUSRFF */ 06300003 * /* PDCODE OPTION SEL BY USER-*/ 08000003 * PDUIGNOR FIXED(8) CONSTANT( 4), /* IGNORE ABEND */ 08100003 * PDUDELAY FIXED(8) CONSTANT( 8), /* DELAY ABEND */ 08200003 * PDURECOV FIXED(8) CONSTANT(12); /* RECOVER FROM ABEND */ 08300003 * 08400003