22 lines
1.7 KiB
COBOL
22 lines
1.7 KiB
COBOL
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
|