52 lines
4.0 KiB
COBOL
52 lines
4.0 KiB
COBOL
00001 ***** 04/22/15
|
|
00002 * ANNUAL FILERS - LATE PENALTY AND MISSING REPORTS DTSIR321
|
|
00003 ***** LV002
|
|
00004 * DTSIR321 PENALTY ASSESSMENT GENERATED LETTER TO EMPLOYER DTSIR321
|
|
00005 * FOR NON PAYMENT OR PARTIAL PAYMENT OF UI TAXES. DTSIR321
|
|
00006 * DTSIR321
|
|
00007 * 12/18/13 GENERATE LATE FILING PENALTY LETTER TO EMPLOYER DTSIR321
|
|
00008 * FOR NOT PAYING OR NOT PAYING FULL AMOUNT ZL1 DTSIR321
|
|
00009 * DTSIR321
|
|
00010 * DTSIR321
|
|
00011 * 03/18/14 GENERATE MISSING REPORT NOTICE TO EMPLOYER FOR DTSIR321
|
|
00012 * NOT FILING ANNUAL REPORT ZL1 DTSIR321
|
|
00013 * DTSIR321
|
|
00014 * CL**2
|
|
00015 * 04/22/15 GENERATE MISSING REPORT NOTICE TO EMPLOYER FOR CL**2
|
|
00016 * NOT FILING COMPLETE REPORT (LIABLE QTRS) ZL1 CL**2
|
|
00017 * CL**2
|
|
00018 ***** DTSIR321
|
|
00019 DTSIR321
|
|
00020 10 R321-LENGTH PIC S9(04) COMP. DTSIR321
|
|
00021 DTSIR321
|
|
00022 10 R321-SORT-AREA. DTSIR321
|
|
00023 15 R321-REC-TYPE PIC X(03). DTSIR321
|
|
00024 15 R321-EMP-NO PIC S9(07) COMP-3. DTSIR321
|
|
00025 15 R321-YRQ PIC S9(05) COMP-3. DTSIR321
|
|
00026 DTSIR321
|
|
00027 10 R321-DATA-AREA. DTSIR321
|
|
00028 15 R321-REP-TYPE PIC X(01). DTSIR321
|
|
00029 88 R321-GENERATE-LATE-PEN-LTR-88 VALUE '1'. DTSIR321
|
|
00030 88 R321-GENERATE-MISS-RPT-LTR-88 VALUE '2'. DTSIR321
|
|
00031 88 R321-GENERATE-MISS-QTR-LTR-88 VALUE '3'. CL**2
|
|
00032 15 R321-MAIL-DATE PIC S9(09) COMP-3. DTSIR321
|
|
00033 15 R321-UI-TAX-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIR321
|
|
00034 15 R321-UI-TAX-PAID-AMT PIC S9(09)V9(02) COMP-3.DTSIR321
|
|
00035 15 R321-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIR321
|
|
00036 15 R321-INT-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIR321
|
|
00037 15 R321-UI-TOL-AMT PIC S9(09)V9(02) COMP-3.DTSIR321
|
|
00038 15 R321-INT-COMP-DATE PIC S9(09) COMP-3.DTSIR321
|
|
00039 15 R321-TAX-DUE-DATE PIC S9(09) COMP-3. DTSIR321
|
|
00040 15 R321-RPT-DUE-DATE PIC S9(09) COMP-3. DTSIR321
|
|
00041 15 R321-FMT-ADDR. DTSIR321
|
|
00042 20 R321-FMT-LINE OCCURS 5 TIMES DTSIR321
|
|
00043 INDEXED BY R321-FMT-IDX DTSIR321
|
|
00044 PIC X(40). DTSIR321
|
|
00045 15 R321-ZIP PIC X(10). DTSIR321
|
|
00046 15 R321-ADVANCED-BARCODE PIC X(15). DTSIR321
|
|
00047 15 R321-YRQ1-MISSING PIC S9(05) COMP-3. CL**2
|
|
00048 15 R321-YRQ2-MISSING PIC S9(05) COMP-3. CL**2
|
|
00049 15 R321-YRQ3-MISSING PIC S9(05) COMP-3. CL**2
|
|
00050 15 R321-YRQ4-MISSING PIC S9(05) COMP-3. CL**2
|
|
00051 15 FILLER PIC X(50). CL**2
|