*COMDECK,COMQQAC
# 
      COMQQAC - QAC/QAF DEFINITIONS.
# 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
# 
***   COMQQAC - DEFINITIONS.
# 
  
      DEF TLIDN      #23#;         # NUMBER OF EXTRA DID WORDS #
  
    CONTROL IFEQ OS$NOS;
      DEF EXGET      #78#;         # EXTENDED-GET BLOCK LENGTH #
      DEF QACDUPLFN  #O"10"#;      # QAC DUPLICATE LFN ERROR CODE # 
      DEF QACGET     #2#;          # QAC GET FUNCTION CODE #
      DEF QACNFFERR  #O"07"#;      # QAC NO FILE FOUND ERROR CODE # 
      DEF QACNOFNTS  #O"07"#;      # FAKE ERROR CODE #
      DEF QACNM      #"QAC"#;      # QAC PP NAME #
      DEF QACPBN     #83#;         # QAC PARAMETER BLOCK LENGTH # 
      DEF QACQTP     #O"75"#;      # QAC QUEUE TYPES FOR SEARCH # 
    CONTROL ENDIF;
  
    CONTROL IFEQ OS$NOSBE;
      DEF QACDUPLFN  #O"12"#;      # QAF DUPLICATE LFN ERROR CODE # 
      DEF QACGET     #1#;          # QAF GET FUNCTION CODE #
      DEF QACNFFERR  #O"02"#;      # QAF NO FILE FOUND ERROR CODE # 
      DEF QACNOFNTS  #O"04"#;      # QAF NO FNT AVAILABLE ERROR CODE #
      DEF QACNM      #"QAF"#;      # QAF PP NAME #
      DEF QACPBN     #06#;         # QAF PARAMETER BLOCK LENGTH # 
      DEF QACPTY     #O"0001"#;    # QAF SEARCH PRIORITY #
      DEF QACQTP     #O"17"#;      # QAF QUEUE TYPES FOR SEARCH # 
    CONTROL ENDIF;
  
    COMMON COMQQAC; 
      BEGIN  # COMMON BLOCK COMQQAC # 
  
      ARRAY [0:0] S(1);            # QAC/QAF RA+1 CALL #
        BEGIN 
        ITEM QACWD      U(00,00,60) = [0];
        ITEM $QACD1     C(00,00,03) = [QACNM];
        ITEM QACRCL     B(00,19,01);  # AUTO-RECALL FLAG #
        ITEM QACPBLK    U(00,42,18);  # PARAMETER BLOCK ADDRESS # 
        END 
  
      ARRAY [0:0] S(QACPBN);       # QAC/QAF PARAMETER BLOCK #
        BEGIN 
  
      CONTROL IFEQ OS$NOS;
        ITEM QACBW0     U(00,00,60);  # WORD 0 #
        ITEM QACBLFN    C(00,00,07);  # FILE NAME # 
        ITEM QACBLFNU   U(00,00,42);  # FILE NAME # 
        ITEM QACBERR    U(00,42,08);  # ERROR CODE RETURNED # 
        ITEM QACBFC     U(00,50,09);  # FUNCTION CODE # 
        ITEM QACBC      B(00,59,01);  # COMPLETE BIT #
  
        ITEM QACBW1     U(01,00,60);  # WORD 1 #
#                        (01,00,35)     UNUSED #
        ITEM QACBLEN    U(01,35,07);  # QAC BUFFER LENGTH # 
        ITEM QACBFRT    U(01,42,18);  # FIRST POINTER # 
  
        ITEM QACBW2     U(02,00,60);  # WORD 2 #
#                        (02,00,42)     UNUSED #
        ITEM QACBIN     U(02,42,18);  # IN POINTER #
  
        ITEM QACBW3     U(03,00,60);  # WORD 3 #
