57 lines
4.4 KiB
COBOL
57 lines
4.4 KiB
COBOL
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
|