* %GOTO MPLL1; /* BILINGUAL MAPPING 00900002 MACRO 01800002 IEZMPL &DSECT=YES */ 02700002 *%MPLL1: ; 03600002 * /*******************************************************************/ 03650002 * /* */ 03700002 * /* MACMEAN MPL MEANS MONITOR PARAMETER LIST */ 03750002 * /* */ 03800002 * /* MACCOMP Y-2 SC1C5/PZD81 */ 03850002 * /* */ 03900002 * /* MACSTAT Y-2 72245/TU015156 */ 03950002 * /* */ 04000002 * /* METHOD OF ACCESS */ 04050002 * /* PL/S - DCL MPLPTR PTR */ 04100002 * /* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 04150002 * /* USING ON DSECT NAME GIVES ADDRESSABILITY FOR ALL */ 04200002 * /* SYMBOLS IN THAT DSECT. */ 04250002 * /* */ 04300002 * /* USAGE */ 04310002 * /* PL/S - A STRUCTURE LEVEL NUMBER MAY BE SPECIFIED BY SETTING */ 04320002 * /* THE COMPILE-TIME VARIABLE %MPLLEVEL. IN THAT CASE, */ 04330002 * /* NO DECLARE STATEMENT IS PRODUCED. THE STRUCTURE */ 04340002 * /* LEVEL NUMBER MUST BE LESS THAT 10. THE DECLARE */ 04342002 * /* STATEMENT MAY BE LEFT OPENED BY SETTING */ 04344002 * /* %MPL9999=','. OTHERWISE, IT IS CLOSED. */ 04346002 * /* */ 04348002 * /*******************************************************************/ 04350002 *%GOTO MPLL2; /* 17100002 SPACE 18000002 IEZBITS , - SYMBOLIC BIT DEFINITIONS 18900002 SPACE 19800002 AIF ('&DSECT' EQ 'NO').MPL0000 20700002 MPL DSECT 21600002 AGO .MPL0020 22500002 .MPL0000 ANOP 23400002 DS 0D 24300002 MPL EQU * 25200002 .MPL0020 ANOP 26100002 SPACE 27000002 MPLPROC DS 0H PROCESSING FLAGS 27900002 MPLPROC1 DS B FIRST BYTE OF PROCESSING FLAGS 28800002 MPLCONS EQU BIT0 MPLID IS A CONSOLE ID 29700002 MPLTERM EQU BIT1 MPLID IS AN ASID FOR A TSO USER 30600002 MPLSTRT EQU BIT2 START MONITOR 31500002 MPLSTOP EQU BIT3 STOP MONITOR 32400002 MPLRSV01 EQU BIT4,,C'X' - RESERVED 33300002 MPLRSV02 EQU BIT5,,C'X' - RESERVED 34200002 MPLRSV03 EQU BIT6,,C'X' - RESERVED 35100002 MPLRSV04 EQU BIT7,,C'X' - RESERVED 36000002 SPACE 36900002 MPLPROC2 DS B SECOND BYTE OF PROCESSING FLAGS 37800002 SPACE 38700002 MPLID DS CL2 CONSOLE ID OR ASID 39600002 SPACE 40500002 MPLTYPE DS 0H - MONITOR TYPE FLAGS 41400002 MPLTYPE1 DS B - FIRST BYTE OF MONITOR TYPE FLAGS 42300002 MPLJBNM EQU BIT0 - MONITOR JOBNAMES 43200002 MPLSTAT EQU BIT1 - MONITOR STATUS 44100002 MPLRSV05 EQU BIT2,,C'X' - RESERVED 45000002 MPLRSV06 EQU BIT3,,C'X' - RESERVED 45900002 MPLRSV07 EQU BIT4,,C'X' - RESERVED 46800002 MPLSESS EQU BIT5 - MONITOR SESSIONS 47700002 MPLRSV08 EQU BIT6,,C'X' - RESERVED 48600002 MPLRSV09 EQU BIT7,,C'X' - RESERVED 49500002 SPACE 50400002 MPLTYPE2 DS B SECOND BYTE OF MONITOR TYPE FLAGS 51300002 SPACE 52200002 MPLALL EQU MPLJBNM+MPLSTAT+MPLSESS ALL MONITOR FUNCTIONS 53100002 SPACE 54000002 MPLRSV10 DS CL2 RESERVED 54900002 SPACE 55800002 MPLSIZE EQU *-MPL - LENGTH OF MPL 56700002 MEND , - */ 57600002 *%MPLL2: ; /* PL/S COMPILE-TIME TARGET */ 58500002 * % IF MPL9999^=',' /* IF THIS IS THE LAST BLOCK*/ 58550002 * % THEN %MPL9999=';'; /* THEN CLOSE DECLARE 58600002 * STATEMENT */ 58650002 * % IF MPLLEVEL^='' /* IF THIS IS A CONCATENATED 58700002 * BLOCK */ 58750002 * % THEN %GOTO MPLL3; /* THEN SKIP DECLARE 58800002 * STATEMENT */ 58850002 * 59400002 *DECLARE 60300002 * 1 MPL BASED(MPLPTR) /* DECLARE MPL LEVEL ONE */ 61200002 * % GOTO MPLL4; /* SKIP LEVEL N DECLARE */ 61250002 *%MPLL3: MPLDUM=MPLLEVEL||' MPL'; /* SET LEVEL FOR MINOR 61300002 * STRUCTURE */ 61350002 * MPLDUM /* MINOR STRUCTURE NAME */ 61400002 *%MPLL4:; 61450002 * BDY(WORD), 61500002 * 10 MPLPROC CHAR(2) BDY(WORD), /* PROCESSING FLAGS */ 62100002 * 15 MPLPROC1 BIT(8), /* FIRST BYTE OF PROCESSING 63000002 * FLAGS */ 63900002 * 20 MPLCONS BIT(1), /* MPLID IS A CONSOLE ID */ 64800002 * 20 MPLTERM BIT(1), /* MPLID IS AN ASID FOR A 65700002 * TSO USER */ 66600002 * 20 MPLSTRT BIT(1), /* START MONITOR */ 67500002 * 20 MPLSTOP BIT(1), /* STOP MONITOR */ 68400002 * 20 MPLRSV01 BIT(1), /* RESERVED */ 69300002 * 20 MPLRSV02 BIT(1), /* RESERVED */ 70200002 * 20 MPLRSV03 BIT(1), /* RESERVED */ 71100002 * 20 MPLRSV04 BIT(1), /* RESERVED */ 72000002 * 72900002 * 15 MPLPROC2 BIT(8), /* SECOND BYTE OF PROCESSING 73800002 * FLAGS */ 74700002 * 75600002 * 10 MPLID CHAR(2), /* CONSOLE ID OR ASID */ 76500002 * 77400002 * 10 MPLTYPE CHAR(2) BDY(WORD), /* MONITOR TYPE FLAGS */ 78300002 * 15 MPLTYPE1 BIT(8), /* FIRST BYTE OF MONITOR 79200002 * TYPE FLAGS */ 80100002 * 20 MPLJBNM BIT(1), /* MONITOR JOBNAMES */ 81000002 * 20 MPLSTAT BIT(1), /* MONITOR STATUS */ 81900002 * 20 MPLRSV05 BIT(1), /* RESERVED */ 82800002 * 20 MPLRSV06 BIT(1), /* RESERVED */ 83700002 * 20 MPLRSV07 BIT(1), /* RESERVED */ 84600002 * 20 MPLSESS BIT(1), /* MONITOR SESSIONS */ 85500002 * 20 MPLRSV08 BIT(1), /* RESERVED */ 86400002 * 20 MPLRSV09 BIT(1), /* RESERVED */ 87300002 * 88200002 * 15 MPLTYPE2 BIT(8), /* RESERVED */ 89100002 * 90000002 * 10 MPLRSV10 CHAR(2) MPL9999 /* RESERVED */ 90900002 * 91800002 *%MPLALL = '''11000100''B'; /* BIT MASK FOR ALL MONITOR 92700002 * FUNCTIONS */ 93600002 * 94500002 *%MPLSIZE = 'LENGTH(MPL)'; /* GET SIZE OF MPL */ 95400002