*COMDECK DCL$DMP
#                                                                      #
#     DOWNLINE CONTROL BLOCK - FORMATTED FOR INPUT TO FORTRAN.         #
#                                                                      #
#           USE - THIS IS A DUPLICATE OF BASED ARRAY DCB (WORDS 3-13)  #
#                 FORMATTED SUCH THAT FORTRAN CAN BE USED TO GENERATE  #
#                 A SYMBOLIC TABLE DUMPING PROGRAM (IE. DMP$DCL).      #
#                 ANY CHANGES TO DCB$COM SHOULD BE MADE HERE ALSO,     #
#                 AND FORTRAN WILL GENERATE A PROGRAM TO DUMP THE NEW  #
#                 TABLE STRUCTURE.  OTHERWISE THIS COMMON DECK SHOULD  #
#                 NEVER BE USED (EXCEPT AS A SYMPL TEXT FOR DMP$DCL).  #
#                 SEE THE FORTRAN USERS GUIDE FOR MORE INFORMATION.    #
#                                                                      #
#          NOTE - FORTRAN REQUIRES ANY STATUS LISTS USED IN DCL$COM    #
#                 TO BE DECLARED HERE ALSO.                            #
#                                                                      #
  
      BASED ARRAY DCL$DMP S(12);
        BEGIN 
        ITEM DCL$ACCOUNT     U(03,00,24);        # NO. OF LINES OUTPUT #
        ITEM DCL$ACCLIMIT    U(03,24,24);        # ACCOUNTING LIMIT    #
        ITEM DCL$PMSIZE      U(03,48,12);        # PM SIZE             #
        ITEM DCL$DAYFILE     U(04,00,24);        # DAYFILE PRU INDEX   #
        ITEM DCL$EOIPRU      U(04,24,24);        # EOI PRU INDEX       #
        ITEM DCL$DISKERR     U(04,48,12);        # DISK ERROR FIELD    #
        ITEM DCL$DSKCODE     U(04,57,03);        # DISK ERROR CODE     #
        ITEM DCL$CURPRU      U(05,00,18);        # CURRENT PRU INDEX   #
        ITEM DCL$IOQTORD     U(05,18,12);        # IOQT ORDINAL        #
        ITEM DCL$FNTORD      U(05,30,12);        # FNT ORDINAL         #
        ITEM DCL$FILETYPE    U(05,42,06);        # FILE TYPE           #
        ITEM DCL$FILEEC      U(05,42,03);        # EXTERNAL CHARACTER  #
        ITEM DCL$FILEIC      U(05,46,02);        # INTERNAL CHARACTER  #
        ITEM DCL$BANNER      U(05,48,03);        # NUMBER OF BANNER    #
        ITEM DCL$RETURN      B(05,51,01);        # RETURN FILE FLAG    #
        ITEM DCL$BANPUT      U(05,52,03);        # NUMBER OF BANNER BLK#
        ITEM DCL$FET0        I(06,00,60);        # FIRST WORD OF FET   #
        ITEM DCL$FETLFN      C(06,00,07);        # OUTPUT FILE NAME    #
        ITEM DCL$FETJSN      C(06,00,04);    # FET JOB SEQUENCE NUMBER #
        ITEM DCL$JSN         C(06,00,04);      # JOB SEQUENCE NUMBER   #
        ITEM DCL$ZERO        U(06,24,18);      # ZERO FIELD            #
        ITEM DCL$FETSTAT     U(06,42,18);        # FET STATUS          #
        ITEM DCL$DSPERR      U(06,42,06);        # DSP ERROR FIELD     #
        ITEM DCL$FETERR      U(06,46,04);        # FET ERROR FIELD     #
        ITEM DCL$FETEOI      B(06,50,01);        # END OF INFORMATION  #
        ITEM DCL$FETCODE     U(06,51,09);        # REQUEST/RETURN CODE #
        ITEM DCL$FETEOR      B(06,55,01);        # END OF RECORD       #
        ITEM DCL$FETEOF      B(06,56,01);        # END OF FILE         #
        ITEM DCL$FETCB       B(06,59,01);        # REQUEST COMPLETE BIT#
        ITEM DCL$FETRAN      B(07,12,01);        # RANDOM CIO FLAG     #
        ITEM DCL$FETERRP     B(07,15,01);        # ERROR PROCESSING    #
        ITEM DCL$FETLEN      U(07,36,06);        # FET LENGTH          #
        ITEM DCL$FETFIRST    U(07,42,18);        # FET FIRST POINTER   #
        ITEM DCL$DSPFT       U(07,00,12);      # TERMINATION FIELD     #
        ITEM DCL$DSPT8       B(07,01,01);      # TRAIN TYPE A9         #
        ITEM DCL$DSPFLAGS    U(07,42,18);        # DSP SPECIAL FLAGS   #
        ITEM DCL$DSPREP      B(07,45,01);        # CHANGE REPEAT COUNT #
        ITEM DCL$DSPNDM      B(07,47,01);        # DSP NO DAYFILE FLAG #
        ITEM DCL$DSPPFL      B(07,50,01);        # DSP PRIORITY FLAG   #
        ITEM DCL$FETIN       I(08,00,60);        # FET IN POINTER      #
        ITEM DCL$FETOUT      I(09,00,60);        # FET OUT POINTER     #
        ITEM DCL$DSPPR       U(09,48,12);        # DSP PRIORITY VALUE  #
        ITEM DCL$DSPPRB      B(09,47,01);        # DSP PRIORITY BIT    #
        ITEM DCL$FETFNT      U(10,00,12);        # FET FNT ORDINAL     #
        ITEM DCL$FETIOQT     U(10,12,12);      # IOQT ORDINAL          #
        ITEM DCL$FETLIMIT    U(10,42,18);        # FET LIMIT POINTER   #
        ITEM DCL$DSPRC       U(10,43,05);        # REPEAT COUNTER      #
        ITEM DCL$DSPFNT      U(10,48,12);        # DSP FNT ORDINAL     #
        ITEM DCL$CONTROL     U(11,00,12);        # QAP CONTROL FIELD   #
        ITEM DCL$NBF         U(11,12,01);        # BOTTOM-OF-FORM FLAG #
        ITEM DCL$PL          U(11,15,09);        # LP PAGE LENGTH      #
        ITEM DCL$ORIGIN      U(11,48,12);        # QAP ORIGIN FIELD    #
        ITEM DCL$FETINDEX    U(12,30,30);        # RANDOM PRU INDEX    #
        ITEM DCL$FETCRI      U(12,00,30);        # CURRENT PRU INDEX   #
        ITEM DCL$FET6        I(12,00,60);        # LAST WORD OF FET    #
        ITEM DCL$ABH         U(12,00,60);        # BLOCK HEADER        #
        ITEM DCL$DATA        U(13,00,60);        # 1ST WORD OF OFC/DATA#
        END 
