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

36
Copybook/DTSIR746.cpy Normal file
View File

@ -0,0 +1,36 @@
00001 ***** 02/13/99
00002 * DTSIR746
00003 * DTSIR746 BATCH ADDRESS UPDATE ADDRESS ERROR REPORT. LV002
00004 * DTSIR746
00005 * CL**2
00006 * 02/13/1999 REVEIWED AND MODIFIED FOR DC. EHH CL**2
00007 * CL**2
00008 ***** DTSIR746
00009 DTSIR746
00010 10 R746-LENGTH PIC S9(04) COMP. DTSIR746
00011 DTSIR746
00012 10 R746-SORT-AREA. DTSIR746
00013 15 R746-REC-TYPE PIC X(03) VALUE '746'. DTSIR746
00014 15 R746-EMP-NO PIC S9(07) COMP-3. DTSIR746
00015 15 R746-MSTR-REC-TYPE PIC S9(04) COMP. DTSIR746
00016 15 R746-ADDR-ID-NO PIC S9(03) COMP-3. DTSIR746
00017 DTSIR746
00018 10 R746-DATA-AREA. DTSIR746
00019 15 R746-PRIMARY-NAME PIC X(40). CL**2
00020 DTSIR746
00021 15 R746-ADDR-TYPE PIC X(03). DTSIR746
00022 DTSIR746
00023 15 R746-PRE-ADDRESS. DTSIR746
00024 20 R746-PRE-ATTN-LINE PIC X(40). DTSIR746
00025 20 R746-PRE-DELIV-LINE-1 PIC X(40). CL**2
00026 20 R746-PRE-DELIV-LINE-2 PIC X(40). CL**2
00027 20 R746-PRE-CITY PIC X(25). DTSIR746
00028 20 R746-PRE-ST PIC X(02). DTSIR746
00029 20 R746-PRE-ZIP PIC X(10). DTSIR746
00030 20 R746-PRE-ADVANCED-BARCODE CL**2
00031 PIC X(14). CL**2
00032 DTSIR746
00033 15 R746-MSG-CNT PIC S9(03) COMP-3. DTSIR746
00034 DTSIR746
00035 15 R746-MSG-TEXT OCCURS 3 TIMES DTSIR746
00036 PIC X(60). DTSIR746