*% GOTO RMPLBSL1; /* 00050002 MACRO 00100002 IHARMPL &DSECT=YES */ 00150002 *%RMPLBSL1 : ; 00200002 * /*******************************************************************/ 00250002 * /* MACMEAN RMPL MEANS RESOURCE MANAGER PARAMETER LIST */ 00300002 * /* MACCOMP Y-1 SC1CM/PZD81 */ 00350002 * /* MACSTAT Y-1 72245/Y02702 */ 00400002 * /* METHOD OF ACCESS */ 00450002 * /* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 00500002 * /* USING ON RMPL GIVES ADDRESSABILITY TO ALL SYMBOLS. */ 00550002 * /* PLS - RMPL IS NOT BASED AND CAN BE USED AS A PARAMETER */ 00600002 * /* ON THE PROC OR ENTRY STATEMENT. AN EXAMPLE OF */ 00650002 * /* THIS USE FOLLOWS: */ 00700002 * /* MGR: PROC(RMPL); */ 00820002 * /* %INCLUDE SYSLIB(IHARMPL); */ 00842002 * /* */ 00844002 * /* - IF RMPL IS TO BE USED AS A BASED STRUCTURE, */ 00844402 * /* CODE THE MACRO ASSIGNMENT %RMPLBASE='BASED( )' */ 00844802 * /* BEFORE INVOKING IHARMPL. AN EXAMPLE OF THIS USE */ 00845202 * /* FOLLOWS: */ 00845602 * /* %RMPLBASE='BASED(RMPLPTR)'; */ 00845702 * /* %INCLUDE SYSLIB(IHARMPL); */ 00845802 * /* DCL RMPLPTR PTR(31); */ 00845902 * /* */ 00846002 * /* - NOTE THAT CALLING SEQUENCE TO RESOURCE MANAGERS */ 00850002 * /* POINTS REGISTER 1 TO A FULL WORD WHICH CONTAINS THE */ 00900002 * /* ADDRESS OF THE RMPL. */ 00950002 * /* */ 00960002 * /* - PLS MACRO VARIABLE 'RMPLWALN' MAY BE USED TO */ 00970002 * /* DETERMINE THE NUMBER OF FULLWORDS ALLOCATED FOR THE */ 00980002 * /* RESOURCE MANAGERS WORK AREA. */ 00990002 * /*******************************************************************/ 01000002 */*A-000000-999999 @Y02702*/ 01020002 *% GOTO RMPLBSL; /* 01050002 AIF ('&DSECT' EQ 'YES').RMPL001 01100002 RMPL DS 0D - 01150002 AGO .RMPL002 01200002 .RMPL001 ANOP 01250002 RMPL DSECT , RMPLPTR 01300002 .RMPL002 SPACE 2 01350002 IEZBITS 01400002 RMPLFLG1 DS B FLAGS INDICATING TYPE OF TERMINATION 01450002 RMPLTYPE EQU BIT0 ON,INDICATES ABNORMAL TERMINATION 01500002 * OFF,INDICATES NORMAL TERMINATION 01550002 RMPLTERM EQU BIT1 ON,INDICATES MEMORY TERMINATION 01600002 * OFF,INDICATES TASK TERMINATION 01650002 RMPLRBPP EQU BIT2 ON,INDICATES RB RELATED PURGE 01700002 RMPLIPUF EQU BIT3 ON,INHIBITING PAGE UNFIXES 01750002 RMPLRCOV EQU BIT4 ON, INDICATES TASK RECOVERY PORTION OF RTM2 IS 01800002 * THE CALLER 01850002 RMPLJST EQU BIT5 ON, INDICATES THAT TERMINATING TASK IS 01900002 * JOB STEP TCB 01950002 RMPLWT1M EQU BIT6 ON, INDICATES TYPE 1 MSG TABLE ENTRIES ARE 01960002 * TO BE WRITTEN 01970002 RMPLFLG2 DS B RESERVED 02000002 RMPLASID DS CL2 ASID ASSOCIATED WITH THE TERMINATING TASK OR 02050002 * MEMORY 02100002 RMPLASCB DS A ADDRESS OF ASCB ASSOCIATED WITH TERMINATING 02150002 * TASK OR MEMORY 02200002 RMPLTCBA DS A ADDRESS OF TERMINATING TCB(ZEROES IF MEMORY 02250002 * TERMINATION) 02300002 RMPLRBPA DS A ADDRESS OF TERMINATING RB 02350002 RMPLRMWA DS A ADDRESS OF RESOURCE MANAGERS WORK AREA 02400002 RMPLDCBL DS A ADDRESS OF DCB LIST USED BY DATA MGR 02450002 * TASK CLOSE ROUTINE FOR RB RELATED PURGES 02500002 RMPLWALN EQU 16 LENGTH IN FULLWORDS OF RESOURCE 02510002 * MANAGERS WORK AREA 02520002 MEND , */ 02550002 *%RMPLBSL : ; 02600002 * %IF RMPL9999^=',' %THEN 02650002 * %RMPL9999=';'; 02700002 * %IF RMPLLVL^='' %THEN 02750002 * %GOTO RMPLBSL2; 02800002 * %IF RMPLBASE='' %THEN 02810002 * %RMPLBASE=''; 02820002 *DECLARE 02850002 * 1 RMPL RMPLBASE, 02900002 * %GOTO RMPLBSL3; 02950002 *%RMPLBSL2: ; 03000002 * RMPLLVL RMPL, 03050002 *%RMPLBSL3:; 03100002 * 4 RMPLFLG1 CHAR(1), /* FLAGS INDICATING TYPE OF 03150002 * TERMINATION */ 03200002 * 8 RMPLTYPE BIT(1), /* ON,INDICATES ABNORMAL 03250002 * TERMINATION */ 03300002 * /* OFF,INDICATES NORMAL 03350002 * TERMINATION */ 03400002 * 8 RMPLTERM BIT(1), /* ON,INDICATES MEMORY 03450002 * TERMINATION 03500002 * OFF,INDICATES TASK 03550002 * TERMINATION */ 03600002 * 8 RMPLRBPP BIT(1), /* ON,INDICATES RB RELATED 03650002 * PURGE */ 03700002 * 8 RMPLIPUF BIT(1), /* ON,INHIBITING PAGE 03750002 * UNFIXES */ 03800002 * 8 RMPLRCOV BIT(1), /* ON,INDICATES THAT TASK 03850002 * RECOVERY PORTION OF RTM2 03900002 * IS THE CALLER */ 03950002 * 8 RMPLJST BIT(1), /* ON,INDICATES THAT TERM- 04000002 * INATING TASK IS A JOBSTEP */ 04050002 * 8 RMPLWT1M BIT(1), /* ON, INDICATES TYPE 1 MSG 04060002 * TABLE ENTRIES ARE TO 04070002 * BE WRITTEN */ 04080002 * 8 * BIT(1), /* RESERVED */ 04100002 * 4 RMPLFLG2 CHAR(1), /* RESERVED */ 04150002 * 4 RMPLASID CHAR(2), /* ASID ASSOCIATED WITH THE 04200002 * TERMINATING TASK OR MEMORY*/ 04250002 * 4 RMPLASCB PTR(31), /* ADDRESS OF ASCB ASSOCIATED 04300002 * WITH TERMINATING TASK OR 04350002 * MEMORY */ 04400002 * 4 RMPLTCBA PTR(31) , /* ADDRESS OF TERMINATING 04450002 * TCB (ZEROES IF MEMORY 04500002 * TERMINATION) */ 04550002 * 4 RMPLRBPA PTR(31), /* ADDRESS OF TERMINATING 04600002 * RB */ 04650002 * 4 RMPLRMWA PTR(31), /* ADDRESS OF RESOURCE 04700002 * MANAGERS WORK AREA */ 04750002 * 4 RMPLDCBL PTR(31) RMPL9999 /* ADDRESS OF DCB LIST USED 04800002 * BY DATA MGR TASK CLOSE 04850002 * FOR RB RELATED PURGES */ 04900002 * %DCL RMPLWALN FIXED; 07900002 * %RMPLWALN = 16; /* LENGTH IN FULLWORDS OF 10900002 * RESOURCE MANAGERS WORK 13900002 * AREA */ 16900002