*COMDECK FETSNDL
      DEF PRULNGTH   # 64  #;        # PRU LENGTH                      #
      COMMON NDLFETS; 
      BEGIN 
      ARRAY ERR1FET [0:0] S(5); # PASS 1 ERROR FILE                    #
        ITEM
          E1LFN C(0,0,7) = ["ZZZZZU1"],# LOGICAL FILE NAME             #
          E1CODE U(0,50,10) = [3],     # REQUEST/RETURN CODE           #
          E1LENG U(1,36,6) = [0],      # FET LENGTH MINUS FIVE         #
          E1FIRST U(1,42,18) = [0],    # FIRST                         #
          E1OUT U(3,42,18) = [0],      # OUT                           #
          E1IN U(2,42,18) = [0],       # IN                            #
          E1LIMIT U(4,42,18) = [1];    # LIMIT                         #
      ARRAY ERR2FET [0:0] S(5); # PASS 2 ERROR FILE                    #
        ITEM
          E2LFN C(0,0,7) = ["ZZZZZU2"],# LOGICAL FILE NAME             #
          E2CODE U(0,50,10) = [3],     # REQUEST/RETURN CODE           #
          E2LENG U(1,36,6) = [0],      # FET LENGTH MINUS FIVE         #
          E2FIRST U(1,42,18) = [0],    # FIRST                         #
          E2OUT U(3,42,18) = [0],      # OUT                           #
          E2IN U(2,42,18) = [0],       # IN                            #
          E2LIMIT U(4,42,18) = [1];    # LIMIT                         #
      ARRAY ESIFET [0:0] S(5); # EXPANDED SECONDARY INPUT FILE         #
        ITEM
          ESILFN C(0,0,7) = ["ZZZZU4A"], # LOGICAL FILE NAME           #
          ESICODE U(0,50,10) = [1],    # REQUEST/RETURN CODE           #
          ESILENG U(1,36,6) = [0],     # FET LENGTH MINUS FIVE         #
          ESIFIRST U(1,42,18) = [0],   # FIRST                         #
          ESIIN U(2,42,18) = [0],      # IN                            #
          ESIOUT U(3,42,18) = [0],     # OUT                           #
          ESILIMIT U(4,42,18) = [1];   # LIMIT                         #
      ARRAY INFET [0:0] S(5); # INPUT FILE                             #
        ITEM
          INLFN C(0,0,7) = ["INPUT"],  # LOGICAL FILE NAME             #
          INCODE U(0,50,10) = [1],     # REQUEST/RETURN CODE           #
          INLNG U(1,36,6) = [0],       # FET LENGTH MINUS FIVE         #
          INFIRST U(1,42,18) = [0],    # FIRST                         #
          INOUT U(3,42,18) = [0],      # OUT                           #
          ININ U(2,42,18) = [0],       # IN                            #
          INLIMIT U(4,42,18) = [1];    # LIMIT                         #
      ARRAY LCFFET [0:0] S(8); # LOCAL CONFIGURATION FILE              #
        ITEM
          LCFLFN C(0,0,7),   # LOGICAL FILE NAME                       #
          LCFCODE U(0,50,10) = [3],    # REQUEST/RETURN CODE           #
          LCFWORD0 (0,0,60),
          LCFRACC U(1,12,1) = [1],     # RANDOM ACCESS BIT             #
          LCFLENG U(1,36,6) = [3],     # FET LENGTH MINUS FIVE         #
          LCFFIRST U(1,42,18) = [0],   # FIRST                         #
          LCFOUT U(3,42,18) = [0],     # OUT                           #
          LCFIN U(2,42,18) = [0],      # IN                            #
          LCFLIMIT U(4,42,18) = [1],   # LIMIT                         #
          LCFCRI U(6,0,30) = [1],      # CURRENT RANDOM INDEX          #
          LCFILNG U(7,24,18),          # INDEX BUFFER LENGTH           #
          LCFIFWA U(7,42,18);          # FWA OF INDEX BUFFER           #
      ARRAY LRFET [0:0] S(8); # LINE RECORD FILE                       #
      ITEM
        LRLFN C(0,0,7) = ["ZZZZZU5"],  # LOGICAL FIE NAME              #
        LRCODE U(0,50,10) = [3],       # REQUEST/RETURN CODE           #
        LRRACC U(1,12,1) = [1],        # RANDOM ACCESS BIT             #
        LRLENG U(1,36,6) = [3],        # FET LENGTH MINUS FIVE         #
        LRFIRST U(1,42,18) = [0],      # FIRST                         #
        LRIN U(2,42,18) = [0],         # IN                            #
        LROUT U(3,42,18) = [0],        # OUT                           #
        LRLIMIT U(4,42,18) = [0],      # LIMIT                         #
        LRCRI U(6,0,30) = [1],         # CURRENT RANDOM INDEX          #
        LR$RR U(6,31,29),              # RANDOM REQUEST                #
        LRILNG U(7,24,18),             # INDEX BUFFER LENGTH           #
        LRIFWA U(7,42,18);             # FWA OF INDEX BUFFER           #
      ARRAY NCFFET [0:0] S(8); # NETWORK CONFIGURATION FILE            #
        ITEM
          NCFLFN C(0,0,7),   # LOGICAL FILE NAME                       #
          NCFCODE U(0,50,10) = [3],    # REQUEST/RETURN CODE           #
          NCFWORD0 (0,0,60),
          NCFRACC U(1,12,1) = [1],     # RANDOM ACCESS BIT             #
          NCFLENG U(1,36,6) = [3],     # FET LENGTH MINUS FIVE         #
          NCFFIRST U(1,42,18) = [0],   # FIRST                         #
          NCFOUT U(3,42,18) = [0],     # OUT                           #
          NCFIN U(2,42,18) = [0],      # IN                            #
          NCFLIMIT U(4,42,18) = [1],   # LIMIT                         #
          NCFCRI U(6,0,30) = [1],      # CURRENT RANDOM INDEX          #
          NCFRR U(6,31,29) = [0],      # RANDOM REQUEST                #
          NCFILNG U(7,24,18),          # INDEX BUFFER LENGTH           #
          NCFIFWA U(7,42,18);          # FWA OF INDEX BUFFER           #
      ARRAY OUTFET [0:0] S(5); # OUTPUT FILE                           #
        ITEM
          OUTLFN C(0,0,7) = ["OUTPUT"],# LOGICAL FILE NAME             #
          OUTCODE U(0,50,10) = [1],    # REQUEST/RETURN CODE           #
          OUTLEN  U(1,36,6) = [0],     # FET LENGTH MINUS FIVE         #
          OUTFIRST U(1,42,18) = [0],   # FIRST                         #
          OUTIN U(2,42,18) = [0],      # IN                            #
          OUTOUT U(3,42,18) = [0],     # OUT                           #
          OUTLIMIT U(4,42,18) = [1];   # LIMIT                         #
      ARRAY SECFET [0:0] S(5); # SECONDARY INPUT FILE                  #
        ITEM
          SECLFN C(0,0,7) = ["ZZZZZU4"], # LOGICAL FILE NAME           #
          SECCODE U(0,50,10) = [1],    # REQUEST/RETURN CODE           #
          SECLENG U(1,36,6)= [0],      # FET LENGTH MINUS FIVE         #
          SECFIRST U(1,42,18) = [0],   # FIRST                         #
          SECIN U(2,42,18) = [0],      # IN                            #
          SECOUT U(3,42,18) = [0],     # OUT                           #
          SECLIMIT U(4,42,18) = [1];   # LIMIT                         #
      ARRAY STFET [0:0] S(5); # STATEMENT TABLE FILE                   #
        ITEM
          STLFN C(0,0,7) = ["ZZZZZU3"],# LOGICAL FILE NAME             #
          STCODE U(0,50,10) = [3],     # REQUEST/RETURN CODE           #
          STLENG U(1,36,6) = [0],      # FET LENGTH MINUS FIVE         #
          STFIRST U(1,42,18) = [0],    # FIRST                         #
          STIN U(2,42,18) = [0],       # IN                            #
          STOUT U(3,42,18) = [0],      # OUT                           #
          STLIMIT U(4,42,18) = [1];    # LIMIT                         #
  
      ARRAY E1WB [0:PRULNGTH] S(1);    # PASS 1 ERROR TABLE            #
        ITEM E1WBWORD (0,0,60); 
      ARRAY E2WB [0:PRULNGTH] S(1);    # PASS 2 ERROR TABLE            #
        ITEM E2WBWORD (0,0,60); 
      ARRAY ESIWB [0:PRULNGTH  ];      # ESI WORKING BUFFER            #
        ITEM ESIWORD C(0,0,10); 
      ARRAY ESI$BUFFER [0:0] S(14); 
        BEGIN                # BUFFER FOR EXPANDED SOURCE LINE         #
        ITEM ESILINE C(0,6,5);         # LINE NUMBER                   #
        ITEM ESI$ERR C(0,48,3);        # SET TO -***- IF ERROR PRESENT #
        ITEM ESI$DEF C(1,30,1);        # SET TO -D- TO INDICATE DEFINE #
        ITEM ESI$SLN C(2,0,120);         # SOURCE LINE                 #
        ITEM ESIBUFF C(0,0,140);
        END 
      ARRAY INWB [0:PRULNGTH ];        # INPUT WORKING BUFFER          #
        ITEM INWORD C(0,0,10);
      ARRAY INPUT$BUFFER [0:0] S(11); 
        BEGIN                # BUFFER FOR INPUT SOURCE LINE            #
        ITEM INPLNUM C(0,6,5);         # LINE NUMBER OF SOURCE         #
        ITEM INPELINE C(0,48,3);       # SET TO -***- IF ERROR PRESENT #
        ITEM INPDLINE C(1,30,1);       # SET TO -D- IF DEFINE PRESENT  #
        ITEM INPLINE  C(2,0,90);       # SOURCE LINE                   #
        ITEM INPWRD1  C(0,0,10);       # WORD 1 OF BUFFER              #
        ITEM INPWRD2  C(1,0,10);       # WORD 2 OF BUFFER              #
        ITEM INPBUFF  C(0,0,110); 
        END 
      ARRAY LCRWB [0:PRULNGTH] S(1);   # LINE CONFIGURATION FILE BUFFER#
        BEGIN 
        ITEM LCRBUFF (0,0,60);
        END 
      ARRAY OUTWB [0:PRULNGTH  ];      # OUTPUT WORKING BUFFER         #
        ITEM OUTWORD C(0,0,10); 
      ITEM OUTBUFF C(135);   # BUFFER FOR OUTPUT  LINE                 #
      ARRAY SECWB [0:PRULNGTH  ];      # SECONDARY INPUT BUFFER        #
        ITEM SECWORD C(0,0,10); 
      ARRAY STWB [0:PRULNGTH] S(1);  # STMT TABLE WORKING BUFFER       #
        ITEM STWBWORD C(0,0,10);
      END #FET COMMON#
