*COMDECK FITDCLS                                                        001510
                                                                        001520
# STANDARD DECLARATIONS FOR A MODEL FIT                                #001530
                                                                        001540
        BEGIN                                                           001550
        ITEM FITFW   U(0,0,60);         # FIRST WORD OF FIT            #001560
        ITEM FITWORD U(0,0,60);         # FIRST WORD OF FIT            #001570
        ITEM FITFP   U(10,26,7);        # FILE POSITION                #001580
        ITEM FITEOI  B(10,26,1);        # TRUE IF FILE POSITION AT EOI #001590
        ITEM FITEOR  B(10,28,1);        # TRUE IF FILE POSITION AT EOR #001600
        ITEM FITRL   U(11,0,24);        # RECORD LENGTH                #001610
        ITEM FITOF   U(11,25,2);        # OPEN FLAG                    #001620
        ITEM FITFO   U(11,39,3);        # FILE ORGANIZATION            #001630
        ITEM FITMRL  U(12,0,24);        # MAXIMUM RECORD LENGTH        #001640
        ITEM FITDX   U(12,42,18);       # DATA EXIT ADDRESS            #001650
        ITEM FITEFC U(13,4,2);         # ERROR FILE CONTROL            #001660
        ITEM FITES   U(13,33,9);        # ERROR STATUS                 #001670
        ITEM FITIRS  U(13,33,9);        # ERROR STATUS                 #001680
        ITEM FITEX   U(13,42,18);       # ERROR EXIT ADDRESS           #001690
        ITEM FITPD   U(17,03,3);        # PROCESSING DIRECTION         #001700
        ITEM FITWSA  U(15,42,18);       # USER WORKING STORAGE AREA    #001710
        ITEM FITMKL  U(16,33,9);        # MAJOR KEY LENGTH             #001720
        ITEM FITPM   B(20,01,1);        # PROCESSING MODE              #001730
        ITEM FITKA   U(24,42,18);       # KEY ADDRESS                  #001740
        ITEM FITRKW  U(31,0,12);        # RELATIVE KEY WORD POSITION   #001750
        ITEM FITRKP  U(31,12,4);        # RELATIVE KEY WORD POS IN RKW #001760
        ITEM FITKP   U(31,16,4);        # KEY POSITION                 #001770
        ITEM FITKL   U(31,20,9);        # KEY LENGTH                   #001780
        ITEM FITKT   U(32,30,3);        # KEY TYPE                     #001790
        ITEM FITREL  U(32,33,3);        # RELATION OPERATOR            #001800
        ITEM FITLW   U(34,0,60);        # FIRST WORD OF FIT PARAMETERS #001810
        ITEM FITKEYFIELDS U(31,0,29);                                   000230
        END                                                             001820
                                                                        001830
