25 lines
1.9 KiB
COBOL
25 lines
1.9 KiB
COBOL
00001 ***** 11/28/01
|
|
00002 * DTSIFSKL
|
|
00003 * DTSIFSKL REFERENCE FILE SKELETAL RECORD DEFINITION. LV008
|
|
00004 * DTSIFSKL
|
|
00005 ***** DTSIFSKL
|
|
00006 SKIP1 DTSIFSKL
|
|
00007 10 FSKL-KEY-AREA. DTSIFSKL
|
|
00008 15 FSKL-REC-TYPE PIC S9(04) COMP. DTSIFSKL
|
|
00009 88 FSKL-CYR-88 VALUE +01. DTSIFSKL
|
|
00010 88 FSKL-FAT-88 VALUE +03. DTSIFSKL
|
|
00011 88 FSKL-FAZ-88 VALUE +05. DTSIFSKL
|
|
00012 88 FSKL-FID-88 VALUE +07. DTSIFSKL
|
|
00013 88 FSKL-FIS-88 VALUE +08. DTSIFSKL
|
|
00014 88 FSKL-OPR-88 VALUE +09. DTSIFSKL
|
|
00015 88 FSKL-QTR-88 VALUE +11. DTSIFSKL
|
|
00016 88 FSKL-AFD-88 VALUE +12. DTSIFSKL
|
|
00017 *****************88 FSKL-RQC-88 VALUE +13. DTSIFSKL
|
|
00018 88 FSKL-SEL-88 VALUE +15. DTSIFSKL
|
|
00019 88 FSKL-UIR-88 VALUE +17. DTSIFSKL
|
|
00020 88 FSKL-581-88 VALUE +19. DTSIFSKL
|
|
00021 15 FSKL-KEY-FILLER PIC X(14). DTSIFSKL
|
|
00022 SKIP1 DTSIFSKL
|
|
00023 10 FSKL-DATA-AREA. DTSIFSKL
|
|
00024 15 FSKL-DATA-FILLER PIC X(752). DTSIFSKL
|