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/DTSIR404.cpy Normal file
View File

@ -0,0 +1,31 @@
00001 ***** 01/30/99
00002 * DTSIR404
00003 * DTSIR404 LIEN PACKAGES PRINTED CONTROL REPORT LV007
00004 * REPORT RECORD. CL**6
00005 * CL**6
00006 * DTSIR404
00007 * 01/29/1999 CREATED FOR DC. EHH CL**6
00008 * CL**2
00009 ***** DTSIR404
00010 CL**2
00011 10 R404-LENGTH PIC S9(04) COMP. CL**6
00012 CL**2
00013 10 R404-SORT-AREA. CL**6
00014 15 R404-REC-TYPE PIC X(03) VALUE '404'. CL**6
00015 15 R404-EMP-NO PIC S9(07) COMP-3. CL**6
00016 CL**2
00017 10 R404-DATA-AREA. CL**7
00018 15 R404-CERTIFICATE-NO PIC S9(08) COMP-3. CL**6
00019 15 R404-PRIMARY-NAME PIC X(40). CL**6
00020 15 R404-COV-CNT PIC S9(04) COMP. CL**6
00021 15 R404-COVERED-YRQ OCCURS 20 TIMES CL**6
00022 INDEXED BY R404-COVERED-IDX CL**6
00023 PIC S9(05) COMP-3. CL**6
00024 15 R404-LICENSE-IND PIC X(01). CL**6
00025 88 R404-LICENSE-YES-88 VALUE 'Y'. CL**6
00026 88 R404-LICENSE-NO-88 VALUE 'N'. CL**6
00027 15 R404-STMT-DUE-AMT PIC S9(09)V9(02) COMP-3. CL**6
00028 15 R404-FMT-ADDR. CL**6
00029 20 R404-FMT-LINE OCCURS 5 TIMES CL**6
00030 INDEXED BY R404-FMT-IDX CL**6
00031 PIC X(40). CL**2