51 lines
4.0 KiB
COBOL
51 lines
4.0 KiB
COBOL
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
|