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

@ -0,0 +1,36 @@
00001 * FUNCTION: TO PRINT ADDRESS INFO ON SELT MAILERS. 11/15/05
00002 * DTSXMAIL
00003 * LV001
00004 * MODIFICATION HISTORY: DTSXMAIL
00005 * DTSXMAIL
00006 * 05-20-04 INITIAL DEVELOPMENT - DTSXMAIL
00007 * REFERENCE RFP #RAP AUTHOR OF CHANGE - ZL1 DTSXMAIL
00008 * DTSXMAIL
00009 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXMAIL
00010 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXMAIL
00011 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSXMAIL
00012 * DTSXMAIL
00013 DTSXMAIL
00014 05 MAIL-ADDR1. DTSXMAIL
00015 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL
00016 10 MAIL-ADDR-LINE1 PIC X(40). DTSXMAIL
00017 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL
00018 05 MAIL-ADDR2. DTSXMAIL
00019 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL
00020 10 MAIL-ADDR-LINE2 PIC X(40). DTSXMAIL
00021 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL
00022 05 MAIL-ADDR3. DTSXMAIL
00023 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL
00024 10 MAIL-ADDR-LINE3 PIC X(40). DTSXMAIL
00025 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL
00026 05 MAIL-ADDR4. DTSXMAIL
00027 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL
00028 10 MAIL-ADDR-LINE4 PIC X(40). DTSXMAIL
00029 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL
00030 05 MAIL-ADDR5. DTSXMAIL
00031 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL
00032 10 MAIL-ADDR-LINE5 PIC X(40). DTSXMAIL
00033 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL
00034 01 BLANK-LINE. DTSXMAIL
00035 05 BLNK-DATA PIC X(133) VALUE SPACES. DTSXMAIL
00036 DTSXMAIL