38 lines
2.9 KiB
COBOL
38 lines
2.9 KiB
COBOL
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
|