69 lines
5.4 KiB
COBOL
69 lines
5.4 KiB
COBOL
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
|