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

56
Copybook/DTSIR423.cpy Normal file
View File

@ -0,0 +1,56 @@
00001 ***** 09/10/03
00002 * DTSIR423
00003 * DTSIR423 PRIOR DELINQUENT ACCOUNT NUMBER LIST LV008
00004 * REPORT RECORD. DTSIR423
00005 * NOTE: IF EMPLOYER IS ACTIVE, THEN DTSIR423
00006 * R423-INACT-DATE WILL BE EQUAL DTSIR423
00007 * TO ALL NINES. DTSIR423
00008 * DTSIR423
00009 * 08/02 MODIFIED TO INCLUDE ANNUAL/QUARTERLY INDICATOR DTSIR423
00010 * FOR EACH QUARTER ZL1 DTSIR423
00011 * DTSIR423
00012 * DTSIR423
00013 ***** DTSIR423
00014 SKIP1 DTSIR423
00015 10 R423-LENGTH PIC S9(04) COMP. DTSIR423
00016 SKIP1 DTSIR423
00017 10 R423-SORT-AREA. DTSIR423
00018 15 R423-REC-TYPE PIC X(03). DTSIR423
00019 15 R423-SORT-TYPE PIC X(01). DTSIR423
00020 88 R423-SORT-TYPE-E-88 VALUE 'E'. DTSIR423
00021 88 R423-SORT-TYPE-F-88 VALUE 'F'. DTSIR423
00022 15 R423-SORT-VAR-AREA PIC X(16). DTSIR423
00023 15 R423-EMP-NO-SORT-AREA DTSIR423
00024 REDEFINES R423-SORT-VAR-AREA. DTSIR423
00025 20 R423-SORTE-EMP-NO PIC S9(07) COMP-3. DTSIR423
00026 20 FILLER PIC X(12). DTSIR423
00027 15 R423-FIELD-REP-SORT-AREA DTSIR423
00028 REDEFINES R423-SORT-VAR-AREA. DTSIR423
00029 20 R423-SORTF-FIELD-REP-ID PIC X(02). DTSIR423
00030 20 R423-SORTF-FIELD-ZIP PIC X(05). DTSIR423
00031 20 R423-SORTF-EMP-NO PIC S9(07) COMP-3. DTSIR423
00032 20 FILLER PIC X(05). DTSIR423
00033 SKIP1 DTSIR423
00034 10 R423-DATA-AREA. DTSIR423
00035 15 R423-YRQ-OLDEST PIC S9(05) COMP-3. DTSIR423
00036 15 R423-YRQ-MOST-RECENT PIC S9(05) COMP-3. DTSIR423
00037 15 R423-YRQ-CNT PIC S9(04) COMP. DTSIR423
00038 15 R423-MISSING-YRQ-DATA OCCURS 20 TIMES DTSIR423
00039 INDEXED BY R423-YRQ-IDX. DTSIR423
00040 20 R423-MISSING-YRQ PIC S9(05) COMP-3. DTSIR423
00041 20 R423-ANNUAL-IND PIC X(01). DTSIR423
00042 88 R423-ANNUAL-YES-88 VALUE 'Y'. DTSIR423
00043 88 R423-ANNUAL-NO-88 VALUE 'N'. DTSIR423
00044 20 R423-MISSING-YRQ-TOTAL-RATE DTSIR423
00045 PIC S9(01)V9(04) COMP-3. DTSIR423
00046 88 R423-MISSING-YRQ-NO-RATE-88 DTSIR423
00047 VALUE -9.9999. DTSIR423
00048 15 R423-PRIMARY-NAME PIC X(40). DTSIR423
00049 15 R423-ADDR. DTSIR423
00050 20 R423-ATTN-LINE PIC X(40). DTSIR423
00051 20 R423-DELIV-LINE-1 PIC X(40). DTSIR423
00052 20 R423-DELIV-LINE-2 PIC X(40). DTSIR423
00053 20 R423-CITY PIC X(25). DTSIR423
00054 20 R423-ST PIC X(02). DTSIR423
00055 20 R423-ZIP PIC X(10). DTSIR423
00056 15 R423-INACT-DATE PIC S9(09) COMP-3. DTSIR423