* %GOTO MMBL1; /* BILINGUAL MAPPING 01000002 MACRO 02000002 IEAMMB &DSECT=YES */ 03000002 *%MMBL1 : ; 04000002 * /*******************************************************************/ 05000002 * /* */ 06000002 * /* MACMEAN MMB MEANS MONITOR MESSAGE BLOCK */ 07000002 * /* */ 08000002 * /* MACCOMP Y-2 SC1C5/PZD81 */ 09000002 * /* */ 10000002 * /* MACSTAT Y-2 72245/TU015156 */ 11000002 * /* */ 12000002 * /* METHOD OF ACCESS */ 13000002 * /* PL/S - DCL MMBPTR PTR */ 14000002 * /* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 15000002 * /* USING ON DSECT NAME GIVES ADDRESSABILITY FOR ALL */ 16000002 * /* SYMBOLS IN THAT DSECT. */ 17000002 * /* */ 18000002 * /*******************************************************************/ 19000002 *%GOTO MMBL2; /* 20000002 SPACE 21000002 IEZBITS , - SYMBOLIC BIT DEFINITIONS 22000002 SPACE 23000002 AIF ('&DSECT' EQ 'NO').MMB0000 24000002 MMB DSECT 25000002 AGO .MMB0020 26000002 .MMB0000 ANOP 27000002 DS 0D 28000002 MMB EQU * 29000002 .MMB0020 ANOP 30000002 SPACE 31000002 MMBNAME DS CL4 BLOCK ID - MMB IN EBCDIC LEFT JUSTIFIED 32000002 MMBLINK DS AL4 POINTER TO NEXT MMB OR ZERO 33000002 MMBBKPTR DS AL4 POINTER TO PREVIOUS MMB OR ZERO 33050002 MMBTXLN DS H LENGTH OF TEXT 34000002 SPACE 35000002 MMBTYPE DS 0H MONITOR TYPE FLAGS 36000002 MMBTYPE1 DS B - FIRST BYTE OF MONITOR TYPE FLAGS 37000002 MMBJBNM EQU BIT0 - MONITOR JOBNAMES 38000002 MMBSTAT EQU BIT1 - MONITOR STATUS 39000002 MMBRSV01 EQU BIT2 - RESERVED 40000002 MMBRSV02 EQU BIT3 - RESERVED 41000002 MMBRSV03 EQU BIT4 - RESERVED 42000002 MMBSESS EQU BIT5 - MONITOR SESSIONS 43000002 MMBRSV04 EQU BIT6 - RESERVED 44000002 MMBRSV05 EQU BIT7 - RESERVED 45000002 SPACE 46000002 MMBTYPE2 DS B - SECOND BYTE OF MONITOR TYPE FLAGS 46050002 SPACE 46100002 MMBTEXT DS CL128 - MESSAGE TEXT 47000002 SPACE 48000002 MMBSIZE EQU *-MMB LENGTH OF MMB 49000002 MEND */ 50000002 *%MMBL2: ; 51000002 * 52000002 *DECLARE 53000002 * 1 MMB BASED(MMBPTR) BDY(WORD), /* START OF MMB */ 54000002 * 2 MMBNAME CHAR(4), /* BLOCK ID - MMB IN EBCDIC 55000002 * LEFT JUSTIFIED */ 56000002 * 2 MMBLINK PTR(31), /* POINTER TO NEXT MMB OR 57000002 * ZERO */ 58000002 * 2 MMBBKPTR PTR(31), /* POINTER TO PREVIOUS MMB 58050002 * OR ZERO */ 58100002 * 2 MMBTXLN FIXED(15), /* LENGTH OF MESSAGE TEXT */ 59000002 * 60000002 * 2 MMBTYPE CHAR(2), /* MONITOR TYPE FLAGS */ 61000002 * 3 MMBTYPE1 BIT(8), /* FIRST BYTE OF MONITOR 62000002 * TYPE FLAGS */ 63000002 * 4 MMBJBNM BIT(1), /* MONITOR JOBNAMES */ 64000002 * 4 MMBSTAT BIT(1), /* MONITOR STATUS */ 65000002 * 4 MMBRSV01 BIT(1), /* RESERVED */ 66000002 * 4 MMBRSV02 BIT(1), /* RESERVED */ 67000002 * 4 MMBRSV03 BIT(1), /* RESERVED */ 68000002 * 4 MMBSESS BIT(1), /* MONITOR SESSIONS */ 69000002 * 4 MMBRSV04 BIT(1), /* RESERVED */ 70000002 * 4 MMBRSV05 BIT(1), /* RESERVED */ 71000002 * 72000002 * 3 MMBTYPE2 BIT(8), /* SECOND BYTE OF MONITOR 73000002 * TYPE FLAGS */ 74000002 * 75000002 * 2 MMBTEXT CHAR(128) BDY(WORD); /* MESSAGE TEXT */ 76000002 * 77000002 *%MMBSIZE = 'LENGTH(MMB)'; /* GET SIZE OF MMB */ 78000002