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

96
Copybook/DTSIMOPO.cpy Normal file
View File

@ -0,0 +1,96 @@
00001 ***** 04/05/04
00002 * DTSIMOPO
00003 * DTSIMOPO MASTER FILE 'OWNER/PARTNER/OFFICER' RECORD LV008
00004 * DEFINITION. DTSIMOPO
00005 * DTSIMOPO
00006 * DTSIMOPO
00007 * 08/28/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIMOPO
00008 * DTSIMOPO
00009 ***** DTSIMOPO
00010 DTSIMOPO
00011 10 MOPO-KEY-AREA. DTSIMOPO
00012 15 MOPO-EMP-NO PIC S9(07) COMP-3. DTSIMOPO
00013 15 MOPO-REC-TYPE PIC S9(04) COMP. DTSIMOPO
00014 88 MOPO-OPO-88 VALUE +11. DTSIMOPO
00015 15 MOPO-ID-NO PIC S9(03) COMP-3. DTSIMOPO
00016 15 MOPO-KEY-FILLER PIC X(08). DTSIMOPO
00017 DTSIMOPO
00018 DTSIMOPO
00019 10 MOPO-PURGE-DATE PIC S9(09) COMP-3. DTSIMOPO
00020 DTSIMOPO
00021 DTSIMOPO
00022 10 MOPO-DATA-AREA. DTSIMOPO
00023 15 MOPO-NAME PIC X(32). DTSIMOPO
00024 DTSIMOPO
00025 15 MOPO-TITLE PIC X(20). DTSIMOPO
00026 DTSIMOPO
00027 15 MOPO-SSN PIC S9(09) COMP-3. DTSIMOPO
00028 DTSIMOPO
00029 DTSIMOPO
00030 15 MOPO-ADDRESS. DTSIMOPO
00031 20 MOPO-ATTN-LINE PIC X(40). DTSIMOPO
00032 20 MOPO-DELIV-LINE-1 PIC X(40). DTSIMOPO
00033 20 MOPO-DELIV-LINE-2 PIC X(40). DTSIMOPO
00034 20 MOPO-CITY PIC X(25). DTSIMOPO
00035 20 MOPO-ST PIC X(02). DTSIMOPO
00036 20 MOPO-ZIP PIC X(10). DTSIMOPO
00037 20 MOPO-ADVANCED-BARCODE DTSIMOPO
00038 PIC X(14). DTSIMOPO
00039 DTSIMOPO
00040 DTSIMOPO
00041 15 MOPO-PHONE-NUMBERS. DTSIMOPO
00042 20 MOPO-VOICE-1. DTSIMOPO
00043 25 MOPO-VOICE-1-AREA-CD PIC X(03). DTSIMOPO
00044 25 MOPO-VOICE-1-PREFIX PIC X(03). DTSIMOPO
00045 25 MOPO-VOICE-1-SUFFIX PIC X(04). DTSIMOPO
00046 25 MOPO-VOICE-1-EXT PIC X(05). DTSIMOPO
00047 20 MOPO-VOICE-2. DTSIMOPO
00048 25 MOPO-VOICE-2-AREA-CD PIC X(03). DTSIMOPO
00049 25 MOPO-VOICE-2-PREFIX PIC X(03). DTSIMOPO
00050 25 MOPO-VOICE-2-SUFFIX PIC X(04). DTSIMOPO
00051 25 MOPO-VOICE-2-EXT PIC X(05). DTSIMOPO
00052 20 MOPO-FAX. DTSIMOPO
00053 25 MOPO-FAX-AREA-CD PIC X(03). DTSIMOPO
00054 25 MOPO-FAX-PREFIX PIC X(03). DTSIMOPO
00055 25 MOPO-FAX-SUFFIX PIC X(04). DTSIMOPO
00056 25 MOPO-FAX-EXT PIC X(05). DTSIMOPO
00057 DTSIMOPO
00058 DTSIMOPO
00059 15 MOPO-EMAIL-ADDRESS PIC X(40). DTSIMOPO
00060 DTSIMOPO
00061 DTSIMOPO
00062 15 MOPO-UC223-IND PIC X(01). DTSIMOPO
00063 88 MOPO-UC223-YES-88 VALUE 'Y'. DTSIMOPO
00064 88 MOPO-UC223-NO-88 VALUE 'N'. DTSIMOPO
00065 DTSIMOPO
00066 15 MOPO-MISSING-RPT-LETTERS-IND DTSIMOPO
00067 PIC X(01). DTSIMOPO
00068 88 MOPO-MISSING-RPT-LTRS-YES-88 VALUE 'Y'. DTSIMOPO
00069 88 MOPO-MISSING-RPT-LTRS-NO-88 VALUE 'N'. DTSIMOPO
00070 DTSIMOPO
00071 DTSIMOPO
00072 15 MOPO-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMOPO
00073 DTSIMOPO
00074 15 MOPO-TYPE-IND PIC X(02). DTSIMOPO
00075 88 MOPO-TYPE-OPO-88 VALUE '00'. DTSIMOPO
00076 88 MOPO-TYPE-EFT-VENDOR-88 VALUE '01'. DTSIMOPO
00077 88 MOPO-TYPE-EFT-DOES-88 VALUE '02'. DTSIMOPO
00078 88 MOPO-TYPE-RPT-BSNS-88 VALUE '03'. DTSIMOPO
00079 88 MOPO-TYPE-RPT-TECH-88 VALUE '04'. DTSIMOPO
00080 88 MOPO-TYPE-FR500-88 VALUE '05'. DTSIMOPO
00081 88 MOPO-TYPE-CHARGE-88 VALUE '06'. DTSIMOPO
00082 88 MOPO-TYPE-BENEFITS-88 VALUE '07'. DTSIMOPO
00083 88 MOPO-TYPE-STATUS-88 VALUE '08'. DTSIMOPO
00084 DTSIMOPO
00085 DTSIMOPO
00086 15 FILLER PIC X(30). DTSIMOPO
00087 DTSIMOPO
00088 DTSIMOPO
00089 15 MOPO-CONVERTED-IND PIC X(01). DTSIMOPO
00090 88 MOPO-CONVERTED-88 VALUE 'Y'. DTSIMOPO
00091 88 MOPO-NOT-CONVERTED-88 VALUE 'N'. DTSIMOPO
00092 DTSIMOPO
00093 DTSIMOPO
00094 15 MOPO-ESTB-DATE PIC S9(09) COMP-3. DTSIMOPO
00095 DTSIMOPO
00096 15 MOPO-CHNG-DATE PIC S9(09) COMP-3. DTSIMOPO