*COMDECK FITDCLS
  
# STANDARD DECLARATIONS FOR A MODEL FIT                                #
  
        BEGIN 
        ITEM FITFW   U(0,0,60);         # FIRST WORD OF FIT            #
        ITEM FITWORD U(0,0,60);         # FIRST WORD OF FIT            #
        ITEM FITLFN  U(0,0,42);         # FIT LFN                      #
        ITEM FITFP   U(10,26,7);        # FILE POSITION                #
        ITEM FITEOI  B(10,26,1);        # TRUE IF FILE POSITION AT EOI #
        ITEM FITEOR  B(10,28,1);        # TRUE IF FILE POSITION AT EOR #
        ITEM FITRL   U(11,0,24);        # RECORD LENGTH                #
        ITEM FITOF   U(11,25,2);        # OPEN FLAG                    #
        ITEM FITFO   U(11,39,3);        # FILE ORGANIZATION            #
        ITEM FITMRL  U(12,0,24);        # MAXIMUM RECORD LENGTH        #
        ITEM FITDX   U(12,42,18);       # DATA EXIT ADDRESS            #
        ITEM FITEFC  U(13,4,2);         # ERROR FILE CONTROL           #
        ITEM FITES   U(13,33,9);        # ERROR STATUS                 #
        ITEM FITIRS  U(13,33,9);        # ERROR STATUS                 #
        ITEM FITEX   U(13,42,18);       # ERROR EXIT ADDRESS           #
        ITEM FITWSA  U(15,42,18);       # USER WORKING STORAGE AREA    #
        ITEM FITMKL  U(16,33,9);        # MAJOR KEY LENGTH             #
        ITEM FITFNF  B(17,0,1);         # FATAL/NONFATAL FLAG.         #
        ITEM FITOC   U(17,1,2);         # OPEN/CLOSE FIELD             #
        ITEM FITPD   U(17,03,3);        # PROCESSING DIRECTION         #
        ITEM FITPTL  U(18,0,24);        # PARTIAL TRANSFER LENGTH      #
        ITEM FITPM   B(20,01,1);        # PROCESSING MODE              #
        ITEM FITKNE  B(24,1,1);         # KEY NOT EQUAL                #
        ITEM FITKA   U(24,42,18);       # KEY ADDRESS                  #
        ITEM FITRKW  U(31,0,12);        # RELATIVE KEY WORD POSITION   #
        ITEM FITRKP  U(31,12,4);        # RELATIVE KEY WORD POS IN RKW #
        ITEM FITKP   U(31,16,4);        # KEY POSITION                 #
        ITEM FITKL   U(31,20,9);        # KEY LENGTH                   #
        ITEM FITKT   U(32,30,3);        # KEY TYPE                     #
        ITEM FITREL  U(32,33,3);        # RELATION OPERATOR            #
        ITEM FITLW   U(34,0,60);        # FIRST WORD OF FIT PARAMETERS #
        END 
  
