*COMDECK,DCB$COM
# 
      DOWNLINE CONTROL BLOCK - DCB
            USE - MAINTAINS INFORMATION ABOUT REMOTE BATCH OUTPUT 
                  DEVICES 
  
            SIZE - TOTAL   164 WORDS
                   DATA    143 WORDS (2 PRU-S + 1 LINE(14) + 1) 
                   FET       7 WORDS
                   CONTROL  14 WORDS
                                                                       #
# 
      NOTE - THIS BASED ARRAY AND COMMON BLOCK IS USED BY SETACN
             ROUTINE, ANY CHANGES HERE SHOULD BE FOLLOWED BY CHANGES
             IN SETACN
# 
      COMMON DCB$COM; 
      BEGIN # DCB$COM # 
      BASED ARRAY DCB [1:1] S(1); 
      ITEM
        DCB$COMPLETE    B (0,0,1),               # EVENT COMPLETE      #
        DCB$PROCESSD    B (0,1,1),               # INPUT PROCESSD      #
        DCB$DEVABL      U (0,2,3),               # APP BLOCK LIMIT     #
        DCB$INPTYPE     U (0,6,6),               # INPUT TYPE          #
        DCB$TIME        U (0,12,12),             # DCM TIMMER          #
        DCB$EVENT       U (0,24,18),             # EVENT ADDRESS       #
        DCB$LINK        U (0,42,18),             # RETURN ADDRESS      #
        DCB$WORD0       U (0,0,60),              # FIRST WORD OF DCB   #
        DCB$TERMNAME    C (1,0,7),               # TERMINAL NAME       #
        DCB$STPEND      B (1,42,1),              # STOP,END RECEIVED   #
        DCB$SETFILE     B (1,43,1),              # RES/SUP FMT RECEIVED#
        DCB$FILEACT     B (1,44,1),              # RBF HAS FILE        #
        DCB$RSMTM       B (1,45,1),              # DCM TIMMER FLAG     #
        DCB$AUTOGO      B (1,46,1),              # AUTO GO FLAG        #
        DCB$RIC         U (1,46,1), 
        DCB$EOJ         B (1,47,1),              # END OF JOB FLAG     #
        DCB$QABBUFO     U (1,48,12),             # QAC REQUEST BUFFER  #
        DCB$CURINPUT    U (2,0,6),               # CURRENT INPUT       #
        DCB$CURSTATE    U (2,6,6),               # CURRENT STATE       #
        DCB$CURACTN     U (2,12,6),              # CURRENT ACTION      #
        DCB$PMTXT       U (2,18,12),             # PM TEXT BUFFER      #
        DCB$BUFSIZE     U (2,30,12),             # DCB CURRENT SIZE    #
        DCB$PLTEMP      U (2,42,9),              # LP PAGE LENGTH      #
        DCB$RETFLAG     B (2,51,1),               # RETURN FLAG     # 
        DCB$DEVSTOP     B (2,52,1),              # DEVICE STOPPED FLAG #
        DCB$TEMPSTP     B (2,53,1),              # TEMPORARY STOP      #
        DCB$FILER       B (2,54,1),              # RBF REALLY OWNS FILE#
        DCB$OFCSTPD     U (2,55,5), 
        DCB$INTRPT      B (2,55,1),              # BATCH INTERRUPT     #
        DCB$PMINT       B (2,56,1),              # PM INTERRUPT        #
        DCB$LIMIT       B (2,57,1),              # ACCOUNT LIMIT EXCEED#
        DCB$NREADY      B (2,58,1),              # DEVICE NOT READY    #
        DCB$DSKERR      B (2,59,1),              # DISK ERROR          #
        DCB$ACCOUNT     U (3,0,24),              # NO. OF LINES OUTPUT #
        DCB$ACCLIMIT    U (3,24,24),             # ACCOUNTING LIMIT    #
        DCB$PMSIZE      U (3,48,12),             # PM CHAR. LENGTH     #
        DCB$DAYFILE     U (4,0,24),              # DAYFILE PRU INDEX   #
        DCB$EOIPRU      U (4,24,24),             # EOI PRU INDEX       #
        DCB$DISKERR     U (4,48,12),             # DISK ERROR FIELD    #
        DCB$DSKCODE     U (4,57,3),              # DISK ERROR CODE     #
        DCB$CURPRU      U (5,0,18) ,             # CURRENT PRU INDEX   #
        DCB$IOQTORD     U (5,18,12) ,            # IOQT ORDINAL        #
        DCB$FNTORD      U (5,30,12),             # FNT ORDINAL         #
        DCB$FILETYPE    U (5,42,6),              # FILE TYPE           #
        DCB$FILEEC      U (5,42,3),              # EXTERNAL CHARACTER  #
        DCB$FILEIC      U (5,46,2),              # INTERNAL CHARACTER  #
        DCB$BANNER      U (5,48,3),              # NUMBER OF BANNER    #
        DCB$RETURN      B (5,51,1),              # RETURN FILE FLAG    #
        DCB$BANPUT      U (5,52,3),     # NUMBER OF BANNER BLK# 
        DCB$FET0        I (6,0,60),              # FIRST WORD OF FET   #
        DCB$FETLFN      C (6,0,7),               # OUTPUT FILE NAME    #
        DCB$FETJSN           C (6,0,04),   # JOB SEQUENCE NUMBER IN FET#
        DCB$JSN              C (6,0,04),   # JOB SEQUENCE NUMBER       #
        DCB$ZERO             U (6,24,18),  # ZERO FIELD                #
        DCB$FETSTAT     U (6,42,18),             # FET STATUS          #
        DCB$DSPERR      U (6,42,6),              # DSP ERROR FIELD     #
        DCB$FETERR      U (6,46,4),              # FET ERROR FIELD     #
        DCB$FETEOI      B (6,50,1),              # END OF INFORMATION  #
        DCB$FETCODE     U (6,51,9),              # REQUEST/RETURN CODE #
        DCB$FETEOR      B (6,55,1),              # END OF RECORD       #
        DCB$FETEOF      B (6,56,1),              # END OF FILE         #
        DCB$FETCB       B (6,59,1),              # REQUEST COMPLETE BIT#
        DCB$FETRAN      B (7,12,1),              # RANDOM CIO FLAG     #
        DCB$FETERRP     B (7,15,1),              # ERROR PROCESSING    #
        DCB$FETLEN      U (7,36,6),              # FET LENGTH          #
        DCB$FETFIRST    U (7,42,18),             # FET FIRST POINTER   #
        DCB$DSPFT            U (7,0,12),   # TERMINATION FIELD         #
        DCB$DSPA9            B (7,1,1),    # TRAIN TYPE A9             #
        DCB$DSPFLAGS    U (7,42,18),             # DSP SPECIAL FLAGS   #
        DCB$DSPREP      B (7,45,1),              # CHANGE REPEAT COUNT #
        DCB$DSPNDM      B (7,47,1),              # DSP NO DAYFILE FLAG #
        DCB$DSPPFL      B (7,50,1),              # DSP PRIORITY FLAG   #
        DCB$FETIN       I (8,0,60),              # FET IN POINTER      #
        DCB$FETOUT      I (9,0,60),              # FET OUT POINTER     #
        DCB$DSPPR       U (9,48,12),             # DSP PRIORITY VALUE  #
        DCB$DSPPRB      B (9,47,1),              # DSP PRIORITY BIT    #
        DCB$FETFNT      U (10,0,12),             # FET FNT ORDINAL     #
        DCB$FETIOQT     U (10,12,12) ,           # IOQT ORDINAL        #
        DCB$FETLIMIT    U (10,42,18),            # FET LIMIT POINTER   #
        DCB$DSPRC       U (10,43,5),             # REPEAT COUNTER      #
        DCB$DSPFNT      U (10,48,12),            # DSP FNT ORDINAL     #
        DCB$CONTROL     U (11,0,12),             # QAP CONTROL FIELD   #
        DCB$NBF         U (11,12,1),             # BOTTOM-OF-FORM FLAG #
        DCB$PL          U (11,15,9),             # LP PAGE LENGTH      #
        DCB$ORIGIN      U (11,48,12),            # QAP ORIGIN FIELD    #
        DCB$FETINDEX    U (12,30,30),            # RANDOM PRU INDEX    #
        DCB$FETCRI      U (12,0,30),             # CURRENT PRU INDEX   #
        DCB$FET6        I (12,0,60),             # LAST WORD OF FET    #
        DCB$ABH         U (12,0,60),             # BLOCK HEADER        #
        DCB$DATA        U (13,0,60);             # 1ST WORD OF OFC/DATA#
      END   # DCB$COM # 
