DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
50
Copybook/DTSIR442.cpy
Normal file
50
Copybook/DTSIR442.cpy
Normal file
@ -0,0 +1,50 @@
|
||||
00001 ***** 02/01/06
|
||||
00002 * DTSIR442
|
||||
00003 * DTSIR442 CFO AGING REPORT RECORD. LV001
|
||||
00004 * NOTE: THIS EMPLOYERS AGING ACCOUNTS RECEIVABLE DTSIR442
|
||||
00005 * REPORT CONSISTS OF RATED AND SELF-INSURED DTSIR442
|
||||
00006 * CLASS CATEGORY. DTSIR442
|
||||
00007 ***** DTSIR442
|
||||
00008 SKIP1 DTSIR442
|
||||
00009 10 R442-LENGTH PIC S9(04) COMP. DTSIR442
|
||||
00010 SKIP1 DTSIR442
|
||||
00011 10 R442-SORT-AREA. DTSIR442
|
||||
00012 15 R442-REC-TYPE PIC X(03) VALUE '442'.DTSIR442
|
||||
00013 15 R442-SORT-CLASS PIC X(01). DTSIR442
|
||||
00014 88 R442-SORT-CLASS-R-88 VALUE 'R'. DTSIR442
|
||||
00015 88 R442-SORT-CLASS-S-88 VALUE 'S'. DTSIR442
|
||||
00016 SKIP1 DTSIR442
|
||||
00017 10 R442-DATA-AREA. DTSIR442
|
||||
00018 15 R442-CURR-RUN-DATE PIC S9(09) COMP-3. DTSIR442
|
||||
00019 DTSIR442
|
||||
00020 15 R442-YRQ-AMT OCCURS 7 TIMES DTSIR442
|
||||
00021 INDEXED BY R442-IDX. DTSIR442
|
||||
00022 20 R442-YRQ PIC S9(05) COMP-3. DTSIR442
|
||||
00023 20 R442-TAX-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00024 20 R442-PEN-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00025 20 R442-INT-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00026 SKIP1 DTSIR442
|
||||
00027 15 R442-3-YR-MORE-TAX-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00028 15 R442-3-YR-MORE-PEN-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00029 15 R442-3-YR-MORE-INT-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00030 SKIP1 DTSIR442
|
||||
00031 15 R442-ACTIVE-TAX-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00032 15 R442-ACTIVE-PEN-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00033 15 R442-ACTIVE-INT-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00034 SKIP1 DTSIR442
|
||||
00035 15 R442-INACTIVE-TAX-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00036 15 R442-INACTIVE-PEN-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00037 15 R442-INACTIVE-INT-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00038 SKIP1 DTSIR442
|
||||
00039 15 R442-INACT-3-YR-TAX-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00040 15 R442-INACT-3-YR-PEN-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00041 15 R442-INACT-3-YR-INT-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00042 SKIP1 DTSIR442
|
||||
00043 15 R442-TOT-CHPT-7-TAX-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00044 15 R442-TOT-CHPT-7-PEN-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00045 15 R442-TOT-CHPT-7-INT-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00046 SKIP1 DTSIR442
|
||||
00047 15 R442-TOT-CHPT-11-TAX-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00048 15 R442-TOT-CHPT-11-PEN-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00049 15 R442-TOT-CHPT-11-INT-AMT PIC S9(11)V99 COMP-3. DTSIR442
|
||||
00050 DTSIR442
|
||||
Reference in New Issue
Block a user