*DECK TFIT
      PROC TFIT  ;
      BEGIN 
      CONTROL STEXT;
#                                                                      # FIT
#                                                                      # FIT
#     THE DATA ITEMS FOR THE ARRAY *FIT* ARE GENERATED FROM THE CRMPL  # FIT
#     USING THE PROGRAM *TABGEN*.  THE PROGRAM READS THE MICROS ON THE # FIT
#     PL THAT DEFINE THE FIELDS.  THE OUTPUT OF ALL EXTERNAL FIELDS    # FIT
#     IS PUNCHED AND SORTED ALPHABETICALLY FOR EASIER REFERENCE.       # FIT
#                                                                      # FIT
#     IN CASES WHERE TWO FITS ARE NEEDED SIMULTANEOUSLY, THE ARRAY     # FIT
#     *AFIT* IS PROVIDED.  ONLY THE FIELDS WHICH ARE ACTUALLY NEEDED   # FIT
#     ARE SUPPLIED IN *AFIT*.  NEW FIELDS CAN BE ADDED AS NEEDED.      # FIT
#     AFIT ALSO CONTAINS FIELDS THAT QU NEEDS WHICH ARE NOT DEFINED    # FIT
#     QU CRM AS EXTERNAL FELDS.  FOR EXAMPLE, FET FIELDS OR PDF.       # FIT
#                                                                      # FIT
#     THE USE OF ANY FIT FIELDS ANYWHERE IN QU MUST CONFORM TO THE     # FIT
#     STANDARD SET FORTH HERE -- THE CRM NAME MUST BE USED, AND IT     # FIT
#     MUST BE PREFIXED BY A STRING THAT IDENTIFIES IT AS A FIT FIELD.  # FIT
#     FOR EXAMPLE  ITEM AREAFITES, CATAFITES.                          # FIT
#                                                                      # FIT
#     ANY USE OF FIT FIELDS OTHER THAN *FIT* OR *AFIT* MUST BE         # FIT
#     DOCUMENTED IN COMMENTS IMMEDIATELY FOLLOWING THIS CARD.          # FIT
#     ARRAY        DECK      FIELDS                                    # FIT
#     -----        ----      ------                                    # FIT
#     AREA$TABLE   AREA$TBL  AT$FIT/FO,ES                              # FIT
#     AREAFIT      CCOMMON   AREAFIT/ES                                # FIT
#     CATAFIT      CLFN      CATAFIT/ES                                # FIT
#     HOLDER       LFNPROC   HOLD/BT,CL,CP,C1,HL,LT,MRL,RT,SB,TL       #
#     -            PRECOMP   HOLD/BT,LT,MRL,RT,(PTR)                   #
#     -            SORT      HOLD/(PTR)                                #
#     SCHEMAFIT    SCHEMAFIT SCHEMAFIT/ES                              # FIT
#     SRCFIT       SSRC      SRCFIT/ES                                 # FIT
#     FROMCAT      DUPLICATE FRMCATFIT/MRL,ES                          # FIT
#     TOCAT        DUPLICATE TOCATFIT/MRL,ES                           # FIT
#     -            INITIAL   INPUT,OUTPUT,TRAN/LFN                     # FIT
#     RPFET        PAGE      FET FIELDS                                # FIT
#                                                                      # FIT
#     NOTE THAT THIS DECK IS SET UP SO THAT IT MAY BE CALLED WITH      # FIT
#     AN XREF PRECEDING THE CALL.  SURROUNDING BEGIN/END IS NOT NEEDED.# FIT
                                                                         FIT
      BASED ARRAY FIT;                                                   FIT
        BEGIN  # 03/10/77 #                                              FIT
        ITEM FITASCII     U(05,36,02);  #ASCII CHAR SET BITS           # FIT
        ITEM FITBAL       B(15,31,01);  #BUFFER ALLOCATED BY CRM       # FIT
        ITEM FITBBH       B(17,41,01);  #BUFFER CAN BE BELOW HHA       # FIT
        ITEM FITBCK       B(20,36,01);  #CKSUM BIT                     # FIT
        ITEM FITBFS       I(17,42,18);  #CIRCULAR BUFFER SIZE          # FIT
        ITEM FITBN        U(19,30,30);  #BLOCK NUMBER                  # FIT
        ITEM FITBT        U(11,36,03);  #BLOCK TYPE                    # FIT
        ITEM FITBZF       I(25,42,18);  #BUZY FET ADDRESS              # FIT
        ITEM FITCDT       I(26,12,18);  #COLLATING TO DISPLAY TABLE    # FIT
        ITEM FITCF        U(11,27,03);  #CLOSE FLAG                    # FIT
        ITEM FITCL        U(16,24,06);  #COUNT FIELD LENGTH RT=T       # FIT
        ITEM FITCM        B(11,24,01);  #CONVERSION MODE               # FIT
        ITEM FITCMPLT     B(00,59,01);  #FET COMPLETE BIT              # FIT
        ITEM FITCNB       B(08,36,01);  #CONTROL PERMISSION BIT        # FIT
        ITEM FITCNF       B(17,40,01);  #CONNECTED FILE FLAG           # FIT
        ITEM FITCP        U(17,15,24);  #BCP OF COUNT FIELD RT=T       # FIT
        ITEM FITCPA       I(32,42,18);  #COMPRESSION RTN ADDR          # FIT
        ITEM FITC1        B(17,13,01);  #COMP-1 BIT RT=D/T             # FIT
        ITEM FITDC        U(01,30,06);  #DISPOSITION CODE              # FIT
        ITEM FITDCA       I(33,42,18);  #DECOMPRESSION RTN ADDR        # FIT
        ITEM FITDCT       I(20,12,18);  #DISPLAY TO COLLATING TABLE    # FIT
        ITEM FITDFC       U(13,02,02);  #DAYFILE CONTROL               # FIT
        ITEM FITDFLG      B(19,41,01);  #DEFERRED LOGGING FLAG         # FIT
        ITEM FITDKI       B(24,37,01);  #DUPLICATE KEY INDICATOR       # FIT
        ITEM FITDP        U(16,44,07);  #DATA BLOCK PADDING FACTOR     # FIT
        ITEM FITDVT       U(01,00,12);  #FET DEVICE TYPE               # FIT
        ITEM FITDV6       U(01,00,06);  #UPPER 6 BITS OF DEVICE TYPE   # FIT
        ITEM FITDX        I(12,42,18);  #DATA EXIT ADDRESS             # FIT
        ITEM FITECT       U(13,06,09);  #TRIVIAL ERROR COUNT           # FIT
        ITEM FITEFC       U(13,04,02);  #ERROR FILE CONTROL            # FIT
        ITEM FITEMK       B(24,36,01);  #EMBEDDED KEY FLAG             # FIT
        ITEM FITEO        U(15,27,03);  #ERROR OPTION                  # FIT
        ITEM FITEOIWA     U(30,30,30);  #WA AT EOI FO=WA               # FIT
        ITEM FITERL       U(13,15,09);  #TRIVIAL ERROR LIMIT           # FIT
        ITEM FITES        U(13,33,09);  #ERROR STATUS                  # FIT
        ITEM FITEX        I(13,42,18);  #ERROR EXIT ADDRESS            # FIT
        ITEM FITEXB       B(08,37,01);  #EXTEND PERMISSION BIT         # FIT
        ITEM FITEXD       B(13,05,01);  #EXTENDED DIAGNOSTIC FLAG      # FIT
        ITEM FITFCS       U(00,51,09);  #FET CODE/STATUS (BITS 0-8)    # FIT
        ITEM FITFCSE      U(00,46,14);  #FET C/S+ERROR   (BITS 0-14)   # FIT
        ITEM FITFEC       U(00,46,05);  #FET ERROR CODE  (BITS 9-13)   # FIT
        ITEM FITFEOF      U(00,55,02);  #FET EOF BITS                  # FIT
        ITEM FITFEOI      B(00,50,01);  #FET EOI BIT                   # FIT
        ITEM FITFEOR      B(00,55,01);  #FET EOR BIT                   # FIT
        ITEM FITFL        U(12,00,24);  #LENGTH OF F/Z RECORDS         # FIT
        ITEM FITFLEV      U(00,42,04);  #FET LEVEL NUMBER(BITS 14-17)  # FIT
        ITEM FITFLM       U(24,06,30);  #FILE LIMIT                    # FIT
        ITEM FITFNF       B(17,00,01);  #FATAL ERROR FLAG              # FIT
        ITEM FITFO        U(11,39,03);  #FILE ORGANIZATION             # FIT
        ITEM FITFP        U(10,26,07);  #FILE POSITION                 # FIT
        ITEM FITFPB       B(24,03,01);  #FILE POSITION BIT             # FIT
        ITEM FITFWB       I(01,42,18);  #FWA CIRCULAR BUFFER           # FIT
        ITEM FITFWI       B(24,02,01);  #FORCED WRITE INDICATOR        # FIT
        ITEM FITF18       I(00,42,18);  #FET C/S,ERR,LEV (BITS 0-17)   # FIT
        ITEM FITHB        B(16,43,01);  #USER HEADER OPTION            # FIT
        ITEM FITHL        U(15,00,24);  #HEADER LENGTH RT=T            # FIT
        ITEM FITHMB       U(18,00,24);  #NUMBER OF HOME BLOCKS         # FIT
        ITEM FITHRL       I(16,42,18);  #HASHING ROUTINE ADDRESS       # FIT
        ITEM FITIBL       U(32,00,24);  #INDEX BLOCK LENGTH            # FIT
        ITEM FITIP        U(31,29,07);  #INDEX BLOCK PADDING FACTOR    # FIT
        ITEM FITIRS       U(13,33,09);  #ERROR STATUS                  # FIT
        ITEM FITKA        I(24,42,18);  #KEY ADDRESS                   # FIT
        ITEM FITKL        U(31,20,09);  #KEY LENFTH                    # FIT
        ITEM FITKNE       B(24,01,01);  #KEY NOT EQUAL                 # FIT
        ITEM FITKP        U(31,16,04);  #BEGINNING CHAR POS OF KEY     # FIT
        ITEM FITKR        U(21,48,12);  #KEY VALUE REPEAT COUNT        # FIT
        ITEM FITKT        U(32,30,03);  #KEY TYPE                      # FIT
        ITEM FITLA        I(10,42,18);  #LABEL ADDRESS                 # FIT
        ITEM FITLBL       U(10,00,24);  #LABEL LENGTH                  # FIT
        ITEM FITLCR       B(10,24,01);  #LABEL ACTION ON PD=I-O TAPE   # FIT
        ITEM FITLFN       U(00,00,42);  #LOGICAL FILE NAME             # FIT
        ITEM FITLFNC      C(00,00,07);  # LFN IN CHARACTER FORMAT      #
        ITEM FITLGX       I(19,42,18);  #LOGGING EXIT ADDRESS          # FIT
        ITEM FITLL        U(16,24,06);  #LENGTH FIELD LENGTH RT=D      # FIT
        ITEM FITLOP       U(18,24,06);  #LAST OPERATION                # FIT
        ITEM FITLOP5      U(18,25,05);  #LAST OPERATION (L.O. 5 BITS)  # FIT
        ITEM FITLP        U(17,15,24);  #BCP OF LENGTH FIELD RT=D      # FIT
        ITEM FITLT        U(10,36,02);  #LABEL TYPE                    # FIT
        ITEM FITLVL       U(00,42,04);  #LEVEL NUMBER                  # FIT
        ITEM FITLX        I(11,42,18);  #LABEL EXIT ADDRESS            # FIT
        ITEM FITMBL       U(19,00,24);  #MAXIMUM BLOCK LENGTH          # FIT
        ITEM FITMDB       B(08,38,01);  #MODIFY PERMISSION BIT         # FIT
        ITEM FITMFN       U(21,00,36);  #MULTI-FILE NAME               # FIT
        ITEM FITMKL       U(16,33,09);  #MAJOR KEY LENGTH              # FIT
        ITEM FITMNB       U(20,00,24);  #MINIMUM BLOCK LENGTH          # FIT
        ITEM FITMNR       U(15,00,24);  #MINIMUM RECORD LENGTH         # FIT
        ITEM FITMRL       U(12,00,24);  #MAXIMUM RECORD LENGTH         # FIT
        ITEM FITMUL       U(16,36,06);  #PADDING MULTIPLE              # FIT
        ITEM FITNDX       B(24,00,01);  #RETRIEVAL OF MDX KEY LIST-DA  # FIT
        ITEM FITNL        U(19,24,06);  #NO. LEVELS OF INDEX BLOCKS    # FIT
        ITEM FITOC        U(17,01,02);  #OPEN/CLOSE FLAG               # FIT
        ITEM FITOF        U(11,25,02);  #OPEN FLAG                     # FIT
        ITEM FITON        B(24,04,01);  #OLD/NEW FLAG                  # FIT
        ITEM FITORG       B(15,37,01);  #OLD/NEW FO FLAG               # FIT
        ITEM FITOVF       U(21,42,02);  #OVERFLOW OPTION FLAGS         # FIT
        ITEM FITPC        U(16,30,06);  #PADDING CHARACTER             # FIT
        ITEM FITPD        U(17,03,03);  #PROCESSING DIRECTION          # FIT
        ITEM FITPEF       B(13,25,01);  #PARITY ERROR FLAG             # FIT
        ITEM FITPKA       I(20,42,18);  #ADDRESS TO RETURN PRIMARY K   # FIT
        ITEM FITPM        B(20,37,01);  #PROCESSING MODE               # FIT
        ITEM FITPNO       U(21,36,24);  #MULTI-FILE POSITION NUMBER    # FIT
        ITEM FITPOS       U(20,30,06);  #IS POSITIONAL PARAMETER       # FIT
        ITEM FITPTL       U(18,00,24);  #PARTIAL TRANSFER LENGTH       # FIT
        ITEM FITRB        U(20,24,12);  #RECORDS PER BLOCK             # FIT
        ITEM FITRC        U(18,30,30);  #RECORD COUNT                  # FIT
        ITEM FITRDB       B(08,39,01);  #READ PERMISSION BIT           # FIT
        ITEM FITRDR       B(01,13,01);  #READ RELEASE                  # FIT
        ITEM FITREL       U(32,33,03);  #RELATIONALS                   # FIT
        ITEM FITRKP       U(31,12,04);  #RELATIVE KEY POSITION IN RKW  # FIT
        ITEM FITRKW       U(31,00,12);  #RELATIVE KEY WORD             # FIT
        ITEM FITRL        U(11,00,24);  #RECORD LENGTH                 # FIT
        ITEM FITRMK       U(16,24,06);  #RECORD MARK CHARACTER         # FIT
        ITEM FITRT        U(11,32,04);  #RECORD TYPE                   # FIT
        ITEM FITSB        B(17,14,01);  #SIGN OVER PUNCH RT=D/T        # FIT
        ITEM FITSBF       B(15,34,01);  #SUPPRESS BUFFER I/O FLAG      # FIT
        ITEM FITSDS       B(13,02,01);  #ERROR MESSAGE DISPOSITION     # FIT
        ITEM FITSES       U(13,29,04);  #SYSTEM ERROR SEVERITY         # FIT
        ITEM FITSPR       B(15,35,01);  #SUPPRESS READ AHEAD           # FIT
        ITEM FITSTFT      B(15,32,01);  #SETFIT FLAG                   # FIT
        ITEM FITTL        U(16,00,24);  #TRAILER LENGTH RT=T           # FIT
        ITEM FITTRC       U(32,36,06);  #TRACE INDEX                   # FIT
        ITEM FITULP       U(10,33,03);  #USER LABEL PROCESSING OPTION  # FIT
        ITEM FITVF        U(11,30,02);  #VOLUME FLAG                   # FIT
        ITEM FITVNO       U(19,24,06);  #CURRENT VOLUME NUMBER         # FIT
        ITEM FITWA        U(19,30,30);  #WORD ADDRESS                  # FIT
        ITEM FITWPN       B(18,24,01);  #WRITE BIT                     # FIT
        ITEM FITWSA       I(15,42,18);  #USER WORKING STORAGE ADDRESS  # FIT
        ITEM FITXBS       I(21,42,18);  #INDEX BLOCK SIZE              # FIT
        ITEM FITXN        U(21,00,42);  #INDEX LFN                     # FIT
        END  # 03/10/77 #                                                FIT
                                                                         FIT
      END 
      TERM
