*COMDECK ACN$DMP
#                                                                      #
#     ACN$TABLE - FORMATTED FOR INPUT TO FORTRAN.                #
#                                                                      #
#           USE - THIS IS AN EXACT DUPLICATE OF BASED ARRAY ACN$COM,   #
#                 FORMATTED SUCH THAT FORTRAN CAN BE USED TO GENERATE  #
#                 A SYMBOLIC TABLE DUMPING PROGRAM (IE. DMP$ACN).      #
#                 ANY CHANGES TO ACN$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$ACN).  #
#                 SEE THE FORTRAN USERS GUIDE FOR MORE INFORMATION.    #
#                                                                      #
#          NOTE - FORTRAN REQUIRES ANY STATUS LISTS USED IN ACN$COM    #
#                 TO BE DECLARED HERE ALSO.                            #
#                                                                      #
#   ACNCONSTATE - SAME AS CONNECTSTATE STATUS LIST IN MISC$.           #
  
      STATUS ACNCONSTATE  # ACN$STATE   # 
        ACNNONEXST, 
        ACNPRECONN, 
        ACNCONNECT, 
        ACNACTIVE,
        ACNIDLDOWN, 
        ACNENDCONN; 
  
#    ACNDEVTYPE - SAME AS DEVICETYPE STATUS LIST IN MISC$.             #
  
      STATUS ACNDEVTYPE   # ACN$DEVTYPE # 
        ACNCONSOLE, 
        ACNCARDRDR, 
        ACNLINEPRT, 
        ACNPUNCH, 
        ACNPLOTTER; 
  
#    ACNCHAINS - SAME AS CHAINS STATUS LIST IN MISC$.                  #
  
      STATUS ACNCHAINS   # ACN$CHAIN #
        ACNNULL,
        ACNEVENT, 
        ACNSMP$,
        ACNEXT$CMD, 
        ACNCMD$,
        ACNDIS$,
        ACNDCM$,
        ACNUCM$,
        ACNNEW$,
        ACNCON$END, 
        ACNFIN$CON, 
        ACNFIN$DEV, 
        ACNQCM$,
        ACNBACKGRD; 
  
      BASED ARRAY ACN$DMP S(1); 
        BEGIN 
        ITEM ACN$WORD  U(00,00,60); # ENTIRE ACN$TABLE ENTRY.          #
        ITEM ACN$CTLR  I(00,00,12); # ACN OF CONTROLLING CONSOLE, USED #
                                    # FOR BATCH DEVICES ONLY.          #
        ITEM ACN$STATE S:ACNCONSTATE(00,12,03); # STATE OF CONNECTION  #
        ITEM ACN$MODE  U(00,15,06); # BATCH DEVICE STATE               #
        ITEM ACN$DEVTYPE S:ACNDEVTYPE(00,21,04); # DEVICE TYPE         #
        ITEM ACN$CHAIN S:ACNCHAINS(00,26,04); # CHAIN THIS CONNECTION  #
                                              # IS CURRENTLY ON.       #
        ITEM ACN$NEXT  I(00,30,12); # ACN OF NEXT CONNECTION ON THIS   #
                                    # CHAIN.                           #
        ITEM ACN$DEVINDEX U(00,42,06); # INDEX INTO TCB FOR TCB$DEVICE,#
                                       # USED FOR BATCH DEVICES ONLY.  #
        ITEM ACN$CB    U(00,48,12); # TSB ORDINAL OF THIS ACN-S        #
                                    # CONTROL BLOCK.                   #
        END 
