57 lines
4.4 KiB
COBOL
57 lines
4.4 KiB
COBOL
00001 ***** 09/10/03
|
|
00002 * DTSIR423
|
|
00003 * DTSIR423 PRIOR DELINQUENT ACCOUNT NUMBER LIST LV008
|
|
00004 * REPORT RECORD. DTSIR423
|
|
00005 * NOTE: IF EMPLOYER IS ACTIVE, THEN DTSIR423
|
|
00006 * R423-INACT-DATE WILL BE EQUAL DTSIR423
|
|
00007 * TO ALL NINES. DTSIR423
|
|
00008 * DTSIR423
|
|
00009 * 08/02 MODIFIED TO INCLUDE ANNUAL/QUARTERLY INDICATOR DTSIR423
|
|
00010 * FOR EACH QUARTER ZL1 DTSIR423
|
|
00011 * DTSIR423
|
|
00012 * DTSIR423
|
|
00013 ***** DTSIR423
|
|
00014 SKIP1 DTSIR423
|
|
00015 10 R423-LENGTH PIC S9(04) COMP. DTSIR423
|
|
00016 SKIP1 DTSIR423
|
|
00017 10 R423-SORT-AREA. DTSIR423
|
|
00018 15 R423-REC-TYPE PIC X(03). DTSIR423
|
|
00019 15 R423-SORT-TYPE PIC X(01). DTSIR423
|
|
00020 88 R423-SORT-TYPE-E-88 VALUE 'E'. DTSIR423
|
|
00021 88 R423-SORT-TYPE-F-88 VALUE 'F'. DTSIR423
|
|
00022 15 R423-SORT-VAR-AREA PIC X(16). DTSIR423
|
|
00023 15 R423-EMP-NO-SORT-AREA DTSIR423
|
|
00024 REDEFINES R423-SORT-VAR-AREA. DTSIR423
|
|
00025 20 R423-SORTE-EMP-NO PIC S9(07) COMP-3. DTSIR423
|
|
00026 20 FILLER PIC X(12). DTSIR423
|
|
00027 15 R423-FIELD-REP-SORT-AREA DTSIR423
|
|
00028 REDEFINES R423-SORT-VAR-AREA. DTSIR423
|
|
00029 20 R423-SORTF-FIELD-REP-ID PIC X(02). DTSIR423
|
|
00030 20 R423-SORTF-FIELD-ZIP PIC X(05). DTSIR423
|
|
00031 20 R423-SORTF-EMP-NO PIC S9(07) COMP-3. DTSIR423
|
|
00032 20 FILLER PIC X(05). DTSIR423
|
|
00033 SKIP1 DTSIR423
|
|
00034 10 R423-DATA-AREA. DTSIR423
|
|
00035 15 R423-YRQ-OLDEST PIC S9(05) COMP-3. DTSIR423
|
|
00036 15 R423-YRQ-MOST-RECENT PIC S9(05) COMP-3. DTSIR423
|
|
00037 15 R423-YRQ-CNT PIC S9(04) COMP. DTSIR423
|
|
00038 15 R423-MISSING-YRQ-DATA OCCURS 20 TIMES DTSIR423
|
|
00039 INDEXED BY R423-YRQ-IDX. DTSIR423
|
|
00040 20 R423-MISSING-YRQ PIC S9(05) COMP-3. DTSIR423
|
|
00041 20 R423-ANNUAL-IND PIC X(01). DTSIR423
|
|
00042 88 R423-ANNUAL-YES-88 VALUE 'Y'. DTSIR423
|
|
00043 88 R423-ANNUAL-NO-88 VALUE 'N'. DTSIR423
|
|
00044 20 R423-MISSING-YRQ-TOTAL-RATE DTSIR423
|
|
00045 PIC S9(01)V9(04) COMP-3. DTSIR423
|
|
00046 88 R423-MISSING-YRQ-NO-RATE-88 DTSIR423
|
|
00047 VALUE -9.9999. DTSIR423
|
|
00048 15 R423-PRIMARY-NAME PIC X(40). DTSIR423
|
|
00049 15 R423-ADDR. DTSIR423
|
|
00050 20 R423-ATTN-LINE PIC X(40). DTSIR423
|
|
00051 20 R423-DELIV-LINE-1 PIC X(40). DTSIR423
|
|
00052 20 R423-DELIV-LINE-2 PIC X(40). DTSIR423
|
|
00053 20 R423-CITY PIC X(25). DTSIR423
|
|
00054 20 R423-ST PIC X(02). DTSIR423
|
|
00055 20 R423-ZIP PIC X(10). DTSIR423
|
|
00056 15 R423-INACT-DATE PIC S9(09) COMP-3. DTSIR423
|