00001 ***** 04/05/04 00002 * DTSIC035 00003 * DTSIC035 OPO TYPE CODES VALUES AND DESCRIPTIONS. LV003 00004 * DTSIC035 00005 * DTSIC035 00006 * 04/23/2003 INITIAL DEVELOPMENT. GD DTSIC035 00007 * DTSIC035 00008 * DTSIC035 00009 ***** DTSIC035 00010 DTSIC035 00011 ***** DTSIC035 00012 * OPTION 01 = MOPO-TYPE DTSIC035 00013 ***** DTSIC035 00014 10 C035-01-AREA. DTSIC035 00015 15 FILLER PIC X(02) VALUE '00'. DTSIC035 00016 15 FILLER PIC X(10) VALUE 'OPO '. DTSIC035 00017 15 FILLER PIC X(10) VALUE ' OPO'. DTSIC035 00018 15 FILLER PIC X(40) DTSIC035 00019 VALUE 'OWNER/PARTNER/OFFICER'. DTSIC035 00020 15 FILLER PIC X(02) VALUE '01'. DTSIC035 00021 15 FILLER PIC X(10) VALUE 'EFT '. DTSIC035 00022 15 FILLER PIC X(10) VALUE ' EFT'. DTSIC035 00023 15 FILLER PIC X(40) DTSIC035 00024 VALUE 'EFT (VENDOR) '. DTSIC035 00025 15 FILLER PIC X(02) VALUE '02'. DTSIC035 00026 15 FILLER PIC X(10) VALUE 'EFT '. DTSIC035 00027 15 FILLER PIC X(10) VALUE ' EFT'. DTSIC035 00028 15 FILLER PIC X(40) DTSIC035 00029 VALUE 'EFT (DOES) '. DTSIC035 00030 15 FILLER PIC X(02) VALUE '03'. DTSIC035 00031 15 FILLER PIC X(10) VALUE 'RPT-BSNS '. DTSIC035 00032 15 FILLER PIC X(10) VALUE ' RPT-BSNS'. DTSIC035 00033 15 FILLER PIC X(40) DTSIC035 00034 VALUE 'REPORTING - BUSINESS'. DTSIC035 00035 15 FILLER PIC X(02) VALUE '04'. DTSIC035 00036 15 FILLER PIC X(10) VALUE 'RPT-TECH '. DTSIC035 00037 15 FILLER PIC X(10) VALUE ' RPT-TECH'. DTSIC035 00038 15 FILLER PIC X(40) DTSIC035 00039 VALUE 'REPORTING - TECHNICAL '. DTSIC035 00040 15 FILLER PIC X(02) VALUE '05'. DTSIC035 00041 15 FILLER PIC X(10) VALUE 'FR500 '. DTSIC035 00042 15 FILLER PIC X(10) VALUE ' FR500'. DTSIC035 00043 15 FILLER PIC X(40) DTSIC035 00044 VALUE 'FR500 '. DTSIC035 00045 15 FILLER PIC X(02) VALUE '06'. DTSIC035 00046 15 FILLER PIC X(10) VALUE 'CHARGING '. DTSIC035 00047 15 FILLER PIC X(10) VALUE ' CHARGING'. DTSIC035 00048 15 FILLER PIC X(40) DTSIC035 00049 VALUE 'CHARGING '. DTSIC035 00050 15 FILLER PIC X(02) VALUE '07'. DTSIC035 00051 15 FILLER PIC X(10) VALUE 'BENEFITS '. DTSIC035 00052 15 FILLER PIC X(10) VALUE ' BENEFITS'. DTSIC035 00053 15 FILLER PIC X(40) DTSIC035 00054 VALUE 'BENEFITS '. DTSIC035 00055 15 FILLER PIC X(02) VALUE '08'. DTSIC035 00056 15 FILLER PIC X(10) VALUE 'STATUS '. DTSIC035 00057 15 FILLER PIC X(10) VALUE ' STATUS'. DTSIC035 00058 15 FILLER PIC X(40) DTSIC035 00059 VALUE 'STATUS '. DTSIC035 00060 DTSIC035 00061 10 FILLER REDEFINES C035-01-AREA. DTSIC035 00062 15 C035-01-ENTRY OCCURS 9 TIMES DTSIC035 00063 INDEXED BY C035-01-IDX. DTSIC035 00064 20 C035-01-CD PIC X(02). DTSIC035 00065 20 C035-01-SHORT-DSCR PIC X(10). DTSIC035 00066 20 C035-01-SHORT-DSCR-RIGHT DTSIC035 00067 PIC X(10). DTSIC035 00068 20 C035-01-LONG-DSCR PIC X(40). DTSIC035