*%IF IDAMODNM = 'C05B' %THEN 00001002 *%GOTO IDAESTXA; /*@Y021131*/ 00002002 *%IF IDAMODNM='I96C' %THEN 00003002 *%GOTO IDAESTXA; /*@Y021131*/ 00004002 *%IF IDAMODNM='CKRA1' %THEN 00005002 *%GOTO IDAESTXA; /*@Y021131*/ 00006002 * /******************************************************************/ 00300090 * /* THIS DSECT DEFINES THE WORK AREAS USED BY AM/0 CHECKPOINT */ 00600090 * /* RESTART MODULES. IT ALSO CONTAINS ALL MACRO VARIABLES, */ 00900090 * /* DECLARES AND EQUATES. */ 01200090 * /* */ 01500090 * /* */ 01550002 * /* MACCOMP Y-2 SC1DE/SJD61 */ 01600002 * /* MACSTAT Y-2 73192/Y02113 @Y021131*/ 01650002 * /* */ 01700002 * /******************************************************************/ 01800090 * /* */ 02100090 * /* FOLLOWING ARE THE REGISTER DECLARES */ 02400090 * /* */ 02700090 * /******************************************************************/ 03000090 DCL PARAMREG PTR(31) REG(1); /* CHKPT/REST W.A. PTR */ 03300090 DCL RUAL PTR(31) REG(2); /* USER ACB LIST PTR */ 03600090 DCL RLRCNT PTR(31) REG(2); /* RECORDS ERASED COUNT*/ 03900090 DCL RTIOTPTR PTR(31) REG(2); /* TIOT DD NAME POINTER*/ 04200090 DCL RACBCNT PTR(31) REG(3); /* COUNT OF OPEN ACBS */ 04500090 DCL REODRET PTR(31) REG(3); /* PTR EOD RETURN ADDR */ 04800090 DCL RWORK1 PTR(31) REG(3); /* WORK REGISTER ONE */ 05100090 DCL RSAVE PTR(31) REG(4); /* SAVE AOS REST WA PT */ 05400090 DCL RARWA PTR(31) REG(4); /* PTR AM/0 RESTART WA */ 05700090 DCL RWORK2 PTR(31) REG(5); /* WORK REGISTER TWO */ 06000090 DCL RACBCUR PTR(31) REG(5); /* INDEX TO CURRENT ACB*/ 06300090 DCL RAMBCUR PTR(31) REG(6); /* INDEX TO CURRENT AMB*/ 06600090 DCL RWORK3 PTR(31) REG(6); /* WORK REGISTER THREE */ 06900090 DCL RPASSCNT PTR(31) REG(7); /* BUILD UAL WORK REG. */ 07200090 DCL RWORK4 PTR(31) REG(7); /* WORK REGISTER FOUR */ 07500090 DCL RPTWAMBS PTR(31) REG(7); /* POINTER WORK AMBS */ 07800090 DCL RPTUAMBS PTR(31) REG(8); /* POINTER USER AMBS */ 08100090 DCL RUALEP PTR(31) REG(8); /* PTR UAL ENTRY */ 08400090 DCL RWORK5 PTR(31) REG(8); /* WORK REGISTER FIVE */ 08700090 DCL RWKREG PTR(31) REG(9); /* WORK REGISTER NINE */ 09000090 DCL RCREG PTR(31) REG(15); 09300090 * /* */ 09600090 * /******************************************************************/ 09900090 * /* MACRO VARIABLES */ 10200090 * /******************************************************************/ 10500090 %DCL (EIGHT,HIBITON,CKVALNOC,ONE,FOUR,CATERROR,SEVEN) CHAR; 11400002 %DCL (CKPTER03,CKPTER40,CKPTER41,WAEOFSET,NOCORAM0,ZERO1) CHAR; 11700002 %ZERO1 = '''00''X'; 12300090 %CKPTER03 = '3'; /* NO CORE AVAILABLE EC*/ 13200090 %CKPTER40 = '40'; /* VALIDITY CHECK E.C. */ 13500090 %CKPTER41 = '41'; /* CONFLICTING PARM. */ 13800090 DCL ZERO CONSTANT(0); /* INITIALIZE CONSTANT */ 15000002 %ONE = '1'; /* INITIALIZE CONSTANT */ 15300090 %FOUR = '4'; /* INITIALIZE CONSTANT */ 15600090 %SEVEN = '7'; /* INITIALIZE CONSTANT */ 15900090 %EIGHT = '8'; /* INITIALIZE CONSTANT */ 16200090 %EIGHTY = '80'; /* LENGTH WORK ACB+EXT.*/ 16500090 %NOCORAM0 = '55'; /* NO CORE AVAILABLE EC*/ 16800090 %HIBITON = '''80''X'; /* TURN HI ORDER BIT ON*/ 17100090 %CKVALNOC = '''01''X'; /* VALIDITY/NOCORE MSG */ 17400090 %ON ='''1''B'; /* BIT EQUAL ONE TEST */ 19800090 %OFF ='''0''B'; /* BIT EQUAL ZERO TEST */ 20100090 %WAEOFSET = '76'; /* OFFSET TO WACB EXT. */ 21900090 * /******************************************************************/ 22200090 * /* INCLUDES AND CONTROL BLOCK DEFINITIONS */ 22500090 * /******************************************************************/ 22800090 * /* */ 23400090 * /* THIS DSECT MAPS THE DEB USED BY AM/0 CHECKPOINT / RESTART */ 23700090 * /* */ 24000090 * %GOTO DEBPLS; 24300090 MACRO 24600090 DEBDSECT DSECT DATA EXTENT BLOCK 24900090 * 25200090 DEBNMSUB DS 0CL1 NO. OF SUB RTNS 25500090 DEBTCBAD DS A TASK CONTROL BLOCK ADDR 25800090 DEBAMLNG DS 0CL1 LENGTH OF ACCESS METHOD SEC 26100090 DEBDEBPT DS 0F SAME AS DEBDEBAD 26400090 DEBDEBAD DS A ADDR OF NEXT DEB IN DEB CHAIN 26700090 DEBOFLGS DS 0CL1 DEB OPEN FLAGS 27000090 DEBIRBAD DS A ADDR OF THE IRB CONTROL BLOCK 27300090 DEBOPATB DS 0CL1 OPEN ATRIBUTES 27600090 DEBSYSPG DS A SYSTEM PURGE FIELD 27900090 DEBNMEXT DS 0CL1 NUMBER OF EXTENTS IN DEB 28200090 DEBUSRPG DS A USER PURGE FIELD 28500090 DEBPRIOR DS 0CL1 INFO BYTE 28800090 DEBECBAD DS A EVENT CONTROL BLOCK ADDR 29100090 DEBPROTG DS 0CL1 INFO BYTE 29400090 DEBDEBID DS 0CL1 INFO BYTE 29700090 DEBDCBAD DS A ADDR OF DCB 30000090 DEBEXSCL DS 0CL1 SCALING FACTOR OF DEB EXTENT 30300090 DEBAPPAD DS A APPENDAGE TABLE ADDR 30600090 DEBDVMOD DS 0CL1 DEVICE MODIFIER BYTE 30900090 DEBUCBAD DS A UNIT CTL BLOCK ADDR 31200090 DEBTVLSQ DS H VOLUME SEQUENCE FOR TAPE 31500090 DEBBINUM DS H BIN NUMBER 31800090 DEBTVLNM DS H NO OF VOLUME FOR TAPE 32100090 DEBSTRCC DS H START CYLINDER NUMBER 32400090 DEBSTRHH DS H START HEAD NUMBER 32700090 DEBENDCC DS H END CYLINDER NUMBER 33000090 DEBENDHH DS H END HEAD NUMBER 33300090 DEBNMTRK DS H NUMBER OF TRACKS 33600090 * * 33900090 * FOR ADDITIONAL EXTENTS ONN DIRECT ACCESS THE FOWOLLING FIELDS 34200090 * WILL HAVE TO BE OFFSET ANOTHER 16 BYTES 34500090 * * 34800090 DEBVOLSQ DS H VOL SEQUENCE NUMBER 35100090 DEBVOLNM DS H VOLUME NUMBER 35400090 * * 35700090 * FOR EACH SUBROUTINE LOADED BUMP THIS OFFSET BY 2 36000090 * * 36300090 DEBSUBID DS H SUBROUTINE ID ( 2 BYTES ) 36600090 * */ 36900090 * /* */ 37200090 * */ 37500090 *%DEBPLS: ; 37800090 *DECLARE 38100090 * 1 DEBDSECT BASED, 38400090 * 2 DEBTCBAD PTR(31), /* TASK CONTROL BLOCK ADDR */ 38700090 * 3 DEBNMSUB CHAR(1), /* NO. OF SUB RTNS */ 39000090 * 2 DEBDEBPT PTR(31), /* PTR TO NEXT DEB IN DEB 39300090 * CHAIN */ 39600090 * 3 DEBAMLNG CHAR(1), /* LENGTH OF ACCESS METHOD 39900090 * SEC */ 40200090 * 3 DEBDEBAD PTR(24), /* SAME AS DEBDEBPT */ 40500090 * 2 DEBIRBAD PTR(31), /* ADDR OF THE IRB CONTROL 40800090 * BLOCK */ 41100090 * 3 DEBOFLGS CHAR(1), /* DEB OPEN FLAGS */ 41400090 * 2 DEBSYSPG PTR(31), /* SYSTEM PURGE FIELD */ 41700090 * 3 DEBOPATB CHAR(1), /* OPEN ATRIBUTES */ 42000090 * 2 DEBUSRPG PTR(31), /* USER PURGE FIELD */ 42300090 * 3 DEBNMEXT CHAR(1), /* NUMBER OF EXTENTS IN DEB */ 42600090 * 2 DEBECBAD PTR(31), /* EVENT CONTROL BLOCK ADDR */ 42900090 * 3 DEBPRIOR CHAR(1), /* INFO BYTE */ 43200090 * 2 DEBDCBAD PTR(31), /* ADDR OF DCB */ 43500090 * 3 DEBPROTG CHAR(1), /* INFO BYTE */ 43800090 * 4 DEBDEBID CHAR(1), /* INFO BYTE */ 44100090 * 2 DEBAPPAD PTR(31), /* APPENDAGE TABLE ADDR */ 44400090 * 3 DEBEXSCL CHAR(1), /* SCALING FACTOR OF DEB 44700090 * EXTENT */ 45000090 * 2 DEBUCBAD PTR(31), /* UNIT CTL BLOCK ADDR */ 45300090 * 3 DEBDVMOD CHAR(1), /* DEVICE MODIFIER BYTE */ 45600090 * 2 DEBTVLSQ FIXED(15), /* VOL SEQ FOR TAPE */ 45900090 * 2 DEBBINUM FIXED(15), /* BIN NUMBER */ 46200090 * 2 DEBTVLNM FIXED(15), /* NO OF VOL FOR TAPE */ 46500090 * 2 DEBSTRCC FIXED(15), /* START CYLINDER NUMBER */ 46800090 * 2 DEBSTRHH FIXED(15), /* START HEAD NUMBER */ 47100090 * 2 DEBENDCC FIXED(15), /* END CYLINDER NUMBER */ 47400090 * 2 DEBENDHH FIXED(15), /* END HEAD NUMBER */ 47700090 * 2 DEBNMTRK FIXED(15), /* NUMBER OF TRACKS */ 48000090 * /* */ 48300090 * /* FOR ADDITIONAL EXTENT ON DIRECT ACCESS THE FOLLOWING */ 48600090 * /* FIELDS WILL HAVE TO BE OFFSET ANOTHER 16 BYTES */ 48900090 * /* */ 49200090 * 2 DEBVOLSQ FIXED(15), /* VOLUME SEQUENCE NUMBER */ 49500090 * 2 DEBVOLNM FIXED(15), /* VOLUME NUMBER */ 49800090 * /* */ 50100090 * /* FOR EACH SUBROUTINE LOADED BUMP THIS OFFSET BY 2 */ 50400090 * /* */ 50700090 * 2 DEBSUBID FIXED(15); /* SUBROUTINE ID ( 2 BYTES )*/ 51000090 * /* END OF DEB */ 51300090 * /* */ 51900090 * /* THIS DSECT MAPS THE TCB USED BY AM/0 CHECKPOINT RESTART */ 52200090 * /* */ 52500090 * %GOTO TCBPLS; 52800090 MACRO 53100090 TCBDSECT DSECT TASK CONTROL BLOCK 53400090 * 53700090 TCBRBP DS A POINTER TO EXECUTING RB 54000090 TCBPIE DS A POINTER TO PROG. INTERRUPT EL. 54300090 TCBDEB DS A POINTER TO DEB QUEUE 54600090 TCBTIO DS A POINTER TO TIOT 54900090 TCBCMP DS F TASK COMPLETION CODE 55200090 TCBTRN DS A TESTRAN FIELD 55500090 TCBMSS DS A DATA BLOCK QUEUE ELEMENT POINTER 55800090 TCBPRTK DS BL1 PROTECTION TAG 56100090 TCBFLGS DS BL5 FLAG BYTES 56400090 TCBLMP DS BL1 LIMIT PRIORITY 56700090 TCBDSP DS BL1 DISPATCHING PRIORITY 57000090 TCBLLS DS A POINTER TO LOAD LIST 57300090 TCBJLB DS A POINTER TO JOBLIB DCB 57600090 TCBJSE DS A LIST OF INACTIVE PROGRAMS ADDR. 57900090 TCBGRS DS 16F GENERAL REGISTER SAVE AREA 58200090 TCBIDF DS 0BL1 TCB IDENTIFIER FIELD 58500090 TCBFSA DS A POINTER TO 1ST PROB.PROG.SAVEAR 58800090 TCBTCB DS A NEXT TCB ON READY QUEUE POINTER 59100090 TCBTME DS A POINTER TO TIMER ELEMENT 59400090 MEND 59700090 *%TCBPLS: ; 60000090 *DECLARE 60300090 * 1 TCBDSECT BASED, 60600090 * 2 TCBRBP PTR(31), /* POINTER TO EXECUTING RB */ 60900090 * 2 TCBPIE PTR(31), /* POINTER TO PROG. 61200090 * INTERRUPT EL. */ 61500090 * 2 TCBDEB PTR(31), /* POINTER TO DEB QUEUE */ 61800090 * 2 TCBTIO PTR(31), /* POINTER TO TIOT */ 62100090 * 2 TCBCMP FIXED(31), /* TASK COMPLETION CODE */ 62400090 * 2 TCBTRN PTR(31), /* TESTRAN FIELD */ 62700090 * 2 TCBMSS PTR(31), /* DATA BLOCK QUEUE ELEMENT 63000090 * POINTER */ 63300090 * 2 TCBPRTK CHAR(1), /* PROTECTION TAG */ 63600090 * 2 TCBFLGS CHAR(5), /* FLAG BYTES */ 63900090 * 2 TCBLMP CHAR(1), /* LIMIT PRIORITY */ 64200090 * 2 TCBDSP CHAR(1), /* DISPATCHING PRIORITY */ 64500090 * 2 TCBLLS PTR(31), /* POINTER TO LOAD LIST */ 64800090 * 2 TCBJLB PTR(31), /* POINTER TO JOBLIB DCB */ 65100090 * 2 TCBJSE PTR(31), /* LIST OF INACTIVE 65400090 * PROGRAMS ADDR. */ 65700090 * 2 TCBGRS (16) FIXED(31), /* GENERAL REGISTER SAVE 66000090 * AREA */ 66300090 * 2 TCBFSA PTR(31), /* POINTER TO 1ST 66600090 * PROB.PROG.SAVEAR */ 66900090 * 3 TCBIDF CHAR(1), /* TCB IDENTIFIER FIELD */ 67200090 * 2 TCBTCB PTR(31), /* NEXT TCB ON READY QUEUE 67500090 * POINTER */ 67800090 * 2 TCBTME PTR(31); /* POINTER TO TIMER ELEMENT */ 68100090 * /* END OF TCB */ 68400090 * %IF IGCUWALX^='YES' %THEN %GOTO UWALX01; /*@Y021131*/ 68701002 * /* UWAL (USER/WORK ACB LIST) @Y021131*/ 68702002 * DCL 68703002 * 1 IGCUWAL BASED, /* START OF LIST @Y021131*/ 68704002 * 2 IGCUAL PTR(31), /* A(USER ACB) @Y021131*/ 68705002 * 3 UALFLAG BIT(8), /* FLAG BYTE @Y021131*/ 68706002 * 3 UALACBAD PTR(24), /* A(USER ACB) @Y021131*/ 68707002 * 2 IGCWAL PTR(31), /* A(WORK ACB) @Y021131*/ 68708002 * 3 WALFLAG BIT(8), /* FLAG BYTE @Y021131*/ 68709002 * 3 WALACBAD PTR(24), /* A(USER ACB) @Y021131*/ 68710002 * 2 IGCAMBL PTR(31); /* A(USER AMBL) @Y021131*/ 68711002 * %GOTO UWALX02; /*@Y021131*/ 68712002 * %UWALX01:; /*@Y021131*/ 68713002 * /* UAL (USER ACB LIST) DECLARATION */ 69000090 * /* DESCRIBES LIST OF POINTERS TO USER ACB'S */ 69300090 * /* CREATED BY AM/0 CHECKPOINT/RESTART */ 69600090 * DCL 1 IGCUAL BASED, /* UAL */ 69900090 * 2 UALFLAG BIT(8), /* UAL FLAG BYTE */ 70200090 3 UALDODSS BIT(1), /* DO DSS CHECKS */ 70500090 3 UALDOBKO BIT(1), /* DO DATA SET BACKOFF */ 70800090 3 UALDOKEY BIT(1), /* DO KEYED PROCESSING */ 71100090 3 UALDOSTU BIT(1), /* DO STATISTICS UPDATE*/ 71400090 3 * BIT(4), /* RESERVED */ 71700090 * 2 UALACBAD PTR(24); /* POINTER TO USER ACB */ 72000090 *%GOTO UAL1; 72300090 MACRO 72600090 IGCUAL 72900090 IGCUAL DSECT 73200090 UALFLAG DS BL1 UAL FLAG BYTE 73500090 UALACBAD DS AL3 POINTER TO USER ACB 73800090 MEND 74100090 *%UAL1: ; 74400090 * /* END OF UAL */ 74700090 * %UWALX02:; /*@Y021131*/ 74701002 * /* WAE (WORK ACB EXTENSION) DECLARATION */ 75300090 * /* DESCRIBES ACB PROCESSING FLAGS */ 75600090 * /* CREATED BY RESTART */ 75900090 * DCL 1 IGCWAE BASED, /* WAE */ 76200090 * 2 WAEFLAGS BIT(8), /* WAE FLAG BYTE */ 76500090 * 3 WAEDODSS BIT(1), /* DO DSS CHECKS */ 76800090 3 WAEREPOS BIT(1), /* DO DATA REPOSITION */ 77100090 * 3 WAEDOKEY BIT(1), /* DO KEYED PROCESSING */ 77400090 * 3 WAEDOSTU BIT(1), /* DO STATISTICS UPDATE*/ 77700090 * 3 * BIT(4), /* RESERVED */ 78000090 2 WAEXLIST PTR(24); /* PTR ARWA EXIT LIST */ 78300090 *%GOTO WAE1; 78600090 MACRO 78900090 IGCWAE 79200090 IGCWAE DSECT 79500090 WAEFLAGS DS BL1 WAE PROCESSING FLAGS 79800090 WAEDODSS EQU X'80' DO DSS CHECKS 80100090 WAEREPOS EQU X'40' DO DATA REPOSITION 80400090 WAEDOKEY EQU X'20' DO KEYED PROCESSING 80700090 WAEDOSTU EQU X'10' DO STATISTICS UPDATE 81000090 DS AL3 RESERVED 81300090 MEND 81600090 *%WAE1: ; 81900090 * /* END OF WAE */ 82200090 * %IF IGCUWALX='YES' %THEN %GOTO UWALX03; /*@Y021131*/ 82201002 * /* WAL (WORK ACB LIST) DECLARATION */ 82800090 * /* DESCRIBES LIST OF POINTERS TO WORK ACB'S */ 83100090 * /* CREATED BY CHECKPOINT/RESTART */ 83400090 * DCL 1 IGCWAL BASED, /* WAL */ 83700090 * 2 WALFLAG BIT(8), /* WAL FLAG BYTE */ 84000090 3 WALDODSS BIT(1), /* DO DSS CHECKS */ 84300090 3 WALDOBKO BIT(1), /* DO DATA SET BACKOFF */ 84600090 3 WALDOKEY BIT(1), /* DO KEYED PROCESSING */ 84900090 3 WALDOSTU BIT(1), /* DO STATISTICS UPDATE*/ 85200090 3 * BIT(4), /* RESERVED */ 85500090 * 2 WALACBAD PTR(24); /* POINTER TO WORK ACB */ 85800090 * %UWALX03:; /*@Y021131*/ 85801002 *%GOTO WAL1; 86100090 MACRO 86400090 IGCWAL 86700090 IGCWAL DSECT 87000090 WALFLAG DS BL1 WAL FLAG BYTE 87300090 WALACBAD DS AL3 POINTER TO WORK ACB 87600090 MEND 87900090 *%WAL1: ; 88200090 * /* END OF WAL */ 88500090 %INCLUDE SYSLIB(IDAAMB); 89100090 %INCLUDE SYSLIB(IDAAMBL); 89700090 %INCLUDE SYSLIB(IDAAMDSB); 90300090 %INCLUDE SYSLIB(IFGACB); 93900090 %INCLUDE SYSLIB(IFGRPL); 94500090 %IDAESTXA:; /*@Y021131*/ 94501002 /* PARAMETER LIST FOR ESTAE ROUTINES @Y021131*/ 94502002 %IF IDAMODNM='C05B' %THEN 94503002 %GOTO IDAESTX0; /*@Y021131*/94504002 %IF IDAMODNM='I96C' %THEN 94504202 %GOTO IDAESTX0; /*@Y021131*/94504402 DCL 1 ESTAELST BASED, 94505002 %GOTO IDAESTX1; /*@Y021131*/ 94506002 %IDAESTX0:; /*@Y021131*/ 94506202 DCL 1 ESTAELST, 94507002 %IDAESTX1:; /*@Y021131*/ 94508002 2 ESTMODUL CHAR(4), /* MODULE NAME @Y021131*/ 94509002 2 ESTCKWA PTR(31), /* A(CHECKPOINT WORK AREA) */ 94510002 %IF IDAMODNM='I96C' % THEN 94511002 %GOTO IDAESTX2; /*@Y021131*/ 94512002 %IF IDAMODNM='C05B' % THEN 94512202 %GOTO IDAESTX2; /*@Y021131*/ 94512402 %IF IDAMODNM='CKRA1' % THEN 94512602 %GOTO IDAESTX2; /*@Y021131*/ 94512802 3 ESTRSWA PTR(31); /* A(RESTART WORK AREA) */ 94513002 %GOTO IDAESTX9; /*@Y021131*/ 94514002 %IDAESTX2:; /*@Y021131*/ 94515002 3 ESTRSWA PTR(31), /* A(RESTART WORK AREA) */ 94516002 2 ESTSSCR PTR(31), /* CURRENT SSCR @Y021131*/ 94517002 2 ESTAMB PTR(31), /* CURRENT AMB @Y021131*/ 94518002 2 ESTIOMB PTR(31), /* CURRENT IOMB @Y021131*/ 94519002 2 ESTRDATA PTR(31), /* SAVE AREA FOR DATA REGISTER*/ 94519102 2 ESTRBASE PTR(31), /* SAVE AREA FOR BASE REGISTER */ 94519402 2 ESTR14 PTR(31), /* SAVE AREA FOR REG 14 */ 94519602 %IF IDAMODNM ^= 'I96C' %THEN %GOTO IDAESTX3; /*@Y021131*/ 94519702 2 EST#SSCR FIXED(31); /* NUMBER OF SSCRS CREATED */ 94520002 %GOTO IDAESTX9; /*@Y021131*/ 94520102 %IDAESTX3:; /*@Y021131*/ 94520402 2 EST#SSCR FIXED(31), /* NUMBER OF SSCRS CREATED */ 94520702 3 ESTBLNAM CHAR(4), /* NAME OF LAST CONTROL BLOCK */94521002 2 ESTASCB PTR(31), /* ADDRESS OF THE ASCB 94521202 USED TO LOACATE THE VGTT 94521402 STRING @Y021131*/ 94521602 2 ESTGMLST PTR(31), /* LAST AREA ACQUIRED IN SP245*/94522002 2 ESTGMLEN FIXED(31), /* LENGTH OF AREA ACQUIRED */ 94522202 2 ESTVGTT PTR(31); /* ADDRESS OF LAST VGTT ACQUIRED94524002 @Y021131*/ 94525002 %IDAESTX9:; /*@Y021131*/ 94526002 /* ERROR CODES @Y021131*/ 94527002 DCL ESTAEBAD CONSTANT(240); /* ESTAE FAILED TO BE INVOKED */94528002 DCL PGMCHKXX CONSTANT(241); /* PROGRAM CHECK OCCURRED */ 94529002 DCL MCHCHKXX CONSTANT(242); /* MACHINE CHECK OCCURRED */ 94530002 DCL BADSSCR CONSTANT(243); /* SSCR FORMAT INVALID */ 94531002 DCL BADGETM CONSTANT(195); /* GETMAIN FAILED @Y021131*/ 94532002