DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
41
Copybook/DTSIR320.cpy
Normal file
41
Copybook/DTSIR320.cpy
Normal file
@ -0,0 +1,41 @@
|
||||
00001 ***** 02/13/18
|
||||
00002 * DTSIR320
|
||||
00003 * DTSIR320 PENALTY ASSESSMENT GENERATED LETTER TO EMPLOYER LV012
|
||||
00004 * FOR NON PAYMENT OR PARTIAL PAYMENT OF UI TAXES. CL**6
|
||||
00005 * DTSIR320
|
||||
00006 * 06/20/13 DELINQUENCY PROCESS GENERATED LETTER TO EMPLOYER CL**3
|
||||
00007 * PENALTY FOR NON OR PARTIAL PAYMENT ZL1 CL**5
|
||||
00008 * DTSIR320
|
||||
00009 * CL**8
|
||||
00010 * 12/20/13 DELINQUENCY PROCESS GENERATED LETTER TO EMPLOYER CL**8
|
||||
00011 * FOR MISSING REPORT AND CHARGED PENALTY ZL1 CL**8
|
||||
00012 * CL**8
|
||||
00013 ***** DTSIR320
|
||||
00014 DTSIR320
|
||||
00015 10 R320-LENGTH PIC S9(04) COMP. CL**3
|
||||
00016 DTSIR320
|
||||
00017 10 R320-SORT-AREA. CL**3
|
||||
00018 15 R320-REC-TYPE PIC X(03). CL**3
|
||||
00019 15 R320-EMP-NO PIC S9(07) COMP-3. CL**3
|
||||
00020 15 R320-YRQ PIC S9(05) COMP-3. CL**3
|
||||
00021 DTSIR320
|
||||
00022 10 R320-DATA-AREA. CL**3
|
||||
00023 15 R320-EMP-TYPE PIC X(01). CL**9
|
||||
00024 88 R320-RATED-FILING-88 VALUE 'Q'. CL*12
|
||||
00025 88 R320-SI-FILING-88 VALUE 'S'. CL*10
|
||||
00026 15 R320-MAIL-DATE PIC S9(09) COMP-3. CL**3
|
||||
00027 15 R320-UI-TAX-CHARGED-AMT PIC S9(09)V9(02) COMP-3. CL**3
|
||||
00028 15 R320-UI-TAX-PAID-AMT PIC S9(09)V9(02) COMP-3. CL**6
|
||||
00029 15 R320-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3. CL**3
|
||||
00030 15 R320-INT-CHARGED-AMT PIC S9(09)V9(02) COMP-3. CL**3
|
||||
00031 15 R320-INT-COMP-DATE PIC S9(09) COMP-3. CL**3
|
||||
00032 15 R320-TAX-DUE-DATE PIC S9(09) COMP-3. CL**6
|
||||
00033 15 R320-FMT-ADDR. CL**3
|
||||
00034 20 R320-FMT-LINE OCCURS 5 TIMES CL**3
|
||||
00035 INDEXED BY R320-FMT-IDX CL**3
|
||||
00036 PIC X(40). DTSIR320
|
||||
00037 15 R320-ZIP PIC X(10). CL**3
|
||||
00038 15 R320-ADVANCED-BARCODE PIC X(13). CL**9
|
||||
00039 15 R320-RPT-TYPE PIC X(01). CL**9
|
||||
00040 88 R320-GENERATE-LATE-PEN-LTR-88 VALUE '1'. CL**9
|
||||
00041 88 R320-GENERATE-MISS-RPT-LTR-88 VALUE '2'. CL**9
|
||||
Reference in New Issue
Block a user