22 lines
1.7 KiB
COBOL
22 lines
1.7 KiB
COBOL
00001 ***** 01/06/20
|
|
00002 * DTSIX108
|
|
00003 * DTSIX108 EMPLOYER RATE EXTRACT RECORD LV003
|
|
00004 * DTSIX108
|
|
00005 * EXCHANGES EMPLOYER RATES BETWEEN MAINFRAME AND DTSIX108
|
|
00006 * SQL SERVER DATABASE. DTSIX108
|
|
00007 * DTSIX108
|
|
00008 * DTSIX108
|
|
00009 ***** DTSIX108
|
|
00010 DTSIX108
|
|
00011 15 X108-REC-TYPE PIC X(03) VALUE '108'. DTSIX108
|
|
00012 15 FILLER PIC X(01) VALUE ','. DTSIX108
|
|
00013 15 X108-EMP-NO PIC 9(06). DTSIX108
|
|
00014 15 FILLER PIC X(01) VALUE ','. DTSIX108
|
|
00015 15 X108-RATE-YEAR. CL**2
|
|
00016 25 X108-RATE-YR PIC 9(04). CL**3
|
|
00017 25 X108-RATE-SLASH PIC X(02) VALUE '/1'. CL**2
|
|
00018 15 FILLER PIC X(01) VALUE ','. DTSIX108
|
|
00019 15 X108-RATE-X PIC X(06). DTSIX108
|
|
00020 15 X108-RATE REDEFINES X108-RATE-X DTSIX108
|
|
00021 PIC 9.9999. DTSIX108
|