*COMDECK COMQFIL                   06DEC80
# 
      COMQFIL - FILE TABLE ENTRIES
# 
  
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
  
# 
***   COMQFIL - ACTIVE FILE TABLE.
# 
  
# 
**    FILENT  - LENGTH OF EACH ENTRY IN THE FILE TABLE. 
# 
  
      DEF FILENT    #34#;          # LENGTH OF FILE TABLE ENTRY # 
      DEF FILENT1   #28#;          # LENGTH OF ENTRY MINUS FILEMSG #
  
      COMMON COMQFIL;              # COMMON BLOCK COMQFIL # 
      BEGIN      # COMMON BLOCK COMQFIL # 
      BASED ARRAY FILETAB [0:0] S(FILENT);  # FILE STATUS TABLE # 
        BEGIN 
  
        ITEM FILELFNC   C(00,00,07);  # LOGICAL FILE NAME # 
        ITEM FILELFN    U(00,00,42);  # LOGICAL FILE NAME # 
        ITEM FILELIDC   C(00,42,03);  # LID # 
        ITEM FILELID    U(00,42,18);  # LID # 
  
        ITEM FILESTS    U(01,00,60);  # TRANSFER STATUS # 
  
        ITEM FILEWD3    U(02,00,60);  # WORD 3 #
        ITEM FILECEB    U(02,00,02);  # CONNECTION BROKEN/ENDED # 
        ITEM FILECB     B(02,00,01);  # CONNECTION BROKEN FLAG #
        ITEM FILECE     B(02,01,01);  # CONNECTION END MESSAGE SENT # 
        ITEM FILECM     B(02,02,01);  # CONNECTION MADE FLAG #
        ITEM FILEUER    B(02,03,01);  # USER ERROR FLAG # 
        ITEM FILEBIP    B(02,04,01);  # BLOCK IN PROGRESS # 
#                       B(02,05,02)     UNUSED #
        ITEM FILECER    B(02,07,01);  # COMMAND ERROR # 
        ITEM FILEBRK    B(02,08,01);  # FC/BRK SENT # 
#                        (02,09,03)     UNUSED  # 
  
        ITEM FILECMD    U(02,12,18);  # COMMAND RECEIVED/SENT FLAGS # 
        ITEM FILE62     U(02,12,02);
        ITEM FILER62    B(02,12,01);  # COMMAND 62 RECEIVED # 
        ITEM FILES62    B(02,13,01);  # COMMAND 62 SENT # 
  
        ITEM FILE61     U(02,14,02);
        ITEM FILER61    B(02,14,01);  # COMMAND 61 RECEIVED # 
        ITEM FILES61    B(02,15,01);  # COMMAND 61 SENT # 
  
        ITEM FILE60     U(02,16,02);
        ITEM FILER60    B(02,16,01);  # COMMAND 60 RECEIVED # 
        ITEM FILES60    B(02,17,01);  # COMMAND 60 SENT # 
  
        ITEM FILE5      U(02,18,02);
        ITEM FILER5     B(02,18,01);  # COMMAND 5 RECEIVED #
        ITEM FILES5     B(02,19,01);  # COMMAND 5 SENT #
  
        ITEM FILE4      U(02,20,02);
        ITEM FILER4     B(02,20,01);  # COMMAND 4 RECEIVED #
        ITEM FILES4     B(02,21,01);  # COMMAND 4 SENT #
  
        ITEM FILE3      U(02,22,02);
        ITEM FILER3     B(02,22,01);  # COMMAND 3 RECEIVED #
        ITEM FILES3     B(02,23,01);  # COMMAND 3 SENT #
  
        ITEM FILE2      U(02,24,02);
        ITEM FILER2     B(02,24,01);  # COMMAND 2 RECEIVED #
        ITEM FILES2     B(02,25,01);  # COMMAND 2 SENT #
  
        ITEM FILE1      U(02,26,02);
        ITEM FILER1     B(02,26,01);  # COMMAND 1 RECEIVED #
        ITEM FILES1     B(02,27,01);  # COMMAND 1 SENT #
  
        ITEM FILE0      U(02,28,02);
        ITEM FILER0     B(02,28,01);  # COMMAND 0 RECEIVED #
        ITEM FILES0     B(02,29,01);  # COMMAND 0 SENT #
  
        ITEM FILERCN    U(02,30,06);  # REQUESTED CONNECTION NUMBER # 