# 
      DCM STATE 
# 
      STATUS DCMSTATE NULL, 
                      DCM$IDLE,                  # NO FILE             #
                      DCM$GO,                    # PRINTING FILE       #
                      DCM$GOBAN,                 # PRINTING BANNER     #
                      DCM$GOEOF,                 # PRINTING LAST LINE  #
                      DCM$WAIT1,                 # PRINTING STOPPING   #
                      DCM$WAIT2,                 # PRINTING STOPPED    #
                      DCM$WTBAN,                 # BANNER PRINTING STOP#
                      DCM$WTEOF,                 # LAST LINE STOPPED   #
                      DCM$STOP,                  # NO ACTIVE FILE      #
                      DCM$SKIP,                  # FILE SKIPPING       #
                      DCM$SKPEND,                # FILE SKIPPING TO END#
                      DCM$ABORT,                 # FILE ABORTING       #
                      DCM$ABTBAN,                # FILE ABORTING       #
                      DCM$ABTEOF,                # FILE ABORTING       #
                      DCM$RETURN,                # RETURN FILE TO QUEUE#
                      DCM$RETBAN,                # RETURN FILE TO QUEUE#
                      DCM$RETEOF,                # RETURN FILE TO QUEUE#
                      DCM$ERROR;
# 
      DCM INPUT 
