00001 *****                                                             11/01/22
00002 *                                                                 DTSIX795
00003 *    DTSIX795    TOP RECORD FORMAT.                                  LV011
00004 *                                                                 DTSIX795
00005 *                                                                 DTSIX795
00006 *****                                                             DTSIX795
00007      05  TOP-DETAIL-REC1.                                            CL**5
00008          10  TOP-AGENCY-ID           PIC X(08) VALUE ' D4     '.     CL**5
00009          10  TOP-AGENCY-SITE-ID      PIC X(08) VALUE 'TAX     '.     CL**5
00010          10  TOP-SEQ-NO              PIC 9(18).                      CL**5
00011          10  TOP-ACTION              PIC X(01) VALUE 'A'.            CL**5
00012          10  TOP-REC-TYPE1           PIC X(01) VALUE '1'.            CL**6
00013          10  TOP-FEIN                PIC X(09).                      CL**5
00014          10  TOP-EMP-LNAME           PIC X(35).                      CL**5
00015          10  TOP-EMP-FNAME           PIC X(35).                      CL**5
00016          10  TOP-EMP-MNAME           PIC X(01) VALUE SPACES.         CL**5
00017          10  TOP-DEL-DATE            PIC X(08).                      CL**5
00018          10  TOP-CONTACT-CODE        PIC X(03) VALUE SPACES.         CL**5
00019          10  FILLER                  PIC X(04) VALUE SPACES.         CL**5
00020          10  TOP-DEBTOR-STATUS       PIC X(02) VALUE SPACES.         CL**5
00021          10  FILLER                  PIC X(01) VALUE SPACES.         CL**5
00022          10  TOP-AMOUNT              PIC 9(10)V99.                   CL*10
00023          10  TOP-DEBT-TYPE           PIC X(02) VALUE 'TX'.           CL**9
00024          10  TOP-FEIN-TYPE           PIC X(01) VALUE 'B'.            CL**5
00025          10  TOP-JUDGE-DEBT          PIC X(01) VALUE 'J'.            CL**5
00026          10  FILLER                  PIC X(50) VALUE SPACES.         CL**5
00027      05  TOP-DETAIL-REC2.                                            CL**5
00028          10  TOP-AGENCY-ID-2         PIC X(08) VALUE ' D4     '.     CL**5
00029          10  TOP-AGENCY-SITE-ID-2    PIC X(08) VALUE 'TAX     '.     CL**5
00030          10  TOP-SEQ-NO-2            PIC 9(18).                      CL**5
00031          10  TOP-ACTION-2            PIC X(01) VALUE 'A'.            CL**5
00032          10  TOP-REC-TYPE-2          PIC X(01) VALUE '2'.            CL**5
00033          10  TOP-EMP-ADDRESS-1       PIC X(30).                      CL**5
00034          10  TOP-EMP-ADDRESS-2       PIC X(30) VALUE SPACES.         CL**5
00035          10  TOP-EMP-CITY            PIC X(25) VALUE SPACES.         CL**5
00036          10  TOP-EMP-STATE           PIC X(02).                      CL**5
00037          10  TOP-EMP-ZIP             PIC X(09) VALUE SPACES.         CL**5
00038          10  TOP-EMP-COUNTRY         PIC X(03) VALUE SPACES.         CL*11
00039          10  TOP-DATE-DEBT           PIC X(08) VALUE SPACES.         CL**5
00040          10  TOP-AMOUNT-2            PIC 9(10)V99.                   CL*10
00041          10  FILLER                  PIC X(44) VALUE SPACES.         CL*11