DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
21
Copybook/DTSIX106.cpy
Normal file
21
Copybook/DTSIX106.cpy
Normal 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
|
||||
Reference in New Issue
Block a user