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

40
Copybook/DTSIR429.cpy Normal file
View File

@ -0,0 +1,40 @@
00001 ***** 09/08/01
00002 * DTSIR429
00003 * DTSIR429 COLLECTIONS SPECIALIST TOTAL BALANCE DUE LV007
00004 * > PARM-BAL-AMT DTSIR429
00005 * REPORT RECORD. DTSIR429
00006 * DTSIR429
00007 * NOTE: TOT-BAL-AMT IS IN DESCENDING ORDER, THUS DTSIR429
00008 * IT IS IN THE BOTH THE SORT AREA (-INV) AND DTSIR429
00009 * THE DATA AREA. DTSIR429
00010 * DTSIR429
00011 ***** DTSIR429
00012 SKIP1 DTSIR429
00013 10 R429-LENGTH PIC S9(04) COMP. DTSIR429
00014 SKIP1 DTSIR429
00015 10 R429-SORT-AREA. DTSIR429
00016 15 R429-REC-TYPE PIC X(03) VALUE '429'. DTSIR429
00017 15 R429-FLD-REP-ID PIC X(02). DTSIR429
00018 15 R429-CATEGORY PIC X(01). DTSIR429
00019 88 R429-CATEGORY-DEF-PAYMNT-88 VALUE '1'. DTSIR429
00020 88 R429-CATEGORY-LIEN-CAND-88 VALUE '2'. DTSIR429
00021 88 R429-CATEGORY-ALL-ELSE-I-88 VALUE '3'. DTSIR429
00022 88 R429-CATEGORY-ALL-ELSE-A-88 VALUE '4'. DTSIR429
00023 15 R429-CATEGORY-9 REDEFINES R429-CATEGORY DTSIR429
00024 PIC 9(01). DTSIR429
00025 15 R429-TOT-BAL-AMT-INV PIC S9(09)V99 COMP-3. DTSIR429
00026 15 R429-EMP-NO PIC S9(07) COMP-3. DTSIR429
00027 SKIP1 DTSIR429
00028 10 R429-DATA-AREA. DTSIR429
00029 15 R429-PARM-BAL-AMT PIC S9(09)V99 COMP-3. DTSIR429
00030 15 R429-FLD-REP-CNT PIC S9(04) COMP. DTSIR429
00031 15 R429-FLD-REP-PARM OCCURS 2 TIMES DTSIR429
00032 PIC X(02). DTSIR429
00033 15 R429-TAX-DUE-CUTOFF-DT PIC S9(09) COMP-3. DTSIR429
00034 15 R429-FIELD-TYPE-CNT PIC S9(04) COMP. DTSIR429
00035 15 R429-FIELD-TYPE-PARM OCCURS 3 TIMES DTSIR429
00036 PIC X(02). DTSIR429
00037 15 R429-INT-PEN-COMP-DATE PIC S9(09) COMP-3. DTSIR429
00038 15 R429-PRIMARY-NAME PIC X(40). DTSIR429
00039 15 R429-INAC-DATE PIC S9(09) COMP-3. DTSIR429
00040 15 R429-TOT-BAL-AMT PIC S9(09)V99 COMP-3. DTSIR429