giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
Copybook/DTSIR415.cpy Normal file
View File

@ -0,0 +1,75 @@
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