#                        (03,00,42)     UNUSED #
        ITEM QACBOUT    U(03,42,18);  # OUT POINTER # 
  
        ITEM QACBW4     U(04,00,60);  # WORD 4 #
        ITEM QACBFNT    U(04,00,12);  # FNT ORDINAL # 
        ITEM QACBORD    U(04,12,12);  # ORDINAL IN QFT #
        ITEM QACBQUE1   U(04,24,12);  # QUEUE TYPE #
        ITEM QACBWTT    B(04,30,01);  # FILE TYPE WAIT QUEUE #
        ITEM QACBSPT    B(04,31,01);  # FILE TYPE PLOT #
        ITEM QACBPUT    B(04,32,01);  # FILE TYPE PUNCH # 
        ITEM QACBPRT    B(04,33,01);  # FILE TYPE PRINT # 
        ITEM QACBEXT    B(04,34,01);  # FILE TYPE EXECUTE # 
        ITEM QACBINT    B(04,35,01);  # FILE TYPE INPUT # 
#                        (04,36,06)     UNUSED #
        ITEM QACBLMT    U(04,42,18);  # LIMIT POINTER # 
  
        ITEM QACBW5     U(05,00,60);  # WORD 5 #
        ITEM QACBDFM    U(05,00,42);  # DESTINATION FAMILY #
        ITEM QACBDFMC   C(05,00,07);  # DESTINATION FAMILY #
        ITEM QACBID     U(05,42,06);  # BATCH DEVICE ID # 
        ITEM QACBORI    U(05,48,12);  # ORIGIN #
  
        ITEM QACBW6     U(06,00,60);  # WORD 6 #
        ITEM QACBDUN    U(06,00,42);  # DESTINATION USER NUMBER # 
        ITEM QACBDUNC   C(06,00,07);  # DESTINATION USER NUMBER # 
        ITEM QACBDUNI   U(06,42,18);  # DESTINATION USER INDEX #
  
        ITEM QACBW7     U(07,00,60);  # WORD 7 #
        ITEM QACBJSN    U(07,00,24);  # JSN # 
        ITEM QACBJSNC   C(07,00,04);  # JSN # 
        ITEM QACBFLG    U(07,24,36);  # SELECTION FLAGS # 
        ITEM QACBF20    B(07,39,01);  # FILE SIZE INDEX SPECIFIED # 
        ITEM QACBF15    B(07,44,01);  # ALID LIST ADDRESS SPECIFIED # 
        ITEM QACBF14    B(07,45,01);  # DLID SPECIFIED #
  
        ITEM QACBW8     U(08,00,60);  # WORD 8 #
        ITEM QACBQUE    U(08,00,12);  # QUEUE TYPE #
        ITEM QACBFRM    C(08,12,02);  # FORMS CODE - CHAR # 
        ITEM QACBFRMN   U(08,12,12);  # FORMS CODE - BINARY # 
        ITEM QACBDCC    C(08,24,02);  # DISPOSITION CODE #
        ITEM QACBEC     U(08,36,03);  # EXTERNAL CHARACTERISTICS #
        ITEM QACBIC     U(08,39,03);  # INTERNAL CHARACTERISTICS #
        ITEM QACBLADR   U(08,42,18);  # LINK ADDRESS #
  
        ITEM QACBW9     U(09,00,60);  # WORD 9 #
        ITEM QACBSID    U(09,00,18);  # SLID #
        ITEM QACBDID    U(09,18,18);  # DLID #
        ITEM QACBALLB   U(09,36,03);  # ACCESS LEVEL LOWER BOUND #
        ITEM QACBALUB   U(09,39,03);  # ACCESS LEVEL UPPER BOUND #
        ITEM QACBALID   U(09,42,18);  # ALID LIST ADDRESS # 
  
        ITEM QACBW10    U(10,00,60);  # WORD 10 # 
        ITEM QACBFSLB   U(10,00,03);  # FILE SIZE INDEX LOWER BOUND # 
        ITEM QACBFSUB   U(10,03,03);  # FILE SIZE INDEX UPPER BOUND # 
