DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
64
Copybook/DTSIMSKL.cpy
Normal file
64
Copybook/DTSIMSKL.cpy
Normal file
@ -0,0 +1,64 @@
|
||||
00001 ***** 12/14/09
|
||||
00002 * DTSIMSKL
|
||||
00003 * DTSIMSKL MASTER FILE 'SKELETAL' RECORD DEFINITION. LV014
|
||||
00004 * DTSIMSKL
|
||||
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH DTSIMSKL
|
||||
00006 * DTSIMSKL
|
||||
00007 * ADDED MCMP 04/23/2004 GD DTSIMSKL
|
||||
00008 * ADDED MRRA 11/10/2006 GD DTSIMSKL
|
||||
00009 * ADDED MRFD 02/06/2008 GD DTSIMSKL
|
||||
00010 * ADDED MFSL 10/08/2009 GD DTSIMSKL
|
||||
00011 * ADDED MDOC 11/25/2009 GD DTSIMSKL
|
||||
00012 * DTSIMSKL
|
||||
00013 ***** DTSIMSKL
|
||||
00014 DTSIMSKL
|
||||
00015 10 MSKL-KEY-AREA. DTSIMSKL
|
||||
00016 15 MSKL-EMP-NO PIC S9(07) COMP-3. DTSIMSKL
|
||||
00017 15 MSKL-REC-TYPE PIC S9(04) COMP. DTSIMSKL
|
||||
00018 88 MSKL-HDR-88 VALUE +01. DTSIMSKL
|
||||
00019 88 MSKL-PRF-88 VALUE +02. DTSIMSKL
|
||||
00020 88 MSKL-ADJ-88 VALUE +45. DTSIMSKL
|
||||
00021 88 MSKL-APL-88 VALUE +32. DTSIMSKL
|
||||
00022 88 MSKL-AUR-88 VALUE +27. DTSIMSKL
|
||||
00023 88 MSKL-AUY-88 VALUE +28. DTSIMSKL
|
||||
00024 88 MSKL-BAA-88 VALUE +14. DTSIMSKL
|
||||
00025 88 MSKL-CMP-88 VALUE +36. DTSIMSKL
|
||||
00026 88 MSKL-COL-88 VALUE +31. DTSIMSKL
|
||||
00027 88 MSKL-DOC-88 VALUE +19. DTSIMSKL
|
||||
00028 88 MSKL-DPC-88 VALUE +34. DTSIMSKL
|
||||
00029 88 MSKL-DST-88 VALUE +48. DTSIMSKL
|
||||
00030 88 MSKL-ELF-88 VALUE +24. DTSIMSKL
|
||||
00031 88 MSKL-ERA-88 VALUE +18. DTSIMSKL
|
||||
00032 88 MSKL-ERD-88 VALUE +17. DTSIMSKL
|
||||
00033 88 MSKL-EVL-88 VALUE +21. DTSIMSKL
|
||||
00034 88 MSKL-FAE-88 VALUE +25. DTSIMSKL
|
||||
00035 88 MSKL-FAR-88 VALUE +29. DTSIMSKL
|
||||
00036 88 MSKL-FAS-88 VALUE +26. DTSIMSKL
|
||||
00037 88 MSKL-FSC-88 VALUE +07. DTSIMSKL
|
||||
00038 88 MSKL-FSL-88 VALUE +30. DTSIMSKL
|
||||
00039 88 MSKL-JRN-88 VALUE +51. DTSIMSKL
|
||||
00040 88 MSKL-LEV-88 VALUE +35. DTSIMSKL
|
||||
00041 88 MSKL-LIN-88 VALUE +33. DTSIMSKL
|
||||
00042 88 MSKL-LOG-88 VALUE +52. DTSIMSKL
|
||||
00043 88 MSKL-NTE-88 VALUE +22. DTSIMSKL
|
||||
00044 88 MSKL-OPO-88 VALUE +11. DTSIMSKL
|
||||
00045 88 MSKL-PAY-88 VALUE +46. DTSIMSKL
|
||||
00046 88 MSKL-QTR-88 VALUE +41. DTSIMSKL
|
||||
00047 88 MSKL-RCT-88 VALUE +09. DTSIMSKL
|
||||
00048 88 MSKL-REL-88 VALUE +06. DTSIMSKL
|
||||
00049 88 MSKL-REV-88 VALUE +49. DTSIMSKL
|
||||
00050 88 MSKL-RFD-88 VALUE +50. DTSIMSKL
|
||||
00051 88 MSKL-RPT-88 VALUE +44. DTSIMSKL
|
||||
00052 88 MSKL-RRA-88 VALUE +10. DTSIMSKL
|
||||
00053 88 MSKL-RTE-88 VALUE +05. DTSIMSKL
|
||||
00054 88 MSKL-RWA-88 VALUE +12. DTSIMSKL
|
||||
00055 88 MSKL-SOL-88 VALUE +04. DTSIMSKL
|
||||
00056 88 MSKL-TAA-88 VALUE +13. DTSIMSKL
|
||||
00057 88 MSKL-TAD-88 VALUE +03. DTSIMSKL
|
||||
00058 88 MSKL-TCK-88 VALUE +23. DTSIMSKL
|
||||
00059 15 MSKL-KEY-FILLER PIC X(10). DTSIMSKL
|
||||
00060 DTSIMSKL
|
||||
00061 10 MSKL-PURGE-DATE PIC S9(09) COMP-3.DTSIMSKL
|
||||
00062 DTSIMSKL
|
||||
00063 10 MSKL-DATA-AREA. DTSIMSKL
|
||||
00064 15 MSKL-DATA-FILLER PIC X(1515). DTSIMSKL
|
||||
Reference in New Issue
Block a user