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

31
Copybook/DTSIXTD1.cpy Normal file
View File

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