DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
24
Copybook/DTSIFSKL.cpy
Normal file
24
Copybook/DTSIFSKL.cpy
Normal file
@ -0,0 +1,24 @@
|
||||
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
|
||||
Reference in New Issue
Block a user