DUTAS re-platformed to Raincode - Initial Source Code

This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions

37
Copybook/DTSIMDOC.cpy Normal file
View 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