giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
Copybook/DTSIX795.cpy Normal file
View File

@ -0,0 +1,41 @@
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