#                        (02,36,06)     UNUSED #
        ITEM FILETIM    U(02,42,18);  # TIME LAST COMMAND SENT #
  
        ITEM FILENAK    U(03,00,12);  # NAK COUNT # 
        ITEM FILEBNO    U(03,12,12);  # IN PROGRESS NUMBER #
        ITEM FILECPDC   C(03,24,03);  # CURRENT REMOTE PID #
        ITEM FILECPD    U(03,24,18);  # CURRENT PID # 
        ITEM FILEABN    U(03,42,18);  # LAST ABN SENT ON CONNECTION # 
  
        ITEM FILEDDC    C(04,00,02);  # DD ATTRIBUTE #
        ITEM FILEDCC    C(04,12,02);  # DISPOSITION CODE #
  
      CONTROL IFEQ OS$NOS;
        ITEM FILESCL    C(04,24,02);  # SERVICE CLASS # 
        ITEM FILESCLU   U(04,24,12);  # SERVICE CLASS # 
      CONTROL ENDIF;
  
      CONTROL IFEQ OS$NOSBE;
        ITEM FILEPRI    U(04,24,12);  # QUEUE PRIORITY #
      CONTROL ENDIF;
  
        ITEM FILESTX    U(04,36,06);  # STATE-OF-TRANSFER ORDINAL # 
        ITEM FILENHA    U(04,42,18);  # FWA OF NETWORK BUFFER # 
  
        ITEM FILETOU    U(05,00,24);  # TIMEOUT # 
        ITEM FILEERT    U(05,24,18);  # EXPLICIT ROUTING TEXT # 
        ITEM FILERBN    U(05,42,18);  # LAST RECEIVED ABN # 
  
        ITEM FILEJBN    C(06,00,07);  # JOB NAME ON REMOTE #
        ITEM FILETBF    U(06,42,18);  # POINTER TO TEXT BUFFER CHAIN #
  
        ITEM FILECMM    U(07,00,60);  # CMM NAME FOR THIS ACN # 
  
        ITEM FILEQAR    U(08,00,03);  # GETQFIL RESPONSE STATE #
        ITEM FILEXDD    U(08,00,03);  # NETXFR DD # 
#         ** WARNING **  ABOVE ITEMS OVERLAP #
        ITEM FILEINU    B(08,03,01);  # INUSE COUNTS INCREMENTED #
        ITEM FILELBK    B(08,04,01);  # LOOPBACK TRANSFER # 
        ITEM FILEANW    B(08,05,01);  # EVICT FILE FLAG # 
        ITEM FILEINT    B(08,06,01);  # FILE IS OF TYPE INPUT # 
        ITEM FILEDAYF   B(08,07,01);  # DAYFILE ATTACHED #
        ITEM FILELIDSH  B(08,08,01);  # STORE-FORWARD ON HOST # 
        ITEM FILESPC    U(08,18,06);  # SPACING CODE #
        ITEM FILERMH    C(08,24,03);  # REMOTE MF TYPE #
        ITEM FILEIRT    U(08,42,18);  # IMPLICIT ROUTE TEXT # 
  
        ITEM FILEOTY    C(09,00,02);  # DEVICE TYPE # 
        ITEM FILETID    U(09,12,12);  # TID # 
        ITEM FILETIDC   C(09,12,02);  # TERMINAL IDENTIFIER # 
        ITEM FILEIDDC   C(09,24,02);  # INITIAL DD (INITIATOR) #
        ITEM FILEECS    U(09,36,06);  # EXTERNAL CHARACTISTICS #
        ITEM FILEPFC    C(09,42,02);  # FORMS CODE #
        ITEM FILEICS    U(09,54,03);  # INTERNAL CHARACTERISTICS #
  
        ITEM FILECWD    U(10,00,60);  # COMMAND FLAGS # 
  
        ITEM FILEDFM    U(11,00,42);  # DESTINATION FAMILY NAME # 
        ITEM FILEDFMC   C(11,00,07);  # DESTINATION FAMILY NAME # 
        ITEM FILESEL    U(11,42,18);  # FILE SELECTION CLASS ORDINAL #
  
        ITEM FILEDUN    U(12,00,42);  # DESTINATION USER NAME # 
        ITEM FILEDUNC   C(12,00,07);  # DESTINATION USER NAME # 
        ITEM FILEDUI    U(12,42,18);  # DESTINATION USER INDEX #
  
        ITEM FILEREP    U(13,00,06);  # REPEAT COUNT #
        ITEM FILEID     U(13,06,06);  # BATCH ID #
        ITEM FILESRT    U(13,12,18);  # SYSTEM ROUTING TEXT # 
        ITEM FILEORG    U(13,30,06);  # FILE ORIGIN TYPE #
        ITEM FILESIZ    U(13,36,24);  # FILE SIZE IN PRUS # 
  
        ITEM FILECUN    U(14,00,42);  # CREATION USER NUMBER #
        ITEM FILECUNC   C(14,00,07);  # CREATION USER NUMBER #
        ITEM FILEWHA    U(14,42,18);  # WORKING COMMAND BUFFERS # 
  
        ITEM FILECFM    U(15,00,42);  # CREATION FAMILY NAME #
        ITEM FILECFMC   C(15,00,07);  # CREATION FAMILY NAME #
#                        (15,42,02)      NOT USED # 
        ITEM FILEPI     U(15,44,04);  # PRINT-IMAGE-ORDINAL # 
#                        (15,48,12)      NOT USED # 
  
        ITEM FILECHR    U(16,00,18);  # TOTAL NUMBER OF CHARACTERS #
        ITEM FILEBUF    U(16,18,18);  # FWA OF PROTOCOL DATA #
        ITEM FILEACKW   U(16,36,18);  # ACKNOLEDGEMENT WINDOW # 
