00001 ***** 01/29/02 00002 * DTSIFLEN 00003 * DTSIFLEN REFERENCE FILE RECORD LENGTHS. LV015 00004 * DTSIFLEN 00005 ***** DTSIFLEN 00006 DTSIFLEN 00007 10 FLEN-LENGTH-AREA. DTSIFLEN 00008 15 FLEN-CYR-LENGTH PIC S9(04) COMP VALUE +64. DTSIFLEN 00009 15 FLEN-CYR-PREFIX PIC X(04) VALUE 'FCYR'. DTSIFLEN 00010 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN 00011 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN 00012 15 FLEN-FAT-LENGTH PIC S9(04) COMP VALUE +96. DTSIFLEN 00013 15 FLEN-FAT-PREFIX PIC X(04) VALUE 'FFAT'. DTSIFLEN 00014 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN 00015 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN 00016 15 FLEN-FAZ-LENGTH PIC S9(04) COMP VALUE +64. DTSIFLEN 00017 15 FLEN-FAZ-PREFIX PIC X(04) VALUE 'FFAZ'. DTSIFLEN 00018 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN 00019 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN 00020 15 FLEN-FID-LENGTH PIC S9(04) COMP VALUE +600. DTSIFLEN 00021 15 FLEN-FID-PREFIX PIC X(04) VALUE 'FFID'. DTSIFLEN 00022 15 FLEN-FIS-LENGTH PIC S9(04) COMP VALUE +507. DTSIFLEN 00023 15 FLEN-FIS-PREFIX PIC X(04) VALUE 'FFIS'. DTSIFLEN 00024 15 FLEN-OPR-LENGTH PIC S9(04) COMP VALUE +512. DTSIFLEN 00025 15 FLEN-OPR-PREFIX PIC X(04) VALUE 'FOPR'. DTSIFLEN 00026 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN 00027 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN 00028 15 FLEN-QTR-LENGTH PIC S9(04) COMP VALUE +128. DTSIFLEN 00029 15 FLEN-QTR-PREFIX PIC X(04) VALUE 'FQTR'. DTSIFLEN 00030 15 FLEN-AFD-LENGTH PIC S9(04) COMP VALUE +128. DTSIFLEN 00031 15 FLEN-AFD-PREFIX PIC X(04) VALUE 'FAFD'. DTSIFLEN 00032 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN 00033 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN 00034 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN 00035 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN 00036 15 FLEN-SEL-LENGTH PIC S9(04) COMP VALUE +256. DTSIFLEN 00037 15 FLEN-SEL-PREFIX PIC X(04) VALUE 'FSEL'. DTSIFLEN 00038 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN 00039 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN 00040 15 FLEN-UIR-LENGTH PIC S9(04) COMP VALUE +352. DTSIFLEN 00041 15 FLEN-UIR-PREFIX PIC X(04) VALUE 'FUIR'. DTSIFLEN 00042 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN 00043 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN 00044 15 FLEN-581-LENGTH PIC S9(04) COMP VALUE +512. DTSIFLEN 00045 15 FLEN-581-PREFIX PIC X(04) VALUE 'F581'. DTSIFLEN 00046 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN 00047 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN 00048 10 FILLER REDEFINES FLEN-LENGTH-AREA. DTSIFLEN 00049 15 FLEN-REC-AREA OCCURS 20 TIMES DTSIFLEN 00050 INDEXED BY FLEN-IDX. DTSIFLEN 00051 20 FLEN-REC-LEN PIC S9(04) COMP. DTSIFLEN 00052 20 FLEN-REC-PREFIX PIC X(04). DTSIFLEN 00053 DTSIFLEN 00054 10 FLEN-MAX-REC-LEN PIC S9(04) COMP VALUE +768. DTSIFLEN 00055 10 FLEN-MAX-KEY-LEN PIC S9(04) COMP VALUE +16. DTSIFLEN 00056 10 FLEN-MAX-REC-ID PIC S9(04) COMP VALUE +20. DTSIFLEN