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

53
Copybook/DTSIY120.cpy Normal file
View File

@ -0,0 +1,53 @@
00001 ***** 02/26/08
00002 * DTSIY120
00003 * DTSIY120 OWNER/OFFICE/PARTNER AND OTHER CONTACT LV001
00004 * DATA PASSED FROM EXTERNAL SOURCES SUCH AS DTSIY120
00005 * THE WEB. DTSIY120
00006 * DTSIY120
00007 * 07/25/2007 INITIAL DEVELOPMENT. GD DTSIY120
00008 * DTSIY120
00009 * THIS RECORD IS PASSED WITHIN THE DTSIT002 DTSIY120
00010 * TRANSACTION RECORD, AND PROCESSED THROUGH DTSIY120
00011 * DTSBD380. DTSIY120
00012 * DTSIY120
00013 ***** DTSIY120
00014 DTSIY120
00015 10 Y120-DATA-AREA. DTSIY120
00016 15 FILLER PIC X(02). DTSIY120
00017 15 Y120-CONTACT-TYPE PIC X(02). DTSIY120
00018 88 Y120-CONTACT-OPO-88 VALUE '00'. DTSIY120
00019 88 Y120-CONTACT-EFT-VENDOR-88 VALUE '01'. DTSIY120
00020 88 Y120-CONTACT-EFT-DOES-88 VALUE '02'. DTSIY120
00021 88 Y120-CONTACT-RPT-BSNS-88 VALUE '03'. DTSIY120
00022 88 Y120-CONTACT-RPT-TECH-88 VALUE '04'. DTSIY120
00023 88 Y120-CONTACT-FR500-88 VALUE '05'. DTSIY120
00024 88 Y120-CONTACT-CHARGE-88 VALUE '06'. DTSIY120
00025 88 Y120-CONTACT-BENEFITS-88 VALUE '07'. DTSIY120
00026 88 Y120-CONTACT-STATUS-88 VALUE '08'. DTSIY120
00027 DTSIY120
00028 15 Y120-CONTACT-SSN PIC X(09). DTSIY120
00029 DTSIY120
00030 15 Y120-CONTACT-NAME PIC X(32). DTSIY120
00031 DTSIY120
00032 15 Y120-CONTACT-TITLE PIC X(40). DTSIY120
00033 DTSIY120
00034 15 Y120-CONTACT-ADDR. DTSIY120
00035 20 Y120-CONTACT-ATTN PIC X(40). DTSIY120
00036 20 Y120-CONTACT-DELV1 PIC X(40). DTSIY120
00037 20 Y120-CONTACT-DELV2 PIC X(40). DTSIY120
00038 20 Y120-CONTACT-CITY PIC X(25). DTSIY120
00039 20 Y120-CONTACT-STATE PIC X(02). DTSIY120
00040 20 Y120-CONTACT-ZIP PIC X(10). DTSIY120
00041 DTSIY120
00042 15 Y120-CONTACT-VOICE. DTSIY120
00043 20 Y120-C-VOICE-AREA-CD PIC X(03). DTSIY120
00044 20 Y120-C-VOICE-PREFIX PIC X(03). DTSIY120
00045 20 Y120-C-VOICE-SUFFIX PIC X(04). DTSIY120
00046 20 Y120-C-VOICE-EXT PIC X(05). DTSIY120
00047 DTSIY120
00048 15 Y120-CONTACT-FAX. DTSIY120
00049 20 Y120-C-FAX-AREA-CD PIC X(03). DTSIY120
00050 20 Y120-C-FAX-PREFIX PIC X(03). DTSIY120
00051 20 Y120-C-FAX-SUFFIX PIC X(04). DTSIY120
00052 DTSIY120
00053 15 Y120-CONTACT-EMAIL PIC X(40). DTSIY120