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

41
Copybook/DTSIR453.cpy Normal file
View File

@ -0,0 +1,41 @@
00001 ***** 01/20/04
00002 * DTSIR453
00003 * DTSIR453 FINAL DELINQUENT REPORT NOTICE LV001
00004 * REPORT RECORD. DTSIR453
00005 * DTSIR453
00006 ***** DTSIR453
00007 SKIP1 DTSIR453
00008 10 R453-LENGTH PIC S9(04) COMP. DTSIR453
00009 SKIP1 DTSIR453
00010 10 R453-SORT-AREA. DTSIR453
00011 15 R453-REC-TYPE PIC X(03). DTSIR453
00012 15 R453-FIELD-DESK-IND PIC X(01). DTSIR453
00013 88 R453-FLD-DESK-YES-88 VALUE '1'. DTSIR453
00014 88 R453-FLD-DESK-NO-88 VALUE '2'. DTSIR453
00015 15 R453-SORT-ZIP PIC X(10). DTSIR453
00016 15 R453-EMP-NO PIC S9(07) COMP-3. DTSIR453
00017 SKIP1 DTSIR453
00018 10 R453-DATA-AREA. DTSIR453
00019 15 R453-FIELD-REP-ID PIC X(02). DTSIR453
00020 15 R453-MAIL-DATE PIC S9(09) COMP-3. DTSIR453
00021 15 R453-AS-OF-DATE PIC S9(09) COMP-3. DTSIR453
00022 15 R453-UC30-FIRST-DEL-MAIL-DATE DTSIR453
00023 PIC S9(09) COMP-3. DTSIR453
00024 15 R453-FINAL-ACTION-DATE DTSIR453
00025 PIC S9(09) COMP-3. DTSIR453
00026 15 R453-FMT-ADDR. DTSIR453
00027 20 R453-FMT-LINE OCCURS 5 TIMES DTSIR453
00028 INDEXED BY R453-FMT-IDX DTSIR453
00029 PIC X(40). DTSIR453
00030 15 R453-ZIP PIC X(10). DTSIR453
00031 15 R453-ADVANCED-BARCODE PIC X(14). DTSIR453
00032 *************15 R453-DELIV-POINT PIC X(02). DTSIR453
00033 *************15 R453-CHECK-DIGIT PIC X(01). DTSIR453
00034 15 R453-TOTAL-RATE PIC S9(01)V9(04) COMP-3. DTSIR453
00035 88 R453-NO-UI-RATE-88 VALUE -9.9999. DTSIR453
00036 15 R453-YRQ PIC S9(05) COMP-3. DTSIR453
00037 15 R453-DUE-DATE PIC S9(09) COMP-3. DTSIR453
00038 15 R453-ADDITIONAL-RPT-CNT PIC S9(04) COMP. DTSIR453
00039 15 R453-ADDITIONAL-RPT-YRQ OCCURS 19 TIMES DTSIR453
00040 INDEXED BY R453-YRQ-IDX DTSIR453
00041 PIC S9(05) COMP-3. DTSIR453