41 lines
3.2 KiB
COBOL
41 lines
3.2 KiB
COBOL
00001 ***** 09/08/01
|
|
00002 * DTSIR429
|
|
00003 * DTSIR429 COLLECTIONS SPECIALIST TOTAL BALANCE DUE LV007
|
|
00004 * > PARM-BAL-AMT DTSIR429
|
|
00005 * REPORT RECORD. DTSIR429
|
|
00006 * DTSIR429
|
|
00007 * NOTE: TOT-BAL-AMT IS IN DESCENDING ORDER, THUS DTSIR429
|
|
00008 * IT IS IN THE BOTH THE SORT AREA (-INV) AND DTSIR429
|
|
00009 * THE DATA AREA. DTSIR429
|
|
00010 * DTSIR429
|
|
00011 ***** DTSIR429
|
|
00012 SKIP1 DTSIR429
|
|
00013 10 R429-LENGTH PIC S9(04) COMP. DTSIR429
|
|
00014 SKIP1 DTSIR429
|
|
00015 10 R429-SORT-AREA. DTSIR429
|
|
00016 15 R429-REC-TYPE PIC X(03) VALUE '429'. DTSIR429
|
|
00017 15 R429-FLD-REP-ID PIC X(02). DTSIR429
|
|
00018 15 R429-CATEGORY PIC X(01). DTSIR429
|
|
00019 88 R429-CATEGORY-DEF-PAYMNT-88 VALUE '1'. DTSIR429
|
|
00020 88 R429-CATEGORY-LIEN-CAND-88 VALUE '2'. DTSIR429
|
|
00021 88 R429-CATEGORY-ALL-ELSE-I-88 VALUE '3'. DTSIR429
|
|
00022 88 R429-CATEGORY-ALL-ELSE-A-88 VALUE '4'. DTSIR429
|
|
00023 15 R429-CATEGORY-9 REDEFINES R429-CATEGORY DTSIR429
|
|
00024 PIC 9(01). DTSIR429
|
|
00025 15 R429-TOT-BAL-AMT-INV PIC S9(09)V99 COMP-3. DTSIR429
|
|
00026 15 R429-EMP-NO PIC S9(07) COMP-3. DTSIR429
|
|
00027 SKIP1 DTSIR429
|
|
00028 10 R429-DATA-AREA. DTSIR429
|
|
00029 15 R429-PARM-BAL-AMT PIC S9(09)V99 COMP-3. DTSIR429
|
|
00030 15 R429-FLD-REP-CNT PIC S9(04) COMP. DTSIR429
|
|
00031 15 R429-FLD-REP-PARM OCCURS 2 TIMES DTSIR429
|
|
00032 PIC X(02). DTSIR429
|
|
00033 15 R429-TAX-DUE-CUTOFF-DT PIC S9(09) COMP-3. DTSIR429
|
|
00034 15 R429-FIELD-TYPE-CNT PIC S9(04) COMP. DTSIR429
|
|
00035 15 R429-FIELD-TYPE-PARM OCCURS 3 TIMES DTSIR429
|
|
00036 PIC X(02). DTSIR429
|
|
00037 15 R429-INT-PEN-COMP-DATE PIC S9(09) COMP-3. DTSIR429
|
|
00038 15 R429-PRIMARY-NAME PIC X(40). DTSIR429
|
|
00039 15 R429-INAC-DATE PIC S9(09) COMP-3. DTSIR429
|
|
00040 15 R429-TOT-BAL-AMT PIC S9(09)V99 COMP-3. DTSIR429
|