19 lines
1.4 KiB
COBOL
19 lines
1.4 KiB
COBOL
00001 ***** 02/26/08
|
|
00002 * DTSIX131
|
|
00003 * DTSIX131 EMPLOYER RELATIONSHIP EXTRACT RECORD LV001
|
|
00004 * FOR TAXABLE WAGE CALCULATION. DTSIX131
|
|
00005 * DTSIX131
|
|
00006 * EXCHANGES RELATIONSHIP DATA BETWEEN MAINFRAME AND DTSIX131
|
|
00007 * SQL SERVER DATABASE. DTSIX131
|
|
00008 * DTSIX131
|
|
00009 * DTSIX131
|
|
00010 ***** DTSIX131
|
|
00011 DTSIX131
|
|
00012 15 X131-REC-TYPE PIC X(03) VALUE '131'. DTSIX131
|
|
00013 15 FILLER PIC X(01) VALUE ','. DTSIX131
|
|
00014 15 X131-SUCC-EMP-NO PIC 9(06). DTSIX131
|
|
00015 15 FILLER PIC X(01) VALUE ','. DTSIX131
|
|
00016 15 X131-EFF-DATE PIC X(10). DTSIX131
|
|
00017 15 FILLER PIC X(01) VALUE ','. DTSIX131
|
|
00018 15 X131-PRED-EMP-NO PIC 9(06). DTSIX131
|