*COMDECK,QAC$COM
#                                                                      #
#     QAB TABLE SIZE                                                   #
#                                                                      #
          DEF QAB$SIZE #18# ; 
# 
      QAC FUNCTION DEFINITIONS
                                                                       #
      DEF   QAC$ALTER           # 1 #;     # ALTER DEFINITION          #
      DEF   QAC$GET             # 2 #;     # GET DEFINITION            #
      DEF   QAC$PEEK            # 3 #;     # PEEK DEFINITION           #
      DEF   QAC$COUNT           # 4 #;     # COUNT DEFINITION          #
# 
      BLOCK LENGTH OF EACH FUNCTIONS
# 
      DEF   BLOCK$ALTER         # 17#;     # LENGTH OF ALTER BLOCK     #
      DEF   BLOCK$GET           # 16#;     # LENGTH OF GET BLOCK       #
      DEF   BLOCK$PEEK          # 16#;     # LENGTH OF PEEK BLOCK      #
      DEF   PEEKREL             #  9#;     # LENGTH OF PEEK REPLY ENTRY#
      DEF   NR$PEEK      #PEEKREL*24#;     # ARBITRARY MAX NO OF ENTRY #
      DEF   MAXRCP1             # 21#;     # MAX REPLY CODE PLUS ONE   #
#                                                                      #
# 
      END OF QAC FUNCTION DEFINITIONS 
                                                                       #
#                                                                      #
#     QAC  EXTERNAL CODES.                                             #
#                                                                      #
      DEF QAC$EC026     # 4 #;            # PUNCH 026.                 #
      DEF QAC$EC029     # 5 #;            # PUNCH 029.                 #
# 
      QUEUE CODES FOR QAC CALLS 
                                                                       #
     DEF QAC$INQUEUE #O" 01"# ; 
     DEF QAC$EXQUEUE #O" 02"# ; 
     DEF QAC$SPQUEUE #O" 20"# ; 
     DEF QAC$PUQUEUE #O" 10"# ; 
     DEF QAC$PRQUEUE #O" 04"# ; 
# 
      END IF QUEUE CODE DEFINITIONS FOR QAC CALLS 
                                                                       #
# 
      QAC ERRORS
                                                                       #
      STATUS QACERROR   NULL,    # NULL                                #
                INVALIDQUEUE,                    #INVALID QUEUE        #
                BADUSRFAM,                       # BAD USER/FAMILY     #
                UNDEFINEORG,                     # UNDEFINE ORIGIN     #
                MUTUALERR,                       #                     #
                ILLFORMS,                        # ILLEGAL FORM CODE   #
                UNKDISP,                         # UNKNOWN DISP CODE   #
                NOFILE,                          # NO FILE/JOB FILE    #
                DUPLLFN,                         # DUPLICATE LFN       #
                INVALIDID,                       # INVALID BATCH ID    #
                GETERROR,                        # GET ERROR IN LFN    #
                PEEKERROR,                       # PEEK ERROR          #
                  ALTERERR,                        # ALTER ERROR       #
                  ,,,,,,,,,,                       # ERROR CODES 13-22 #
                  INCORSC,                         # INCORRECT SC      #
                  SCFULL,                          # SERVICE CLASS FULL#
                  ONLINE,                          # ON-LINE JOB       #
                  UNDEFSC,                         # UNDEFINED SC      #
                  JOBWAIT,                         # JOB WAITING ON SC #
                  SUBSYST;                         # SUB-SYST SC CHANGE#
# 
      END OF QAC ERROR DEFINITIONS
                                                                       #
# 
      QAC MISCELLANEOUS DEFINITIONS 
                                                                       #
      DEF   RBFORIGIN         #3# ;         # REMOTE BATCH ORIGIN      #
# 
      END OF QAC MISCELLANEOUS DEFINITIONS
                                                                       #
