DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
21
Copybook/DTSIR520.cpy
Normal file
21
Copybook/DTSIR520.cpy
Normal file
@ -0,0 +1,21 @@
|
||||
00001 ***** 04/19/99
|
||||
00002 * DTSIR520
|
||||
00003 * DTSIR520 TRUST FUND INTEREST DISTRIBUTION REPORT RECORD. LV005
|
||||
00004 * DTSIR520
|
||||
00005 ***** DTSIR520
|
||||
00006 CL**2
|
||||
00007 10 R520-LENGTH PIC S9(04) COMP. CL**4
|
||||
00008 CL**2
|
||||
00009 10 R520-SORT-AREA. CL**4
|
||||
00010 15 R520-REC-TYPE PIC X(03). CL**4
|
||||
00011 15 R520-EMP-NO PIC S9(07) COMP-3. CL**4
|
||||
00012 CL**2
|
||||
00013 10 R520-DATA-AREA. CL**4
|
||||
00014 15 R520-EFF-QTR PIC S9(05) COMP-3. CL**4
|
||||
00015 15 R520-TOT-TRUST-FUND-INT-AMT CL**4
|
||||
00016 PIC S9(11)V9(02) COMP-3. CL**5
|
||||
00017 15 R520-PRIMARY-NAME PIC X(40). CL**4
|
||||
00018 15 R520-POSITIVE-RESERVE-AMT CL**4
|
||||
00019 PIC S9(09)V9(02) COMP-3. CL**4
|
||||
00020 15 R520-TRUST-FUND-INTEREST-AMT CL**4
|
||||
00021 PIC S9(09)V9(02) COMP-3. CL**2
|
||||
Reference in New Issue
Block a user