*COMDECK,QAB$COM
# 
      QUEUE ACTION BLOCK
            USE - CONTAINS QUEUE ACTION REQUEST BUFFER (QAC BLOCK) AND
                  ONE WORD HEADER INFORMATION FOR CHAINING AND ACN
           SIZE - 10 WORDS
                                                                       #
  
      BASED ARRAY QAB [0:0] S(QAB$SIZE);
         ITEM 
            QAB$LASTREQ      B (0,0,1),    #LAST REQUEST FOR THIS ACN  #
            QAB$CANCEL       B (0,1,1),    # CANCEL FLAG               #
            QAB$EXTFLAG      B (0,2,1),    # EXTENDED ACTION FLAG      #
            QAB$DISQ         I (0,3,4),    # DISPLAY QUEUE TYPE ORDINAL#
            QAB$ACN          I (0,24,12),  #ACN OF CONTROLLING CONSOLE #
            QAB$ORD          U (0,36,12),  # ORDINAL OF THIS QAB BUFFER#
            QAB$NEXT         U (0,48,12),  # POINTER TO NEXT QAB       #
            QAC$BUFFER       I (1,0,60),   #BEGINNING OF QAC BUFFER    #
            QAC$FILENAME     C (1,0,7),    #FILE/JOB NAME              #
            QAC$ZEROLFN      U (1,0,42),
            QAC$FIELD1       C (1,0,4),    #    FIRST 4 CHARACTERS     #
            QAC$FIELD2       U (1,24,18),  #    THREE TRAILING ZEROS   #
            QAC$ERROR S:QACERROR (1,42,8), # ERROR FIELD               #
            QAC$FUNCTION     U (1,50,9),   # FUNCTION                  #
            QAC$DONE         B (1,59,1),   # COMPLETION BIT            #
            QAC$R0           U (2,0,36),   # RESERVED                  #
            QAC$LENQAC       U (2,36,6),   # LENGTH OF QAC BLOCK       #
            QAC$REPLY        U (2,42,18), # FIRST WORD ADDRESS OF BUFF #
            QAB$I            U (3,0,42),   # ZEROS FIELD               #
            QAC$IN           U (3,42,18),  # IN POINTER                #
            QAB$K            U (4,0,42),   # ZEROS FIELD               #
            QAC$OUT          U (4,42,18),  # OUT POINTER               #
            QAC$FNTORD       U (5,0,12),   # FNT-JOB ORDINAL-ADDRESS   #
            QAC$ORDINAL      U (5,12,12),  # ORDINAL                   #
            QAC$QUEUE        U (5,24,12),  # QUEUE OF FOUND FILE       #
            QAC$FLAGS        U (5,31,5),   # QUEUE TYPE FLAGS          #
            QAC$INFLAG       B (5,35,1),   # INPUT QUEUE FLAG          #
            QAC$EXFLAG       B (5,34,1),   # EX QUEUE FLAG             #
            QAC$OQFLAGS      U (5,31,3),   # OUTPUT FLAGS              #
            QAC$R1           U (5,36,6),   # RESERVED                  #
            QAC$LIMITADD     U (5,42,18),  # LIMIT ADDRESS OF BUFFER   #
