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