#                        (16,54,06)      NOT USED  #
  
        ITEM FILEQFNC   C(17,00,07);  # QUEUE FILE NAME # 
        ITEM FILEDBZ    U(17,42,18);  # DOWNLINE BLOCK SIZE # 
  
        ITEM FILEUJN    U(18,00,42);  # USER JOB NAME # 
        ITEM FILEUJNC   C(18,00,07);  # USER JOB NAME # 
        ITEM FILEMBZ    U(18,42,18);  # MAXIMUM BLOCK SIZE #
  
        ITEM FILEFTS    U(19,00,06);  # FILE TRANSFER STATE # 
        ITEM FILEPTS    U(19,06,06);  # PREVIOUS FILE TRANSFER STATE #
        ITEM FILESLD    U(19,12,18);  # SLID - BINARY#
        ITEM FILESLDC   C(19,12,03);  # SLID - CHAR#
        ITEM FILERTY    U(19,30,12);  # ERROR RETRY COUNT # 
        ITEM FILECLF    U(19,42,18);  # LOG FILE FET ADDRESS #
  
        ITEM FILEOUN    U(20,00,42);  # OWNER USER NUMBER # 
        ITEM FILEOUNC   C(20,00,07);  # OWNER USER NUMBER # 
        ITEM FILERMB    U(20,42,18);  # REMOTE MESSAGE BUFFERS #
  
        ITEM FILEOFM    U(21,00,42);  # OWNER FAMILY NAME # 
        ITEM FILEOFMC   C(21,00,07);  # OWNER FAMILY NAME # 
        ITEM FILEABL    U(21,42,18);  # APPLICATION BLOCK LIMIT # 
  
        ITEM FILEPW     U(22,00,42);  # ENCRYPTED BATCH PASSWORD #
        ITEM FILEPW1    U(22,00,21);  # FIRST HALF OF PASSWORD #
        ITEM FILEPW2    U(22,21,21);  # SECOND HALF OF PASSWORD # 
  
        ITEM FILEFCI    U(23,00,60);  # FACILITY TEXT # 
        ITEM FILEFCIC   C(23,00,10);  # FACILITY TEXT # 
        ITEM FILEFCIC1  C(23,00,01);  # 1ST CHARACTER # 
  
        ITEM FILESTR    C(24,00,10);  # START TIME ( HH.MM.SS.) # 
  
        ITEM FILECHGU   U(25,00,60);  # CHARGE NUMBER # 
        ITEM FILECHG1   U(25,00,42);  # CHARACTERS 1-7 #
        ITEM FILECHG1C  C(25,00,07);  # CHARACTERS 1-7 #
        ITEM FILECHG2   U(25,42,18);  # CHARACTERS 8-10 # 
        ITEM FILECHG2C  C(25,42,03);  # CHARACTERS 8-10 # 
  
        ITEM FILEPJ1U   U(26,00,60);  # PROJECT NUMBER #
        ITEM FILEPJ11   U(26,00,42);  # CHARACTERS 1-7 #
        ITEM FILEPJ11C  C(26,00,07);  # CHARACTERS 1-7 #
        ITEM FILEPJ12   U(26,42,18);  # CHARACTERS 8-10 # 
        ITEM FILEPJ12C  C(26,42,03);  # CHARACTERS 8-10 # 
  
        ITEM FILEPJ2U   U(27,00,60);  # PROJECT NUMBER #
        ITEM FILEPJ21   U(27,00,42);  # CHARACTERS 11-17 #
        ITEM FILEPJ21C  C(27,00,07);  # CHARACTERS 11-17 #
        ITEM FILEPJ22   U(27,42,18);  # CHARACTERS 18-20 #
        ITEM FILEPJ22C  C(27,42,03);  # CHARACTERS 18-20 #
# 
**      ** NOTE ** THE FIRST *FILENT1* WORDS OF THE FILE TABLE ENTRY
*                  ARE ZEROED BY *RELAFT*.  FILEMSG, WHICH OCCUPIES 
*                  WORDS FILENT1 TO (FILENT-1), IS BLANK-FILLED.
# 
  
        ITEM FILEMSG    C(FILENT1,00,60);  # LAST DAYFILE MESSAGE # 
  
        END 
  
# 
**    ACTIVE FILE TABLE.
*     THIS TABLE CONTAINS AN ENTRY FOR EACH FILE BEING TRANSFERRED. 
*     THE NUMBER OF ENTRIES DEPENDS ON THE MAXIMUM CONNECTIONS ALLOWED. 
# 
      ARRAY [1:ACNMAXC] S(1);      # POINTER TO FILETAB ENTRY # 
        BEGIN 
        ITEM AFT        U(00,00,60) = [ACNMAXC(0)]; 
        END 
  
      END        # COMMON BLOCK COMQFIL # 
  
#     END OF COMDECK COMQFIL #
                                               CONTROL LIST;