#           CRITERIA PORTION                                           #
            QAC$FAMNAME      C (6,0,07),   # CURRENT FAMILY            #
            QAC$BATCHID      U (6,42,6),   # BATCH DEVICE ID           #
            QAC$ORIGIN       U (6,48,12),  # ORIGIN 2 = REMOTE BATCH   #
            QAC$USRNUM       C (7,0,07),   # CURRENT USER              #
            QAC$UI           U (7,42,18),  # DESTINATION USER INDEX    #
            QAC$JSN          C (8,0,04),   # JOB SEQUENCE NUMBER       #
            QAC$JSNNUM       U(8,0,24), 
            QAC$SELECTA      U (8,24,36),  # SELECTION CONTROL FLAG    #
            QAC$SSPEC        B (8,59,1),   # SPACING - EC              #
            QAC$SINDUPL      B (8,58,1),   # INHIBIT DUPL JN           #
            QAC$SZEROPRI     B (8,57,1),   # INCLUDE ZERO PRIORITY     #
            QAC$SDEST        B (8,56,1),   # DESTINATION FLAG          #
            QAC$SORIGIN      B (8,54,1),   # ORIGIN FLAG               #
            QAC$SBATCHID     B (8,55,1),   # BATCH ID                  #
            QAC$SJSN         B (8,53,1),   # JSN FLAG                  #
            QAC$SFORM        B (8,52,1),   # FORM FLAG                 #
            QAC$SDISP        B (8,51,1),   # DISPOSITION CODE          #
            QAC$SEXEC        B (8,50,1),   # EXPLICIT EC               #
            QAC$SHIEREC      B (8,49,1),   # HIERARCHICAL EC           #
            QAC$SECZERO      B (8,48,1),   # ZERO EC                   #
            QAC$SIC          B (8,47,1),   # IC SELECTION              #
            QAC$SSECU        B (8,46,1),   # SECURITY SELECTION        #
            QAC$SDLID        B (8,45,1),   # DLID SPECIFIED            #
            QAC$SALID        B (8,44,1),   # ALID LIST ADR SPECIFIED   #
            QAC$SCLID        B (8,43,1),   # CLID SPECIFIED            #
            QAC$CQUEUE       U (9,0,12),   # QUEUE FLAGS FIELD         #
            QAC$CFLAGS       U (9,7,5),    # QUEUE TYPE FLAGS          #
            QAC$CINFLAG      B (9,11,1),   # INPUT QUEUE FLAG          #
            QAC$CEXFLAG      B (9,10,1),   # EXECUTE QUEUE FLAG        #
            QAC$COQFLAGS     U (9,7,3),    # OUTPUT QUEUE FLAGS        #
            QAC$FORMS        U (9,12,12),  # FORMS CODE                #
            QAC$DISP         U (9,24,12),  # DISPOSITION CODE          #
            QAC$EC           U (9,36,3),   # EXTERNAL CHARACTERISTIC   #
                                           # 4-026 , 5-029             #
            QAC$IC           U (9,39,3),   # INTERNAL CHARACTERISTIC   #
            QAC$LINK         U (9,42,18),  # LINK ADDRESS              #
            QAC$CLID         U (10,0,18),  # MAINFRAME LOGICAL ID      #
            QAC$DLID         U (10,18,18), # DESTINATION LOGICAL ID    #
            QAC$AL           U (10,36,6) , # SECURITY    ACCESS LEVEL  #
            QAC$ALMIN        U (10,36,3) , # LOWER LIMIT ACCESS LEVEL  #
            QAC$ALMAX        U (10,39,3) , # UPPER LIMIT ACCESS LEVEL  #
            QAC$ALID         U (10,42,18), # ALTERNATE DLID            #
            QAC$SECURITY     U (11,0,10),  # SECURITY LEVEL            #
            QAC$R3           U (11,10,50), # RESERVED FOR CDC          #
            QAC$INSTALL1     U (12,0,60),  # RESERVED FOR INSTALLATION #