# 
      STATUS DCMINPUT NULL, 
                      GODCM,                     # GO COMMAND          #
                      STOPDCM,                   # STOP COMMAND        #
                      RESUMEDCM,                 # RESUME COMMAND      #
                      DEVFLDCM,                  # SET/SUPPRESS/RESTORE#
                      STOPENDDCM,                # STOP,END COMMAND    #
                      SKPDCM,                    # SKIP COMMAND        #
                      SKPENDDCM,                 # SKIP,END COMMAND    #
                      REWINDDCM,                 # REWIND COMMAND      #
                      ABORTDCM,                  # ABORT COMMAND       #
                      RETURNDCM,                 # RETURN COMMAND      #
                      OFCEOODCM,                 # OFC/EOO SM          #
                      OFCABTDCM,                 # OFC/ABORT SM        #
                      INTRPTDCM,                 # OFC/STPD/RC=1 SM    #
                      PMDCM,                     # OFC/STPD/RC=2 SM    #
                      LIMITDCM,                  # OFC/STPD/RC=3 SM    #
                      NOTRDYDCM,                 # OFC/STPD/RC=4 SM    #
                      DSKERRDCM,                 # OFC/STPD/RC=5 SM    #
                      OFCSTPDCM,                 # OFC/STP SM          #
                      OFCDATDCM,                 # OFC/DATA SM         #
                      FILEFNDDCM,                # FILE FOUND FLAG     #
                      BANCOMPDCM,                # BANNER COMPLETE FLAG#
                      ENDCONDCM,                 # CONSOLE ENDED       #
                      CONCBDCM,                  # CONNECTION BROKEN   #
                      DCPNLDCM,                  # OFC/STPD/RC=6 SM    #
                      LASTDCM;
