DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
29
Copybook/DTSIR439.cpy
Normal file
29
Copybook/DTSIR439.cpy
Normal file
@ -0,0 +1,29 @@
|
||||
00001 ***** 04/08/21
|
||||
00002 * DTSIR439
|
||||
00003 * DTS DEBIT WRITE OFF CANDIDATE LIST REPORT RECORD. LV010
|
||||
00004 * DTSIR439
|
||||
00005 * MODIFIED TO INCLUDE LAST LIAB QTR AND LAST ACTIVITY DATE CL**7
|
||||
00006 * 6/24/14 ZL1 CL**7
|
||||
00007 ***** DTSIR439
|
||||
00008 SKIP1 DTSIR439
|
||||
00009 10 R439-LENGTH PIC S9(04) COMP. CL**5
|
||||
00010 SKIP1 DTSIR439
|
||||
00011 10 R439-SORT-AREA. CL**5
|
||||
00012 15 R439-REC-TYPE PIC X(03). CL**5
|
||||
00013 15 R439-EMP-NO PIC S9(07) COMP-3. CL**5
|
||||
00014 SKIP1 DTSIR439
|
||||
00015 10 R439-DATA-AREA. CL**5
|
||||
00016 15 R439-RPT-TYPE PIC 9(01). CL**8
|
||||
00017 88 R439-CREDIT-RPT-88 VALUE 1. CL**8
|
||||
00018 88 R439-DEBIT-RPT-88 VALUE 2. CL**8
|
||||
00019 15 R439-CUTOFF-YRQ PIC S9(05) COMP-3. CL**8
|
||||
00020 15 R439-PRIMARY-NAME PIC X(36). CL**7
|
||||
00021 15 R439-EMP-STATUS PIC X(04). CL**7
|
||||
00022 15 R439-FLD-REP-ID PIC X(02). CL**5
|
||||
00023 15 R439-TOT-BALANCE-AMT PIC S9(09)V99 COMP-3. CL**5
|
||||
00024 15 R439-TOT-MJRN-AMT PIC S9(09)V99 COMP-3. CL*10
|
||||
00025 15 R439-PURSUED-RPT-CNT PIC S9(03) COMP-3. CL**5
|
||||
00026 15 R439-MLIN-IND PIC X(01). CL**5
|
||||
00027 15 R439-MDPC-IND PIC X(01). CL**5
|
||||
00028 15 R439-LAST-LIAB-YRQ PIC X(06). CL**7
|
||||
00029 15 R439-LAST-UPD-DATE PIC X(10). CL**9
|
||||
Reference in New Issue
Block a user