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