DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
96
Copybook/DTSIMOPO.cpy
Normal file
96
Copybook/DTSIMOPO.cpy
Normal 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
|
||||
Reference in New Issue
Block a user