32 lines
2.5 KiB
COBOL
32 lines
2.5 KiB
COBOL
00001 ***** 07/17/19
|
|
00002 * DTSIXTD1
|
|
00003 * DTSIXTD1 TOPS RECORD TYPE 01 RECORD LV019
|
|
00004 * DTSIXTD1
|
|
00005 * EXCHANGES TOPS RECORD TYPE 1 BETWEEN MAINFRAME AND CL**6
|
|
00006 * OTR/IRS FOR TOPS INTERFACE CL**4
|
|
00007 * DTSIXTD1
|
|
00008 * DTSIXTD1
|
|
00009 ***** DTSIXTD1
|
|
00010 DTSIXTD1
|
|
00011 15 TOP-DET1-AGY-ID PIC X(08) CL*17
|
|
00012 VALUE 'D4 '. CL*17
|
|
00013 15 TOP-DET1-AGY-SITE PIC X(08) CL*19
|
|
00014 VALUE 'TAX '. CL*19
|
|
00015 15 TOP-DET1-DEBT-NUM PIC X(18). CL**8
|
|
00016 15 TOP-DET1-ACTION PIC X(01). CL**8
|
|
00017 15 TOP-DET1-REC-TYPE PIC X(01) VALUE '1'. CL**8
|
|
00018 15 TOP-DET1-TAX-NUM PIC X(09). CL**8
|
|
00019 15 TOP-DET1-LAST-NAME PIC X(35). CL**8
|
|
00020 15 TOP-DET1-FIRST-NAME PIC X(35). CL**8
|
|
00021 15 TOP-DET1-M-NAME PIC X(01). CL**8
|
|
00022 15 TOP-DET1-DEL-DTE PIC X(08). CL**8
|
|
00023 15 TOP-DET1-CON-CODE PIC X(03) VALUE SPACES. CL*16
|
|
00024 15 FILLER PIC X(04). CL**8
|
|
00025 15 TOP-DET1-STATUS PIC X(02). CL**8
|
|
00026 15 FILLER PIC X(01). CL**8
|
|
00027 15 TOP-DET1-AMT PIC 9(10)V9(02). CL*16
|
|
00028 15 TOP-DET1-DEBT-TYPE PIC X(02) VALUE 'TX'. CL*10
|
|
00029 15 TOP-DET1-TYPE PIC X(01) VALUE 'B'. CL*18
|
|
00030 15 TOP-DET1-JUDGE-DEBT PIC X(01) VALUE 'J'. CL*15
|
|
00031 15 FILLER PIC X(50) VALUE SPACES. CL**8
|