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

42
Copybook/DTSIW405.cpy Normal file
View File

@ -0,0 +1,42 @@
00001 ***** 01/30/25
00002 * DTSIW405
00003 * DTSIW405 LIEN RELEASE CANDIDATES REPORT RECORD. LV022
00004 * DTSIW405
00005 * 10/20/00 ADDED W405-OPID TO IR. ZL1. CL*12
00006 ***** DTSIW405
00007 SKIP1 DTSIW405
00008 10 W405-LENGTH PIC 9(04). CL*12
00009 10 FILLER PIC X(01) VALUE '|'. CL*22
00010 SKIP1 DTSIW405
00011 10 W405-SORT-AREA. CL*12
00012 15 W405-REC-TYPE PIC X(03). CL*12
00013 15 FILLER PIC X(01) VALUE '|'. CL*22
00014 15 W405-OP-ID PIC X(08). CL*12
00015 15 FILLER PIC X(01) VALUE '|'. CL*22
00016 15 W405-EMP-NO PIC 9(06). CL*12
00017 15 FILLER PIC X(01) VALUE '|'. CL*22
00018 SKIP1 DTSIW405
00019 10 W405-DATA-AREA. CL*12
00020 15 W405-PRIMARY-NAME PIC X(40). CL*12
00021 15 FILLER PIC X(01) VALUE '|'. CL*22
00022 15 W405-STMT-DATE PIC X(10). CL*17
00023 15 FILLER PIC X(01) VALUE '|'. CL*22
00024 15 W405-CERTIFICATE-NO PIC 9(08). CL*13
00025 15 FILLER PIC X(01) VALUE '|'. CL*22
00026 15 W405-REC-DEEDS-NO PIC X(10). CL*12
00027 15 FILLER PIC X(01) VALUE '|'. CL*22
00028 15 W405-CERTIFICATE-DATE PIC X(10). CL*17
00029 15 FILLER PIC X(01) VALUE '|'. CL*22
00030 15 W405-FMT-ADDR. CL*12
00031 20 W405-FMT-LINE1 PIC X(40). CL*19
00032 20 FILLER PIC X(01) VALUE '|'. CL*22
00033 20 W405-FMT-LINE2 PIC X(40). CL*19
00034 20 FILLER PIC X(01) VALUE '|'. CL*22
00035 20 W405-FMT-LINE3 PIC X(40). CL*19
00036 20 FILLER PIC X(01) VALUE '|'. CL*22
00037 20 W405-FMT-LINE4 PIC X(40). CL*19
00038 20 FILLER PIC X(01) VALUE '|'. CL*22
00039 20 W405-FMT-LINE5 PIC X(40). CL*19
00040 20 FILLER PIC X(01) VALUE '|'. CL*22
00041 CL*21
00042 15 W405-CURR-DATE PIC X(10). CL*21