#           ALTER FUNCTION PORTION                                     #
            QAC$SSW          U (13,0,7),   # SENSE SWITCH              #
            QAC$R4           U (13,7,23),  # REVERVED                  #
            QAC$ALTERFLG     U (13,30,30), # ALTER FLAGS               #
            QAC$DVRTHOST     B (13,58,1),  # DIVERT TO CENTRAL HOST    #
            QAC$DVRTID       B (13,59,1),  # CHANGE TERMINAL ID        #
            QAC$CHGPRI       B (13,57,1),  # CHANGE PRIORITY           #
            QAC$CHGFORMS     B (13,56,1),  # CHANGE FORMS CODE         #
            QAC$CHGREP       B (13,52,1),  # CHANGE REPEAT             #
            QAC$CHGDISP      B (13,54,1),  # CHANGE DISPOSITION FLAG   #
            QAC$PURGE        B (13,50,1),  # ABORT-EVICT JOB-FILE      #
            QAC$AMESS        B (13,44,1),  # ALTER MESSAGE FLAG        #
            QAC$CHGSC        B (13,40,1),  # CHANGE SERVICE CLASS FLAG #
            QAB$NEWFAMI      I (14,0,42),  # NEW FAMILY NAME           #
            QAB$NEWFAM       C (14,0,7),   # NEWFAMILY NAME            #
            QAC$NEWDLID      U (14,42,18), # NEW DESTINATION LID       #
            QAB$NEWUSR       C (15,0,7),   # NEW USER NAME             #
            QAC$R5           U (15,42,6),  # RESERVED                  #
            QAC$NEWSP        U (15,42,6),  # NEW SPACING CODE          #
            QAC$NBATCHID     U (15,54,6),  # NEW BATCH ID              #
            QAC$PRI          U (16,0,12),  # PRIORITY                  #
            QAC$FORM         U (16,12,12), # NEW FORM CODE             #
            QAC$NEWDISP      U (16,24,12), # NEW DISPOSITION CODE      #
            QAC$NEWEC        U (16,36,3),  # NEW E.C.                  #
            QAC$NEWSEC       U (16,39,3),  # NEW SECURITY LEVEL        #
            QAC$SC           C (16,42,2),  # NEW SERVICE CLASS         #
            QAC$NRPTCNT      U (16,54,6),  # NEW REPEAT COUNT          #
            QAC$INSTALL2     U (17,0,60),  # INSTALLATION USE          #
#           PEEK FUNCTION PORTION                                      #
            QAC$INPCNT       U (13,0,12),  # INPUT FILE COUNT          #
            QAC$JOBCNT       U (13,12,12), # EXECUTING FILE COUNT      #
            QAC$PRTCNT       U (13,24,12), # PRINT FILE COUNT          #
            QAC$PCHCNT       U (13,36,12), # PUNCH FILE COUNT          #
            QAC$SPCCNT       U (13,48,12), # SPECIAL FILE COUNT        #
            QAC$R8           U (14,0,36),  # RESERVED                  #
            QAC$INSCNT       U (14,36,12), # INSTALLATION QUEUE COUNT  #
            QAC$ENTLGTH      U (14,48,12), # PEEK REPLY ENTRY LENGTH   #
            QAC$INFOWORD     U (15,0,60),  # INFORMATION WORD          #
            QAC$INFOJSN      B (15,58,1),  # INFOMATION OF JSN         #
            QAC$INFOFMS      B (15,57,1),  # INFORMATION OF FORMS      #
            QAC$INFOPRI      B (15,56,1),  # ACQUIRE ON PRIORITY       #
            QAC$INFOJOB      B (15,50,1),  # ACQUIRE ON LFN            #
            QAC$INFOREP      B (15,49,1),  # ACQUIRE ON REPEAT         #
            QAC$INFOFL       B (15,47,1),  # ACQUIRE ON FILE LENGTH    #
            QAC$INFOSTS      B (15,46,1),  # ACQUIRE ON STATUS         #
            QAC$INFOSRU      B (15,42,1),  # ACCQUIRE ON SRUS          #
            QAC$INFOLID      B (15,39,1),  # ACQUIRE LOGICAL ID        #
            QAC$INSTALL3     U (16,0,60),  # FOR INSTALLATION USE      #
#           GET FUNCTION PROTION                                       #
            QAC$DFADR        U (13,0,30),  # DAYFILE ADDRESS           #
            QAC$R10          U (13,30,6),  # RESERVED                  #
            QAC$LIMITS       U (13,36,24), # ACCOUNTING LIMITS         #
            QAC$INTRADD      U (14,0,30),  # INTERRUPT ADDRESS         #
            QAC$R11          U (14,30,6),  # RESERVED                  #
            QAC$580PFC       U (14,36,12), # SPACING CODE              #
            QAC$R12          U (14,48,6),  # RESERVED                  #
            QAC$RPTCNT       U (14,54,6),  # REPEAT COUNT              #
            QAC$FILELGTH     U (15,0,30),  # FILE LENGTH               #
            QAC$R13          U (15,31,29), # RESERVED                  #
            QAC$INSTALL4     U (16,0,60);  # FOR INSTALLATION USE      #
# 
      END OF QAB/QAC DEFINITION 
                                                                       #
