20 lines
1.5 KiB
COBOL
20 lines
1.5 KiB
COBOL
00001 ***** 02/26/08
|
|
00002 * DTSIY106
|
|
00003 * DTSIY106 EMPLOYER NAME DATA FROM EXTERNAL SOURCES LV001
|
|
00004 * SUCH AS THE WEB. DTSIY106
|
|
00005 * DTSIY106
|
|
00006 * 07/25/2007 INITIAL DEVELOPMENT. GD DTSIY106
|
|
00007 * DTSIY106
|
|
00008 * THIS RECORD IS PASSED WITHIN THE DTSIT002 DTSIY106
|
|
00009 * TRANSACTION RECORD, AND PROCESSED THROUGH DTSIY106
|
|
00010 * DTSBD380. DTSIY106
|
|
00011 * DTSIY106
|
|
00012 ***** DTSIY106
|
|
00013 DTSIY106
|
|
00014 10 Y106-DATA-AREA. DTSIY106
|
|
00015 15 FILLER PIC X(02). DTSIY106
|
|
00016 15 Y106-EMP-NAME-TYPE PIC X(1). DTSIY106
|
|
00017 88 Y106-EMP-NAME-ENTITY-88 VALUE '1'. DTSIY106
|
|
00018 88 Y106-EMP-NAME-TRADE-88 VALUE '2'. DTSIY106
|
|
00019 15 Y106-EMP-NAME PIC X(40). DTSIY106
|