47 lines
3.6 KiB
COBOL
47 lines
3.6 KiB
COBOL
00001 ***** 07/01/08
|
|
00002 * DTSIILEN
|
|
00003 * DTSIILEN ALTERNATE INDEX FILE RECORD LENGTH. LV008
|
|
00004 * DTSIILEN
|
|
00005 * DTSIILEN
|
|
00006 * 08/25/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIILEN
|
|
00007 * 01/20/2001 MODIFIED FOR ELECTRONIC MEDIA DTSIILEN
|
|
00008 * TRACKING SYSTEM. GD DTSIILEN
|
|
00009 * 04/18/2003 MODIFIED FOR ELECTRONIC PAYMENT DTSIILEN
|
|
00010 * (TRT, TRE) GD DTSIILEN
|
|
00011 * 02/08/2008 ADDED IRFD REC FOR REFUNDS GD DTSIILEN
|
|
00012 * DTSIILEN
|
|
00013 ***** DTSIILEN
|
|
00014 DTSIILEN
|
|
00015 10 ILEN-LENGTH PIC S9(04) COMP VALUE +64. DTSIILEN
|
|
00016 DTSIILEN
|
|
00017 10 ILEN-MAX-REC-ID PIC S9(04) COMP VALUE +22. DTSIILEN
|
|
00018 DTSIILEN
|
|
00019 10 ILEN-PREFIX-AREA. DTSIILEN
|
|
00020 15 ILEN-BTB-PREFIX PIC X(04) VALUE 'IBTB'. DTSIILEN
|
|
00021 15 ILEN-EIN-PREFIX PIC X(04) VALUE 'IEIN'. DTSIILEN
|
|
00022 15 ILEN-FAN-PREFIX PIC X(04) VALUE 'IFAN'. DTSIILEN
|
|
00023 15 ILEN-FID-PREFIX PIC X(04) VALUE 'IFID'. DTSIILEN
|
|
00024 15 ILEN-OPN-PREFIX PIC X(04) VALUE 'IOPN'. DTSIILEN
|
|
00025 15 ILEN-OPS-PREFIX PIC X(04) VALUE 'IOPS'. DTSIILEN
|
|
00026 15 ILEN-PES-PREFIX PIC X(04) VALUE 'IPES'. DTSIILEN
|
|
00027 15 ILEN-TDS-PREFIX PIC X(04) VALUE 'ITDS'. DTSIILEN
|
|
00028 15 ILEN-ZIP-PREFIX PIC X(04) VALUE 'IZIP'. DTSIILEN
|
|
00029 15 ILEN-BTN-PREFIX PIC X(04) VALUE 'IBTN'. DTSIILEN
|
|
00030 15 ILEN-ENM-PREFIX PIC X(04) VALUE 'IENM'. DTSIILEN
|
|
00031 15 ILEN-EAL-PREFIX PIC X(04) VALUE 'IEAL'. DTSIILEN
|
|
00032 15 ILEN-EAE-PREFIX PIC X(04) VALUE 'IEAE'. DTSIILEN
|
|
00033 15 ILEN-EBX-PREFIX PIC X(04) VALUE 'IEBX'. DTSIILEN
|
|
00034 15 ILEN-EOP-PREFIX PIC X(04) VALUE 'IEOP'. DTSIILEN
|
|
00035 15 ILEN-ESR-PREFIX PIC X(04) VALUE 'IESR'. DTSIILEN
|
|
00036 15 ILEN-EER-PREFIX PIC X(04) VALUE 'IEER'. DTSIILEN
|
|
00037 15 ILEN-EET-PREFIX PIC X(04) VALUE 'IEET'. DTSIILEN
|
|
00038 15 ILEN-EPR-PREFIX PIC X(04) VALUE 'IEPR'. DTSIILEN
|
|
00039 15 ILEN-TRT-PREFIX PIC X(04) VALUE 'ITRT'. DTSIILEN
|
|
00040 15 ILEN-TRE-PREFIX PIC X(04) VALUE 'ITRE'. DTSIILEN
|
|
00041 15 ILEN-RFD-PREFIX PIC X(04) VALUE 'IRFD'. DTSIILEN
|
|
00042 DTSIILEN
|
|
00043 10 FILLER REDEFINES ILEN-PREFIX-AREA. DTSIILEN
|
|
00044 15 ILEN-PREFIX OCCURS 22 TIMES DTSIILEN
|
|
00045 INDEXED BY ILEN-IDX DTSIILEN
|
|
00046 PIC X(04). DTSIILEN
|