DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
37
Copybook/DTSIMDOC.cpy
Normal file
37
Copybook/DTSIMDOC.cpy
Normal file
@ -0,0 +1,37 @@
|
||||
00001 ***** 12/14/09
|
||||
00002 * DTSIMDOC
|
||||
00003 * DTSIMDOC MASTER FILE DOCUMENT RECORD DEFINITION. LV001
|
||||
00004 * DTSIMDOC
|
||||
00005 * DTSIMDOC
|
||||
00006 * 11/25/2009 INITIAL DEVELOPMENT. GD DTSIMDOC
|
||||
00007 * DTSIMDOC
|
||||
00008 ***** DTSIMDOC
|
||||
00009 DTSIMDOC
|
||||
00010 10 MDOC-KEY-AREA. DTSIMDOC
|
||||
00011 15 MDOC-EMP-NO PIC S9(07) COMP-3. DTSIMDOC
|
||||
00012 15 MDOC-REC-TYPE PIC S9(04) COMP. DTSIMDOC
|
||||
00013 88 MDOC-DOC-88 VALUE +19. DTSIMDOC
|
||||
00014 15 MDOC-DOC-ID PIC S9(11) COMP-3. DTSIMDOC
|
||||
00015 15 MDOC-KEY-FILLER PIC X(04). DTSIMDOC
|
||||
00016 DTSIMDOC
|
||||
00017 DTSIMDOC
|
||||
00018 10 MDOC-PURGE-DATE PIC S9(09) COMP-3. DTSIMDOC
|
||||
00019 DTSIMDOC
|
||||
00020 DTSIMDOC
|
||||
00021 10 MDOC-DATA-AREA. DTSIMDOC
|
||||
00022 15 MDOC-RELATED-REC-KEY. DTSIMDOC
|
||||
00023 20 MDOC-KEY-EMP-NO PIC S9(07) COMP-3. DTSIMDOC
|
||||
00024 20 MDOC-KEY-REC-TYPE PIC S9(04) COMP. DTSIMDOC
|
||||
00025 20 MDOC-KEY-FILLER PIC X(10). DTSIMDOC
|
||||
00026 DTSIMDOC
|
||||
00027 DTSIMDOC
|
||||
00028 15 FILLER PIC X(24). DTSIMDOC
|
||||
00029 DTSIMDOC
|
||||
00030 DTSIMDOC
|
||||
00031 15 MDOC-CONVERTED-IND PIC X(01). DTSIMDOC
|
||||
00032 88 MDOC-CONVERTED-88 VALUE 'Y'. DTSIMDOC
|
||||
00033 88 MDOC-NOT-CONVERTED-88 VALUE 'N'. DTSIMDOC
|
||||
00034 DTSIMDOC
|
||||
00035 15 MDOC-ESTB-DATE PIC S9(09) COMP-3. DTSIMDOC
|
||||
00036 DTSIMDOC
|
||||
00037 15 MDOC-CHNG-DATE PIC S9(09) COMP-3. DTSIMDOC
|
||||
Reference in New Issue
Block a user