/********************************************************************/ 02000002
 /*                                                                  */ 04000002
 /* MACMEAN MQE MEANS MONITOR QUEUE ELEMENT                          */ 06000002
 /*                                                                  */ 08000002
 /* MACCOMP Y-2 SC1CK/PZD81                                          */ 10000002
 /*                                                                  */ 12000002
 /* MACSTAT Y-2 73046/TU015048                                       */ 14000002
 /*                                                                  */ 16000002
 /* METHOD OF ACCESS - DECLARE MQEPTR PTR                            */ 18000002
 /*                                                                  */ 20000002
 /********************************************************************/ 22000002
                                                                        24000002
 DECLARE                                                                26000002
   1 MQE BASED(MQEPTR) BDY(WORD),      /* MONITOR QUEUE ELEMENT      */ 28000002
    2 MQENAME      CHAR(4),            /* BLOCK ID - MQE IN EBCDIC      30000002
                                          LEFT JUSTIFIED             */ 32000002
    2 MQELINK      PTR(31),            /* POINTER TO NEXT MQE OR        34000002
                                          ZERO                       */ 36000002
    2 MQEID        CHAR(2),            /* ASID OF TSO USER           */ 38000002
    2 MQETYPE      CHAR(2),            /* MONITOR TYPE FLAGS         */ 40000002
                                                                        42000002
     3 MQETYPE1    BIT(8),             /* FIRST BYTE OF MONITOR         44000002
                                          TYPE FLAGS                 */ 46000002
      4 MQEJBNM    BIT(1),             /* MONITOR JOBNAMES           */ 48000002
      4 MQESTAT    BIT(1),             /* MONITOR STATUS             */ 50000002
      4 MQERSV01   BIT(1),             /* RESERVED                   */ 52000002
      4 MQERSV02   BIT(1),             /* RESERVED                   */ 54000002
      4 MQERSV03   BIT(1),             /* RESERVED                   */ 56000002
      4 MQESESS    BIT(1),             /* MONITOR SESSIONS           */ 58000002
      4 MQERSV04   BIT(1),             /* RESERVED                   */ 60000002
      4 MQERSV05   BIT(1),             /* RESERVED                   */ 62000002
                                                                        64000002
     3 MQETYPE2    BIT(8);             /* SECOND BYTE OF MONITOR        66000002
                                          TYPE FLAGS                 */ 68000002
                                                                        70000002
 %MQESIZE = 'LENGTH(MQE)';             /* GET SIZE OF MQE            */ 72000002