22 lines
1.7 KiB
COBOL
22 lines
1.7 KiB
COBOL
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
|