37 lines
2.8 KiB
COBOL
37 lines
2.8 KiB
COBOL
00001 ***** 07/01/08
|
|
00002 * DTSIISKL
|
|
00003 * DTSIISKL ALTERNATE INDEX FILE SKELETAL RECORD DEFINITON. LV009
|
|
00004 * DTSIISKL
|
|
00005 * 08/13/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIISKL
|
|
00006 * 01/20/2001 MODIFIED FOR ELECTRONIC MEDIA DTSIISKL
|
|
00007 * TRACKING. GD DTSIISKL
|
|
00008 * 02/08/2008 ADDED IRFD FOR REFUNDS GD DTSIISKL
|
|
00009 * DTSIISKL
|
|
00010 ***** DTSIISKL
|
|
00011 DTSIISKL
|
|
00012 10 ISKL-KEY-AREA. DTSIISKL
|
|
00013 15 ISKL-REC-TYPE PIC S9(04) COMP. DTSIISKL
|
|
00014 88 ISKL-BTB-88 VALUE +01. DTSIISKL
|
|
00015 88 ISKL-EIN-88 VALUE +02. DTSIISKL
|
|
00016 88 ISKL-FAN-88 VALUE +03. DTSIISKL
|
|
00017 88 ISKL-FID-88 VALUE +04. DTSIISKL
|
|
00018 88 ISKL-OPN-88 VALUE +05. DTSIISKL
|
|
00019 88 ISKL-OPS-88 VALUE +06. DTSIISKL
|
|
00020 88 ISKL-PES-88 VALUE +07. DTSIISKL
|
|
00021 88 ISKL-TDS-88 VALUE +08. DTSIISKL
|
|
00022 88 ISKL-ZIP-88 VALUE +09. DTSIISKL
|
|
00023 88 ISKL-BTN-88 VALUE +10. DTSIISKL
|
|
00024 88 ISKL-ENM-88 VALUE +11. DTSIISKL
|
|
00025 88 ISKL-EAL-88 VALUE +12. DTSIISKL
|
|
00026 88 ISKL-EAE-88 VALUE +13. DTSIISKL
|
|
00027 88 ISKL-EBX-88 VALUE +14. DTSIISKL
|
|
00028 88 ISKL-EOP-88 VALUE +15. DTSIISKL
|
|
00029 88 ISKL-ESR-88 VALUE +16. DTSIISKL
|
|
00030 88 ISKL-EER-88 VALUE +17. DTSIISKL
|
|
00031 88 ISKL-EET-88 VALUE +18. DTSIISKL
|
|
00032 88 ISKL-EPR-88 VALUE +19. DTSIISKL
|
|
00033 88 ISKL-TRT-88 VALUE +20. DTSIISKL
|
|
00034 88 ISKL-TRE-88 VALUE +21. DTSIISKL
|
|
00035 88 ISKL-RFD-88 VALUE +22. DTSIISKL
|
|
00036 15 ISKL-KEY-FILLER PIC X(62). DTSIISKL
|