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