42 lines
3.2 KiB
COBOL
42 lines
3.2 KiB
COBOL
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
|