85 lines
6.6 KiB
COBOL
85 lines
6.6 KiB
COBOL
00001 ***** 04/03/22
|
|
00002 * DTSIR414
|
|
00003 * DTSIR414 STATEMENT OF ACCOUNT (COLLECTIONS) REPORT RECORD. LV009
|
|
00004 * DTSIR414
|
|
00005 * NOTES: DTSIR414
|
|
00006 * YEAR-QTRS NEED TO BE IN ASCENDING ORDER DTSIR414
|
|
00007 * DTSIR414
|
|
00008 * R414-LENGTH MUST BE CALCULATED USING DTSIR414
|
|
00009 * THE VALUE OF R414-STMT-TEXT-CNT. DTSIR414
|
|
00010 * DTSIR414
|
|
00011 * THERE CAN BE MORE THAN ONE STATEMENT OF DTSIR414
|
|
00012 * ACCOUNT FOR A GIVEN EMPLOYER (THE ONLY DTSIR414
|
|
00013 * DIFFERENCE BEING THE FORMATTED ADDRESS). DTSIR414
|
|
00014 * DTSIR414
|
|
00015 * IF R414-QTR-APPEAL-IND IS 'Y', AN ASTERISK DTSIR414
|
|
00016 * IS PRINTED AFTER THE QTR AND A FOOTNOTE IS DTSIR414
|
|
00017 * PRINTED ON THE LAST PAGE AS FOLLOWS: DTSIR414
|
|
00018 * '* INDICATES QUARTER IS COVERED BY AN APPEAL' DTSIR414
|
|
00019 * DTSIR414
|
|
00020 * IF R414-QTR-EST-RPT-IND IS 'Y', THEN THERE DTSIR414
|
|
00021 * IS AN ESTIMATED REPORT ON FILE AND DTSIR414
|
|
00022 * R414-QTR-STATUS CONTAINS THE APPLICABLE DTSIR414
|
|
00023 * AMOUNT OWING MESSAGE (IN THIS CASE THERE DTSIR414
|
|
00024 * ACTUALLY ARE 2 LINES GENERATED FOR ONE DTSIR414
|
|
00025 * QUARTER OCCURANCE). DTSIR414
|
|
00026 * DTSIR414
|
|
00027 ***** DTSIR414
|
|
00028 SKIP1 DTSIR414
|
|
00029 10 R414-LENGTH PIC S9(04) COMP. DTSIR414
|
|
00030 SKIP1 DTSIR414
|
|
00031 10 R414-SORT-AREA. DTSIR414
|
|
00032 15 R414-REC-TYPE PIC X(03). DTSIR414
|
|
00033 15 R414-FLD-REP-ID PIC X(02). DTSIR414
|
|
00034 15 R414-SORT-ZIP PIC X(10). DTSIR414
|
|
00035 15 R414-EMP-NO PIC S9(07) COMP-3. DTSIR414
|
|
00036 15 R414-EMP-FEIN PIC S9(09) COMP-3. DTSIR414
|
|
00037 SKIP1 DTSIR414
|
|
00038 10 R414-COMMON-DATA-AREA. DTSIR414
|
|
00039 15 R414-OP-ID PIC X(08). DTSIR414
|
|
00040 15 R414-FMT-ADDR. DTSIR414
|
|
00041 20 R414-FMT-LINE OCCURS 5 TIMES DTSIR414
|
|
00042 INDEXED BY R414-FMT-IDX DTSIR414
|
|
00043 PIC X(40). DTSIR414
|
|
00044 15 R414-ZIP PIC X(10). DTSIR414
|
|
00045 15 R414-ADVANCED-BARCODE PIC X(14). DTSIR414
|
|
00046 15 R414-STMT-DATE PIC S9(09) COMP-3. DTSIR414
|
|
00047 15 R414-COMP-DATE PIC S9(09) COMP-3. DTSIR414
|
|
00048 15 R414-LAST-ACCT-UPDATE-DATE DTSIR414
|
|
00049 PIC S9(09) COMP-3. DTSIR414
|
|
00050 15 R414-QTR-CNT PIC S9(04) COMP. DTSIR414
|
|
00051 15 R414-QTR-OCCURS OCCURS 70 TIMES DTSIR414
|
|
00052 INDEXED BY R414-QTR-IDX. DTSIR414
|
|
00053 20 R414-QTR PIC S9(05) COMP-3. DTSIR414
|
|
00054 20 R414-QTR-APPEAL-IND PIC X(01). DTSIR414
|
|
00055 88 R414-QTR-APPEAL-YES-88 VALUE 'Y'. DTSIR414
|
|
00056 88 R414-QTR-APPEAL-NO-88 VALUE 'N'. DTSIR414
|
|
00057 20 R414-QTR-EST-RPT-IND PIC X(01). DTSIR414
|
|
00058 88 R414-QTR-EST-RPT-YES-88 VALUE 'Y'. DTSIR414
|
|
00059 88 R414-QTR-EST-RPT-NO-88 VALUE 'N'. DTSIR414
|
|
00060 20 R414-RPT-MISSING-IND PIC X(01). DTSIR414
|
|
00061 88 R414-RPT-MISSING-YES-88 VALUE 'Y'. DTSIR414
|
|
00062 88 R414-RPT-MISSING-NO-88 VALUE 'N'. DTSIR414
|
|
00063 20 R414-ANNUAL-FILER-IND PIC X(01). DTSIR414
|
|
00064 88 R414-ANN-FILER-YES-88 VALUE 'Y'. DTSIR414
|
|
00065 88 R414-ANN-FILER-NO-88 VALUE 'N'. DTSIR414
|
|
00066 20 R414-CONTRIB-AMT PIC S9(09)V99 DTSIR414
|
|
00067 COMP-3. DTSIR414
|
|
00068 20 R414-INTEREST-AMT PIC S9(09)V99 DTSIR414
|
|
00069 COMP-3. DTSIR414
|
|
00070 20 R414-PENALTY-AMT PIC S9(09)V99 DTSIR414
|
|
00071 COMP-3. DTSIR414
|
|
00072 20 R414-BALANCE-AMT PIC S9(09)V99 DTSIR414
|
|
00073 COMP-3. DTSIR414
|
|
00074 20 R414-SURCHARG-AMT PIC S9(09)V99 DTSIR414
|
|
00075 COMP-3. DTSIR414
|
|
00076 20 R414-LAST-CHNG-IND PIC X(01). DTSIR414
|
|
00077 88 R414-CHNG-GT2YR-YES-88 VALUE 'Y'. DTSIR414
|
|
00078 88 R414-CHNG-GT2YR-NO-88 VALUE 'N'. DTSIR414
|
|
00079 15 R414-STATUS PIC X(01). CL**2
|
|
00080 15 R414-CLASS PIC X(01). CL**3
|
|
00081 15 R414-FIELD-REP PIC X(02). CL**6
|
|
00082 15 R414-LIEN PIC X(01). CL**8
|
|
00083 15 R414-PURSUED PIC 9(02). CL**9
|
|
00084 15 FILLER PIC X(17). CL**9
|