* %GOTO EPDTPLS1; /* 00050002 MACRO 00100002 IRAEPDT &DSECT=YES 00110002 GBLC &IRAEPPV PREV RMEP BLOCK ADDRESS NAME 00120002 GBLB &IRAEPCM IRARMEP COMMENTARY PRINT CONTROL 00130002 &IRAEPPV SETC '00000000' INIT TO NO PREVIOUS CHAINED RMEP 00140002 &IRAEPCM SETB 1 BYPASS IRARMEP HEADER COMMENTARY 00180002 .* */ 00190002 *%EPDTPLS1: ; 00200002 * /* */ 00250002 * /* MACCOMP Z-4 SC1CX/PKD16 */ 00300040 * /* MACSTAT Z-4 75007/Z40BPSS */ 00330040 * /* *************************************************************** */ 00400002 * /* */ 00450002 * /* MACRO NAME - IRAEPDT */ 00500002 * /* */ 00550002 * /* DESCRIPTIVE NAME - SYSTEM RESOURCES MANAGER SERIALIZED */ 00600002 * /* ACTION ENTRY POINT DESCRIPTOR TABLE. */ 00650002 * /* */ 00700002 * /* COPYRIGHT - NONE */ 00750002 * /* */ 00800002 * /* STATUS - OS/VS2 RELEASE 4, 07/30/75, LEVEL=1 */ 00850040 * /* */ 00900002 * /* FUNCTION - THE EPDT CONTAINS THE ENTRY POINT DESCRIPTORS OF */ 00950002 * /* ALL SYSTEM RESOURCES MANAGER EVENT INITIATED ACTIONS */ 01000002 * /* (ROUTINES WHICH PERFORM PROCESSING FOR A GIVEN USER) */ 01050002 * /* WHICH REQUIRE SERIALIZATION WITH OTHER SRM PROCESSING. */ 01100002 * /* THE IRACTLCL MACRO KEYS OFF THE EPDT DISPLACEMENTS TO */ 01150002 * /* GENERATE THE CALLING SEQUENCES FOR DEFERRABLE ACTIONS. */ 01200002 * /* */ 01250002 * /* METHOD OF ACCESS - THE EPDT IS ADDRESSED AS BEING AT A KNOWN */ 01300002 * /* DISPLACEMENT FROM THE SYSTEM RESOURCES MANAGER CONTROL */ 01320002 * /* TABLE, I.E., USING THE RMCTPTR REGISTER. THE IRACNSMP */ 01340002 * /* INCLUDE LIST SPECIFIES THE SYMBOLIC DISPLACMENT OF THE */ 01360002 * /* EPDT FROM THE RMCT. THE EPDT TABLE IS SCANNED VIA THE */ 01380002 * /* RMEP CHAIN POINTER IN THE -RMCTEPDT- FIELD. */ 01400002 * /* */ 01450002 * /* *************************************************************** */ 01500002 * %GOTO EPDTPLS2; /* 01550002 AGO .EPDTAL1 */ 01600002 * /* *************************************************************** */ 01650002 * /* */ 01700002 * /* INVOCATION PARAMETERS AND/OR KEYWORDS = */ 01750002 * /* */ 01800002 * /* BAL - DSECT=NO IF DSECT IS NOT TO BE PRODUCED. */ 01850002 * /* */ 01900002 * /* USING ON EPDT GIVES ADDRESSABILITY TO ALL SYMBOLS. */ 01950002 * /* */ 02000002 * /* PLS - %EPDTLEVL='USERLEVL' IF THE EPDT MAPPING IS TO BE */ 02050002 * /* CONCATENATED WITH A PREVIOUS DECLARATION, WITH THE */ 02100002 * /* EPDT BEING ASSIGNED THE INDICATED STRUCTURE LEVEL. */ 02150002 * /* - %EPDT9999=',' IF THE STRUCTURE SHOULD NOT BE CLOSED. */ 02200002 * /* */ 02250002 * /* TO ACCESS AS A STANDALONE STRUCTURE DCL EPDTPTR PTR. */ 02300002 * /* */ 02350002 * /* CHANGE ACTIVITY = */ 02400002 * /* */ 02450002 * /* A000000-999999 Y02133*/ 02500002 * /* */ 02550002 * /* *************************************************************** */ 02600002 * /* 02650002 .EPDTAL1 ANOP 02700002 SPACE 1 02750002 AIF ('&DSECT' EQ 'NO').EPDTAL2 02800002 EPDT DSECT 02850002 AGO .EPDTAL3 02900002 .EPDTAL2 ANOP 02950002 DS 0D 03000002 EPDT EQU * 03050002 .EPDTAL3 ANOP 03100002 SPACE 1 03150002 IRARMEP DSECT=NO,EPN=IPS,NXT=000,ERR=XPS,RCR=YES 03200040 IRARMEP DSECT=NO,EPN=DEL,NXT=IPS,RCR=YES 03250040 IRARMEP DSECT=NO,EPN=IL4,NXT=DEL,RCR=YES 03300040 IRARMEP DSECT=NO,EPN=UXB,NXT=HIT,RCR=YES 03350040 IRARMEP DSECT=NO,EPN=HIT,NXT=IL4,RCR=YES 03400040 IRARMEP DSECT=NO,EPN=RPS,NXT=UXB,RCR=YES 03450040 EPDTEND DS 0D - END OF EPDT TABLE 03800002 EPDTLEN EQU EPDTEND-EPDT - LENGTH OF EPDT TABLE 03850002 EPDTSCN EQU &IRAEPPV - BEGIN EPDT TABLE SCAN 03870002 MEND 03900002 * */ 03950002 *%EPDTPLS2: ; 04000002 * %IF EPDT9999 ^= ',' /* DOES STRUCTURE CONTINUE */ 04050002 * %THEN %EPDT9999 = ';'; /* NO, END DECLARE STATEMENT */ 04100002 * %IF EPDTLEVL ^= '' /* IS STRUCTURE CONCATENATED */ 04150002 * %THEN %GOTO EPDTPLS3; /* YES, OMIT DECLARE STATEMENT */ 04200002 * DCL 04250002 * 1 EPDT BASED(EPDTPTR) BDY(DWORD), 04300002 * %GOTO EPDTPLS4; /* SKIP USER-GIVEN LEVEL */ 04350002 *%EPDTPLS3: EPDTDUM = EPDTLEVL||' EPDT'; /* PICK UP GIVEN LEVEL */ 04400002 * EPDTDUM BDY(DWORD), 04450002 *%EPDTPLS4: ; 04500002 * 10 RMEPBIPS CHAR(16) BDY(DWORD), /* IPS DELETE NOTIFY RTNE */ 04550002 * 10 RMEPBDEL CHAR(16) BDY(DWORD), /* OUCB DELETE ROUTINE */ 04650002 * 10 RMEPBIL4 CHAR(16) BDY(DWORD), /* IMCB DELETE ROUTINE */ 04700002 * 10 RMEPBUXB CHAR(16) BDY(DWORD), /* OUXB DELETE ROUTINE */ 04750002 * 10 RMEPBHIT CHAR(16) BDY(DWORD), /* USER READY PROCES RTNE */ 04800002 * 10 RMEPBRPS CHAR(16) BDY(DWORD), /* USER STATE CHANGE RTNE */ 04850002 * 10 EPDTEND CHAR(0) BDY(DWORD) /* END OF EPDT TABLE */ 05150002 * EPDT9999 05200002 * %EPDTLEN = 'LENGTH(EPDT)'; /* SYMBOLIC FOR LENGTH OF EPDT */ 05250002