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

84
Copybook/DTSIR414.cpy Normal file
View File

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