DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
34
Copybook/DTSIR316.cpy
Normal file
34
Copybook/DTSIR316.cpy
Normal file
@ -0,0 +1,34 @@
|
||||
00001 ***** 03/20/99
|
||||
00002 * DTSIR316
|
||||
00003 * DTSIR316 ESTIMATED REPORT PROCESSED LETTER TO EMPLOYER LV008
|
||||
00004 * REPORT RECORDS. CL**6
|
||||
00005 * CL**6
|
||||
00006 * CL**2
|
||||
00007 * 12/18/1998 CREATED FOR DC. EHH. CL**5
|
||||
00008 * CL**2
|
||||
00009 ***** DTSIR316
|
||||
00010 CL**2
|
||||
00011 10 R316-LENGTH PIC S9(04) COMP. CL**5
|
||||
00012 CL**2
|
||||
00013 10 R316-SORT-AREA. CL**5
|
||||
00014 15 R316-REC-TYPE PIC X(03). CL**7
|
||||
00015 15 R316-EMP-NO PIC S9(07) COMP-3. CL**5
|
||||
00016 15 R316-YRQ PIC S9(05) COMP-3. CL**5
|
||||
00017 CL**2
|
||||
00018 10 R316-DATA-AREA. CL**5
|
||||
00019 15 R316-EMP-CLASS PIC X(01). CL**8
|
||||
00020 88 R316-CLASS-RATED-88 VALUE 'R'. CL**8
|
||||
00021 88 R316-CLASS-SELF-INS-88 VALUE 'S'. CL**8
|
||||
00022 15 R316-MAIL-DATE PIC S9(09) COMP-3. CL**5
|
||||
00023 15 R316-UI-TAX-CHARGED-AMT PIC S9(09)V9(02) COMP-3. CL**8
|
||||
00024 15 R316-SUR-TAX-CHARGED-AMT CL**8
|
||||
00025 PIC S9(09)V9(02) COMP-3. CL**8
|
||||
00026 15 R316-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3. CL**8
|
||||
00027 15 R316-INT-CHARGED-AMT PIC S9(09)V9(02) COMP-3. CL**8
|
||||
00028 15 R316-INT-COMP-DATE PIC S9(09) COMP-3. CL**8
|
||||
00029 15 R316-FMT-ADDR. CL**5
|
||||
00030 20 R316-FMT-LINE OCCURS 5 TIMES CL**5
|
||||
00031 INDEXED BY R316-FMT-IDX CL**5
|
||||
00032 PIC X(40). DTSIR316
|
||||
00033 15 R316-ZIP PIC X(10). CL**5
|
||||
00034 15 R316-ADVANCED-BARCODE PIC X(14). CL**5
|
||||
Reference in New Issue
Block a user