#                        (10,06,54)     UNUSED #
  
        ITEM QACBW11    U(11,00,60);  # RESERVED FOR INSTALLATION # 
  
        ITEM QACBW12    U(12,00,60);  # WORD 12 # 
        ITEM QACBDRA    U(12,00,30);  # DAYFILE RANDOM ADDRESS #
        ITEM QACBSCL    C(12,30,01);  # SERVICE CLASS # 
        ITEM QACBAL     U(12,36,24);  # ACCOUNT LIMIT # 
  
        ITEM QACBW13    U(13,00,60);  # WORD 13 # 
        ITEM QACBIRA    U(13,00,30);  # INTERRUPT RANDOM ADDRESS #
#                        (12,30,08)     UNUSED #
        ITEM QACBPI     U(13,38,04);  # PRINT-IMAGE-ORDINAL # 
        ITEM QACBSC     U(13,42,06);  # SPACING CODE #
#                        (12,48,06)     UNUSED #
        ITEM QACBRC     U(13,54,06);  # REPEAT COUNT #
  
        ITEM QACBW14    U(14,00,60);  # WORD 14 # 
        ITEM QACBPRUS   U(14,00,30);  # FILE LENGTH IN PRUS # 
        ITEM QACBACLV   U(14,30,03);  # ACCESS LEVEL #
        ITEM QACBFSI    U(14,33,03);  # FILE SIZE INDEX # 
  
        ITEM QACBW15    U(15,00,60);  # RESERVED FOR INSTALLATIONS #
  
        ITEM QACBW16    U(16,00,60);  # WORD 16 # 
        ITEM QACBACC1   U(16,00,60);  # ACCOUNT WORD AHMT # 
  
        ITEM QACBW17    U(17,00,60);  # WORD 17 # 
        ITEM QACBACC2   U(17,00,60);  # ACCOUNT WORD AHDS # 
  
        ITEM QACBW18    U(18,00,60);  # WORD 18 # 
        ITEM QACBACC3   U(18,00,60);  # ACCOUNT WORD AACW # 
        ITEM QACBUST    B(18,42,01);  # USER VALIDATED TO USE LIDS #
        ITEM QACBQLK    B(18,43,01);  # USER VALIDATED TO USE QTF # 
  
        ITEM QACBW19    U(19,00,60);  # WORD 19 # 
        ITEM QACBOUN    U(19,00,42);  # OWNER USER NUMBER # 
        ITEM QACBOUNC   C(19,00,07);  # OWNER USER NUMBER # 
#                        (19,42,18)     UNUSED #
  
        ITEM QACBW20    U(20,00,60);  # WORD 20 # 
        ITEM QACBOFM    U(20,00,42);  # OWNER FAMILY NAME # 
        ITEM QACBOFMC   C(20,00,07);  # OWNER FAMILY NAME # 
#                        (20,42,18)     UNUSED #
  
        ITEM QACBW21    U(21,00,60);  # WORD 21 # 
        ITEM QACBCUN    U(21,00,42);  # CREATION USER NUMBER #
        ITEM QACBCUNC   C(21,00,07);  # CREATION USER NUMBER #
#                        (21,42,18)     UNUSED #
  
        ITEM QACBW22    U(22,00,60);  # WORD 22 # 
        ITEM QACBCFM    U(22,00,42);  # CREATION FAMILY NAME #
        ITEM QACBCFMC   C(22,00,07);  # CREATION FAMILY NAME #
#                        (22,42,18)     UNUSED #
  
        ITEM QACBW23    U(23,00,60);  # WORD 23 # 
        ITEM QACBRUN    U(23,00,42);  # REMOTE USER NUMBER #
        ITEM QACBRUNC   C(23,00,07);  # REMOTE USER NUMBER #
#                        (23,42,18)     UNUSED #
  
        ITEM QACBW24    U(24,00,60);  # WORD 24 # 
        ITEM QACBRFM    U(24,00,42);  # REMOTE FAMILY NAME #
        ITEM QACBRFMC   C(24,00,07);  # REMOTE FAMILY NAME #
