00001 ***** 12/14/09 00002 * DTSIFOPR 00003 * DTSIFOPR REFERENCE FILE 'OPERATOR' RECORD DEFINITION. LV007 00004 * DTSIFOPR 00005 * - IF THIS DATA DEFINITION IS ALTERED BE SURE TO DTSIFOPR 00006 * RECOMPILE MODULES THAT USE DTSIR791 (NESTED DTSIFOPR 00007 * COPY) DTSIFOPR 00008 * DTSIFOPR 00009 ***** DTSIFOPR 00010 DTSIFOPR 00011 10 FOPR-KEY-AREA. DTSIFOPR 00012 15 FOPR-REC-TYPE PIC S9(04) COMP. DTSIFOPR 00013 88 FOPR-OPR-88 VALUE +09. DTSIFOPR 00014 15 FOPR-OP-ID. DTSIFOPR 00015 20 FOPR-PREFIX PIC X(01). DTSIFOPR 00016 20 FOPR-SUFFIX PIC X(07). DTSIFOPR 00017 15 FOPR-KEY-FILLER PIC X(06). DTSIFOPR 00018 DTSIFOPR 00019 10 FOPR-DATA-AREA. DTSIFOPR 00020 15 FOPR-TYPE PIC X(01). DTSIFOPR 00021 88 FOPR-EXTERNAL-88 VALUE 'E'. DTSIFOPR 00022 88 FOPR-INTERNAL-88 VALUE 'I'. DTSIFOPR 00023 DTSIFOPR 00024 15 FOPR-NAME PIC X(32). DTSIFOPR 00025 DTSIFOPR 00026 15 FOPR-TITLE PIC X(30). DTSIFOPR 00027 DTSIFOPR 00028 15 FOPR-PHONE-NUMBERS. DTSIFOPR 00029 20 FOPR-VOICE-1. DTSIFOPR 00030 25 FOPR-VOICE-1-AREA-CD PIC X(03). DTSIFOPR 00031 25 FOPR-VOICE-1-PREFIX PIC X(03). DTSIFOPR 00032 25 FOPR-VOICE-1-SUFFIX PIC X(04). DTSIFOPR 00033 25 FOPR-VOICE-1-EXT PIC X(05). DTSIFOPR 00034 20 FOPR-VOICE-2. DTSIFOPR 00035 25 FOPR-VOICE-2-AREA-CD PIC X(03). DTSIFOPR 00036 25 FOPR-VOICE-2-PREFIX PIC X(03). DTSIFOPR 00037 25 FOPR-VOICE-2-SUFFIX PIC X(04). DTSIFOPR 00038 25 FOPR-VOICE-2-EXT PIC X(05). DTSIFOPR 00039 20 FOPR-FAX. DTSIFOPR 00040 25 FOPR-FAX-AREA-CD PIC X(03). DTSIFOPR 00041 25 FOPR-FAX-PREFIX PIC X(03). DTSIFOPR 00042 25 FOPR-FAX-SUFFIX PIC X(04). DTSIFOPR 00043 25 FOPR-FAX-EXT PIC X(05). DTSIFOPR 00044 DTSIFOPR 00045 15 FOPR-EMAIL-ADDRESS PIC X(40). DTSIFOPR 00046 DTSIFOPR 00047 15 FOPR-FLD-REP-ID PIC X(02). DTSIFOPR 00048 88 FOPR-NOT-FLD-REP-88 VALUE ' '. DTSIFOPR 00049 DTSIFOPR 00050 15 FOPR-FLD-DESK-IND PIC X(01). DTSIFOPR 00051 88 FOPR-NOT-FLD-DESK-88 VALUE 'N'. DTSIFOPR 00052 88 FOPR-IS-FLD-DESK-88 VALUE 'Y'. DTSIFOPR 00053 DTSIFOPR 00054 15 FOPR-ACCOUNTING-DESK-IND PIC X(01). DTSIFOPR 00055 88 FOPR-NOT-ACCT-DESK-88 VALUE 'N'. DTSIFOPR 00056 88 FOPR-IS-ACCT-DESK-88 VALUE 'Y'. DTSIFOPR 00057 DTSIFOPR 00058 15 FOPR-UNIT-ID PIC X(04). DTSIFOPR 00059 15 FOPR-UNIT-NAME PIC X(30). DTSIFOPR 00060 15 FOPR-BUREAU-NAME PIC X(30). DTSIFOPR 00061 DTSIFOPR 00062 15 FOPR-PRINTER-ID PIC X(04). DTSIFOPR 00063 DTSIFOPR 00064 15 FOPR-ALARM-IND PIC X(01). DTSIFOPR 00065 88 FOPR-NO-ALARM-88 VALUE 'N'. DTSIFOPR 00066 88 FOPR-ERROR-ALARM-88 VALUE 'E'. DTSIFOPR 00067 88 FOPR-PROMPT-ALARM-88 VALUE 'P'. DTSIFOPR 00068 88 FOPR-MESSAGE-ALARM-88 VALUE 'M'. DTSIFOPR 00069 88 FOPR-SCREEN-ALARM-88 VALUE 'Y'. DTSIFOPR 00070 88 FOPR-VALID-ALARM-88 VALUE 'N' 'E' 'P'DTSIFOPR 00071 'M' 'Y'. DTSIFOPR 00072 DTSIFOPR 00073 15 FOPR-BATCH-NO PIC S9(05) COMP-3. DTSIFOPR 00074 DTSIFOPR 00075 15 FOPR-ARPT-EDIT-MODE PIC X(01). DTSIFOPR 00076 88 FOPR-FULL-EDITS-88 VALUE 'F'. DTSIFOPR 00077 88 FOPR-MINIMAL-EDITS-88 VALUE 'M'. DTSIFOPR 00078 DTSIFOPR 00079 15 FILLER PIC X(56). DTSIFOPR 00080 SKIP2 DTSIFOPR 00081 15 FOPR-SCR-ACCESS-AREA. DTSIFOPR 00082 20 FOPR-SCR-NUM-GROUP OCCURS 99 TIMES DTSIFOPR 00083 INDEXED BY FOPR-NUM-IDX. DTSIFOPR 00084 25 FOPR-SCR-NUM-ACCESS-IND DTSIFOPR 00085 PIC X(01). DTSIFOPR 00086 88 FOPR-SCR-NUM-NO-ACCESS-88 VALUE '0'. DTSIFOPR 00087 88 FOPR-SCR-NUM-INQ-ACCESS-88 VALUE '1'. DTSIFOPR 00088 88 FOPR-SCR-NUM-UPD-ACCESS-88 VALUE '2'. DTSIFOPR 00089 88 FOPR-SCR-NUM-SUP-ACCESS-88 VALUE '3'. DTSIFOPR 00090 88 FOPR-SCR-NUM-I-U-ACCESS-88 DTSIFOPR 00091 VALUE '1' '2'. DTSIFOPR 00092 88 FOPR-SCR-NUM-IUS-ACCESS-88 DTSIFOPR 00093 VALUE '1' '2' '3'. DTSIFOPR 00094 DTSIFOPR 00095 20 FOPR-SCR-NONUM-CNT PIC S9(04) COMP. DTSIFOPR 00096 DTSIFOPR 00097 20 FOPR-SCR-NONUM-GROUP OCCURS 24 TIMES DTSIFOPR 00098 INDEXED BY FOPR-NONUM-IDX.DTSIFOPR 00099 25 FOPR-SCR-NONUM-ID DTSIFOPR 00100 PIC X(02). DTSIFOPR 00101 25 FOPR-SCR-NONUM-ACCESS-IND DTSIFOPR 00102 PIC X(01). DTSIFOPR 00103 88 FOPR-SCR-NONUM-NO-ACCESS-88 VALUE '0'.DTSIFOPR 00104 88 FOPR-SCR-NONUM-INQ-ACCESS-88 VALUE '1'.DTSIFOPR 00105 88 FOPR-SCR-NONUM-UPD-ACCESS-88 VALUE '2'.DTSIFOPR 00106 88 FOPR-SCR-NONUM-SUP-ACCESS-88 VALUE '3'.DTSIFOPR 00107 88 FOPR-SCR-NONUM-I-U-ACCESS-88 DTSIFOPR 00108 VALUE '1' '2'. DTSIFOPR 00109 88 FOPR-SCR-NONUM-IUS-ACCESS-88 DTSIFOPR 00110 VALUE '1' '2' '3'. DTSIFOPR 00111 SKIP2 DTSIFOPR 00112 15 FILLER PIC X(32). DTSIFOPR 00113 SKIP2 DTSIFOPR 00114 15 FOPR-ESTB-DATE PIC S9(09) COMP-3. DTSIFOPR 00115 15 FOPR-CHNG-DATE PIC S9(09) COMP-3. DTSIFOPR