COMAFET 
COMMON
  
#     COMAFET - DEFINITION OF *FET* FIELDS.                           # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMAFET #
  
# 
***   COMAFET - CONTAINS BASED ARRAY WITH DEFINITION OF *FET* FIELDS. 
* 
*     COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
* 
*     *COMAFET* CONTAINS THE *FET* DESCRIPTION WHICH IS USED BY 
*     *ZSETFET* IN INITIALIZING A *FET* FOR A FILE.  FIELD NAMES
*     BEGINNING WITH *FET$MSF* DEFINE FIELDS IN THE *MSF* *FET* ONLY. 
# 
  
      COMMON AFETCOM; 
        BEGIN  # AFETCOM DESCRIPTION #
  
        BASED 
        ARRAY FETSET S(RFETL);       # *FET* DEFINITION # 
          BEGIN 
          ITEM FET$LFN    C(00,00,07);  # LOGICAL FILE NAME # 
          ITEM FET$LN     U(00,42,04);  # LEVEL NUMBER #
          ITEM FET$AT     U(00,46,04);  # ABNORMAL TERMINATION CODES #
          ITEM FET$CODE   U(00,50,10);  # REQUEST/RETURN CODE # 
          ITEM FET$EOI    B(00,50,01);  # END-OF-INFORMATION BIT #
          ITEM FET$LOCK   B(00,59,01);  # *FET* INTERLOCK BIT # 
          ITEM FET$DT     U(01,00,12);  # DEVICE TYPE # 
          ITEM FET$R      B(01,12,01);  # RANDOM ACCESS BIT # 
          ITEM FET$UP     B(01,14,01);  # USER PROCESSING BIT # 
          ITEM FET$EP     B(01,15,01);  # ERROR PROCESSING BIT #
          ITEM FET$L      U(01,36,06);  # *FET* LENGTH (OVER 5 WORDS) # 
          ITEM FET$FRST   U(01,42,18);  # *FWA* OF *CIO* BUFFER # 
          ITEM FET$IN     U(02,42,18);  # IN POINTER FOR *CIO* BUFFER # 
          ITEM FET$OUT    U(03,42,18);  # OUT POINTER FOR *CIO* BUFFER
                                        # 
          ITEM FET$MSFPRU U(04,00,24);  # NEXT *PRU* TO WRITE TO STREAM 
                                        # 
          ITEM FET$FNTP   U(04,00,12);  # *FNT* POINTER # 
          ITEM FET$PRU    U(04,24,18);  # PHYSICAL RECORD UNIT SIZE # 
          ITEM FET$MSFSAF B(04,35,01);  # *MSF* STREAMING ACTIVE FLAG # 
          ITEM FET$MSFR1  U(04,36,06);  # RESERVED FOR CDC #
          ITEM FET$LIM    U(04,42,18);  # *LWA*+1 OF *CIO* BUFFER # 
          ITEM FET$FWRK   U(05,12,18);  # *FWA* OF WORKING STORAGE #
          ITEM FET$LWRK   U(05,42,18);  # *LWA*+1 OF WORKING STORAGE #
          ITEM FET$LA     U(05,42,18);  # LIST ADDRESS #
          ITEM FET$CRI    U(06,00,30);  # CURRENT RANDOM INDEX #
          ITEM FET$W      B(06,30,01);  # RANDOM REWRITE INDEX #
          ITEM FET$RR     U(06,31,29);  # *RSA* FOR RANDOM *I/O*
                                          REQUEST # 
          ITEM FET$DEC    U(06,31,29);  # DETAIL ERROR CODE # 
          ITEM FET$IL     U(07,24,18);  # INDEX LENGTH #
          ITEM FET$IF     U(07,42,18);  # *FWA* OF INDEX BUFFER # 
          END 
  
        END  # AFETCOM DESCRIPTION #
  
      END  # COMAFET #
  
                                               CONTROL LIST;