#                        (24,42,18)     UNUSED #
  
        ITEM QACBW25    U(25,00,60);  # WORD 25 # 
        ITEM QACBUJN    U(25,00,42);  # USER JOB NAME # 
        ITEM QACBUJNC   C(25,00,07);  # USER JOB NAME # 
#                        (25,42,18)     UNUSED #
  
        ITEM QACBW26    U(26,00,60);  # WORD 26 # 
        ITEM QACBDDU    U(26,00,12);  # DATA DECLARATION #
        ITEM QACBDDC    C(26,00,02);  # DATA DECLARATION #
#                        (26,12,24)     UNUSED #
        ITEM QACBILN    U(26,36,12);  # IMPLICIT TEXT STRING LENGTH # 
        ITEM QACBELN    U(26,48,12);  # EXPLICIT TEXT STRING LENGTH # 
  
        ITEM QACBW27    U(27,00,60);  # WORDS 27 - 52 # 
        ITEM QACBIRT    U(27,00,60);  # IMPLICIT ROUTING TEXT # 
  
        ITEM QACBW53    U(53,00,60);  # WORDS 53 - 78 # 
        ITEM QACBERT    U(53,00,60);  # EXPLICIT ROUTING TEXT # 
  
        ITEM QACBW79    U(79,00,60);  # WORD 79 # 
        ITEM QACPW      U(79,00,42);  # ENCRYPTED BATCH PASSWORD #
        ITEM QACPW1     U(79,00,21);  # FIRST HALF OF PASSWORD #
        ITEM QACPW2     U(79,21,21);  # SECOND HALF OF PASSWORD # 
  
        ITEM QACBW80    U(80,00,60);  # WORD 80 # 
        ITEM QACBCHGU   U(80,00,60);  # CHARGE NUMBER # 
  
        ITEM QACBW81    U(81,00,60);  # WORD 81 # 
        ITEM QACBPJ1U   U(81,00,60);  # PROJECT NUMBER #
  
        ITEM QACBW82    U(82,00,60);  # WORD 82 # 
        ITEM QACBPJ2U   U(82,00,60);  # PROJECT NUMBER #
      CONTROL ENDIF;
  
      CONTROL IFEQ OS$NOSBE;
        ITEM QACBW0     U(00,00,60);  # WORD 0 #
        ITEM QACBLFN    C(00,00,07);  # FILE NAME # 
        ITEM QACBLFNU   U(00,00,42);  # FILE NAME # 
        ITEM QACBERR    U(00,42,06);  # ERROR CODE #
        ITEM QACBQUE    U(00,48,08);  # QUEUES SEARCHED # 
        ITEM QACBSPT    B(00,52,01);  # FILE TYPE SPECIAL # 
        ITEM QACBPUT    B(00,53,01);  # FILE TYPE PUNCH # 
        ITEM QACBPRT    B(00,54,01);  # FILE TYPE PRINT # 
        ITEM QACBINT    B(00,55,01);  # FILE TYPE INPUT # 
        ITEM QACBFC     U(00,56,03);  # FUNCTION CODE # 
        ITEM QACBC      B(00,59,01);  # COMPLETE BIT #
  
        ITEM QACBW1     U(01,00,60);  # WORD 1 #
        ITEM QACBALT    U(01,00,12);  # ALTER CODES # 
        ITEM QACBFRM    C(01,12,02);  # FORMS CODE #
        ITEM QACBFRMN   U(01,12,12);  # FORMS CODE #
        ITEM QACBEC     U(01,24,03);  # EXTERNAL CHARACTERISTICS #
        ITEM QACBIC     U(01,28,02);  # INTERNAL CHARACTERISTICS #
        ITEM QACBDC     U(01,30,06);  # DISPOSITION CODE #
        ITEM QACBRC     U(01,36,06);  # REPEAT COUNT #
        ITEM QACXPBP    U(01,42,18);  # EXTENDED PARM BLOCK POINTER # 
  
        ITEM QACBW2     U(02,00,60);  # WORD 2 #
        ITEM QACBSID    U(02,00,18);  # SOURCE LID #
        ITEM QACBDID    U(02,18,18);  # DESTINATION LID (1ST) # 
        ITEM QACBIFNT   U(02,36,12);  # INITIAL FNT ADDRESS # 
        ITEM QACBJCL    U(02,48,12);  # JOB CLASS # 
  
        ITEM QACBW3     U(03,00,60);  # WORD 3 #
        ITEM QACRTR     B(03,00,01);  # RETURN ROUTING TEXT # 
        ITEM QACBFSB    B(03,01,01);  # FILE SIZE BOUNDS SPECIFIED #
        ITEM QACBDAYF   B(03,02,01);  # DAYFILE ATTACHED (OUTPUT) # 
        ITEM QACBSIL    B(03,03,01);  # SKIP FILES WITH INVALID LFNS #
