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

40
Copybook/DTSIY110.cpy Normal file
View File

@ -0,0 +1,40 @@
00001 ***** 02/26/08
00002 * DTSIY110
00003 * DTSIY110 ADDRESS DATA FROM EXTERNAL SOURCES SUCH AS LV001
00004 * THE WEB. DTSIY110
00005 * DTSIY110
00006 * 07/25/2007 INITIAL DEVELOPMENT. GD DTSIY110
00007 * DTSIY110
00008 * THIS RECORD IS PASSED WITHIN THE DTSIT002 DTSIY110
00009 * TRANSACTION RECORD, AND PROCESSED THROUGH DTSIY110
00010 * DTSBD380. DTSIY110
00011 * DTSIY110
00012 ***** DTSIY110
00013 DTSIY110
00014 10 Y110-DATA-AREA. DTSIY110
00015 15 FILLER PIC X(02). DTSIY110
00016 15 Y110-EMP-ADDR-TYPE PIC X(02). DTSIY110
00017 88 Y110-EMP-ADDR-TYPE-MAIL-88 VALUE '01'. DTSIY110
00018 88 Y110-EMP-ADDR-TYPE-RECS-88 VALUE '02'. DTSIY110
00019 88 Y110-EMP-ADDR-TYPE-WRK-88 VALUE '03'. DTSIY110
00020 88 Y110-EMP-ADDR-TYPE-ALT-88 VALUE '04'. DTSIY110
00021 15 Y110-EMP-ADDR. DTSIY110
00022 20 Y110-EMP-ATTN PIC X(40). DTSIY110
00023 20 Y110-EMP-DELV1 PIC X(40). DTSIY110
00024 20 Y110-EMP-DELV2 PIC X(40). DTSIY110
00025 20 Y110-EMP-CITY PIC X(25). DTSIY110
00026 20 Y110-EMP-STATE PIC X(02). DTSIY110
00027 20 Y110-EMP-ZIP PIC X(10). DTSIY110
00028 DTSIY110
00029 15 Y110-EMP-VOICE. DTSIY110
00030 20 Y110-EMP-VOICE-AREA-CD PIC X(03). DTSIY110
00031 20 Y110-EMP-VOICE-PREFIX PIC X(03). DTSIY110
00032 20 Y110-EMP-VOICE-SUFFIX PIC X(04). DTSIY110
00033 20 Y110-EMP-VOICE-EXT PIC X(05). DTSIY110
00034 DTSIY110
00035 15 Y110-EMP-FAX. DTSIY110
00036 20 Y110-EMP-FAX-AREA-CD PIC X(03). DTSIY110
00037 20 Y110-EMP-FAX-PREFIX PIC X(03). DTSIY110
00038 20 Y110-EMP-FAX-SUFFIX PIC X(04). DTSIY110
00039 DTSIY110
00040 15 Y110-EMP-EMAIL PIC X(40). DTSIY110