54 lines
4.2 KiB
COBOL
54 lines
4.2 KiB
COBOL
00001 ***** 06/18/13
|
|
00002 * DTSIR325
|
|
00003 * DTSIR325 STATEMENT OF ADMINISTRATIVE ASSESSMENT FOR LV005
|
|
00004 * SELF INSURED EMPLOYERS. DTSIR325
|
|
00005 * DTSIR325
|
|
00006 * NOTES: DTSIR325
|
|
00007 * YEAR-QTRS NEED TO BE IN ASCENDING ORDER DTSIR325
|
|
00008 * DTSIR325
|
|
00009 * 08-19-2006 ADDED R325-RPT-TYPE GD. DTSIR325
|
|
00010 * 08-21-2006 ADDED R325-WAGE-FILE-WAGES GD. DTSIR325
|
|
00011 * 09-18-2007 MODIFIED R325-RPT-CHG-ASSESS TO INCLUDE DTSIR325
|
|
00012 * DIFFERENCES OVER THE 'MAXIMUM' (10% OR DTSIR325
|
|
00013 * $100,000.00. GD DTSIR325
|
|
00014 * 06-02-2010 MODIFIED R325-RPT-CHG-ASSESS TO INCLUDE DTSIR325
|
|
00015 * REVERSALS OF AMOUNTS PREVIOUSLY CHARGED. GD DTSIR325
|
|
00016 * DTSIR325
|
|
00017 ***** DTSIR325
|
|
00018 SKIP1 DTSIR325
|
|
00019 10 R325-LENGTH PIC S9(04) COMP. DTSIR325
|
|
00020 SKIP1 DTSIR325
|
|
00021 10 R325-SORT-AREA. DTSIR325
|
|
00022 15 R325-REC-TYPE PIC X(03). DTSIR325
|
|
00023 15 R325-RPT-TYPE PIC X(01). DTSIR325
|
|
00024 88 R325-RPT-EXACT-88 VALUE '0'. DTSIR325
|
|
00025 88 R325-RPT-WITHIN-TOL-88 VALUE '1'. DTSIR325
|
|
00026 88 R325-RPT-UNDER-MAX-88 VALUE '2'. DTSIR325
|
|
00027 88 R325-RPT-OVER-MAX-88 VALUE '3'. DTSIR325
|
|
00028 88 R325-RPT-NO-WAGES-88 VALUE '4'. DTSIR325
|
|
00029 88 R325-RPT-REVERSE-88 VALUE '5'. DTSIR325
|
|
00030 88 R325-RPT-NO-ASSESS-88 VALUE '4'. DTSIR325
|
|
00031 88 R325-RPT-CHG-ASSESS-88 VALUE '0' '1' '2' DTSIR325
|
|
00032 '3' '5'. DTSIR325
|
|
00033 15 R325-SORT-ZIP PIC X(10). DTSIR325
|
|
00034 15 R325-EMP-NO PIC S9(07) COMP-3. DTSIR325
|
|
00035 15 R325-EMP-FEIN PIC S9(09) COMP-3. DTSIR325
|
|
00036 SKIP1 DTSIR325
|
|
00037 10 R325-COMMON-DATA-AREA. DTSIR325
|
|
00038 15 R325-OP-ID PIC X(08). DTSIR325
|
|
00039 15 R325-FMT-ADDR. DTSIR325
|
|
00040 20 R325-FMT-LINE OCCURS 5 TIMES DTSIR325
|
|
00041 INDEXED BY R325-FMT-IDX DTSIR325
|
|
00042 PIC X(40). DTSIR325
|
|
00043 15 R325-ZIP PIC X(10). DTSIR325
|
|
00044 15 R325-ADVANCED-BARCODE PIC X(14). DTSIR325
|
|
00045 15 R325-STMT-DATE PIC S9(09) COMP-3. DTSIR325
|
|
00046 15 R325-QTR PIC S9(05) COMP-3. DTSIR325
|
|
00047 15 R325-UC30-WAGES PIC S9(09)V99 COMP-3. DTSIR325
|
|
00048 15 R325-WAGE-FILE-WAGES PIC S9(09)V99 COMP-3. DTSIR325
|
|
00049 15 R325-ASSESSMENT-WAGES PIC S9(09)V99 COMP-3. DTSIR325
|
|
00050 15 R325-ASSESSMENT-RATE PIC S9(01)V9(3) COMP-3. DTSIR325
|
|
00051 15 R325-CALC-ASSESS-DUE PIC S9(09)V99 COMP-3. DTSIR325
|
|
00052 15 R325-FINAL-ASSESS-DUE PIC S9(09)V99 COMP-3. DTSIR325
|
|
00053 15 FILLER PIC X(25). DTSIR325
|