#                       U(03,04,08)     UNUSED #
        ITEM QACBNWT    U(03,12,12);  # NEW TID # 
#                        (03,24,12)     UNUSED #
        ITEM QACBTID    U(03,36,12);  # TERMINAL ID # 
        ITEM QACBTIDC   C(03,36,02);  # TERMINAL ID # 
        ITEM QACBPRI    U(03,48,12);  # PRIORITY #
  
        ITEM QACBW4     U(04,00,60);  # WORD 4 #
        ITEM QACBSC     U(04,00,06);  # SPACING CODE (OUTPUT ONLY) #
        ITEM QACBPDFC   C(04,00,07);  # PREDAYFILE NAME # 
        ITEM QACBPDF    U(04,00,42);  # PREDAYFILE LFN (INPUT) #
        ITEM QACBF17    B(04,42,01);  # PREDAYFILE FLAG # 
        ITEM QACBF16    B(04,43,01);  # INHIBIT CLASS 2 JOBS #
        ITEM QACBF15    B(04,44,01);  # INHIBIT CLASS 1 JOBS #
        ITEM QACBF14    B(04,45,01);  # INHIBIT DUPLICATE LFN CHECK # 
        ITEM QACBF13    B(04,46,01);  # IGNORE-FILE-LIST FLAG # 
        ITEM QACBILLID  B(04,47,01);  # IGNORE-LOCAL-LID FLAG # 
        ITEM QACEXCT    U(04,48,12);  # EXECUTING JOB COUNT # 
  
        ITEM QACBW5     U(05,00,60);  # WORD 5 #
        ITEM QACBLN     U(05,00,12);  # ADDITIONAL DLID WORD COUNT #
        ITEM QACBFSL    U(05,12,12);  # FILE SIZE, LOWER BOUNDS # 
        ITEM QACBFSU    U(05,24,12);  # FILE SIZE, UPPER BOUNDS # 
      CONTROL ENDIF;
  
        END 
  
# 
*     ARRAY TLID DEFINES THE ADDITIONAL DLID WORDS IN THE QAC BUFFER. 
*     ARRAY TLID MUST IMMEDIATELY FOLLOW NOS/BE *QAF* BLOCK.
# 
  
      ARRAY TLID [0:TLIDN] S(1);   # ADDITIONAL DID WORDS # 
        BEGIN 
        ITEM TLIDWD     U(00,00,60);  # WORD IN TABLE # 
        ITEM TLIDLEFT   U(00,00,18);  # LEFT DLID # 
        ITEM TLIDMIDDLE U(00,18,18);  # MIDDLE DLID # 
        ITEM TLIDRIGHT  U(00,36,18);  # RIGHT DLID #
#                        (00,54,06)     UNUSED #
        END 
  
# 
*     ARRAY QAFXPB DEFINES THE NOS/BE QAF ROUTING TEXT BUFFER.
# 
  
    CONTROL IFEQ OS$NOSBE;
      ARRAY QAFXPB [0:0] S(NBEXPBL); ;
    CONTROL ENDIF;
  
      END  # COMMON BLOCK COMQQAC # 
  
#     END OF COMDECK COMQQAC #
                                               CONTROL LIST;
