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

21
Copybook/DTSIX106.cpy Normal file
View File

@ -0,0 +1,21 @@
00001 ***** 04/07/09
00002 * DTSIX106
00003 * DTSIX106 EMPLOYER NAME EXTRACT RECORD LV003
00004 * DTSIX106
00005 * EXCHANGES EMPLOYER NAMES BETWEEN MAINFRAME AND DTSIX106
00006 * SQL SERVER DATABASE. DTSIX106
00007 * DTSIX106
00008 * 04/10/2009 ADDED NAME-TYPE-ALT GD DTSIX106
00009 * DTSIX106
00010 ***** DTSIX106
00011 DTSIX106
00012 15 X106-REC-TYPE PIC X(03) VALUE '106'. DTSIX106
00013 15 FILLER PIC X(01) VALUE ','. DTSIX106
00014 15 X106-EMP-NO PIC 9(06). DTSIX106
00015 15 FILLER PIC X(01) VALUE ','. DTSIX106
00016 15 X106-NAME-TYPE PIC X(01). DTSIX106
00017 88 X106-NAME-TYPE-ENTITY-88 VALUE '0'. DTSIX106
00018 88 X106-NAME-TYPE-TRADE-88 VALUE '1'. DTSIX106
00019 88 X106-NAME-TYPE-ALT-88 VALUE '2'. DTSIX106
00020 15 FILLER PIC X(01) VALUE ','. DTSIX106
00021 15 X106-EMP-NAME PIC X(40). DTSIX106