62 lines
4.8 KiB
COBOL
62 lines
4.8 KiB
COBOL
00001 ***** 12/09/04
|
|
00002 * DTSIR436
|
|
00003 * DTSIR436 COMPROMISE SETTLEMENT REPORT RECORDS. LV001
|
|
00004 * DTSIR436
|
|
00005 * DTSIR436
|
|
00006 * 05/03/2004 INITIAL DEVELOPMENT. GD DTSIR436
|
|
00007 * DTSIR436
|
|
00008 ***** DTSIR436
|
|
00009 DTSIR436
|
|
00010 10 R436-LENGTH PIC S9(04) COMP. DTSIR436
|
|
00011 DTSIR436
|
|
00012 DTSIR436
|
|
00013 10 R436-SORT-AREA. DTSIR436
|
|
00014 15 R436-REC-TYPE PIC X(03) VALUE '436'. DTSIR436
|
|
00015 DTSIR436
|
|
00016 15 R436-RESP-OP-ID PIC X(08). DTSIR436
|
|
00017 DTSIR436
|
|
00018 15 R436-EMP-NO PIC S9(07) COMP-3. DTSIR436
|
|
00019 DTSIR436
|
|
00020 DTSIR436
|
|
00021 10 R436-DATA-AREA. DTSIR436
|
|
00022 15 R436-MAIL-DATE PIC S9(09) COMP-3. DTSIR436
|
|
00023 DTSIR436
|
|
00024 15 R436-SETTLEMENT-DATE PIC S9(09) COMP-3. DTSIR436
|
|
00025 DTSIR436
|
|
00026 15 R436-SETTLEMENT-DUE-AMT PIC S9(09)V99 COMP-3. DTSIR436
|
|
00027 DTSIR436
|
|
00028 15 R436-TAX-WAIVED-AMT PIC S9(09)V9(02) COMP-3.DTSIR436
|
|
00029 DTSIR436
|
|
00030 15 R436-PEN-WAIVED-AMT PIC S9(09)V9(02) COMP-3.DTSIR436
|
|
00031 DTSIR436
|
|
00032 15 R436-INT-WAIVED-AMT PIC S9(09)V9(02) COMP-3.DTSIR436
|
|
00033 DTSIR436
|
|
00034 15 R436-PRIMARY-NAME PIC X(40). DTSIR436
|
|
00035 DTSIR436
|
|
00036 15 R436-MAILING-ADDRESS. DTSIR436
|
|
00037 20 R436-MAILING-LINE DTSIR436
|
|
00038 OCCURS 5 TIMES DTSIR436
|
|
00039 INDEXED BY R436-MAILING-LINE-IDX DTSIR436
|
|
00040 PIC X(40). DTSIR436
|
|
00041 DTSIR436
|
|
00042 ***** DTSIR436
|
|
00043 * DTSIR436
|
|
00044 * BECAUSE OF THE METHOD USED TO HANDLE CMP ADDRESSES IN THE DTSIR436
|
|
00045 * SYSTEM, R436-ZIP AND R436-ADVANCED-BARCODE ARE EQUAL TO DTSIR436
|
|
00046 * SPACES. THEY ARE INCLUDED HERE FOR CONSISTENCY WITH THE DTSIR436
|
|
00047 * REST OF THE SYSTEM - A MARGINAL REASON AT BEST. DTSIR436
|
|
00048 * DTSIR436
|
|
00049 ***** DTSIR436
|
|
00050 DTSIR436
|
|
00051 15 R436-ZIP PIC X(10). DTSIR436
|
|
00052 DTSIR436
|
|
00053 15 R436-ADVANCED-BARCODE PIC X(14). DTSIR436
|
|
00054 DTSIR436
|
|
00055 15 R436-COV-CNT PIC S9(04) COMP. DTSIR436
|
|
00056 DTSIR436
|
|
00057 15 R436-COVERED-YRQ DTSIR436
|
|
00058 OCCURS 20 TIMES DTSIR436
|
|
00059 INDEXED BY R436-COVERED-YRQ-IDX DTSIR436
|
|
00060 PIC S9(05) COMP-3. DTSIR436
|
|
00061 DTSIR436
|