116 lines
9.1 KiB
COBOL
116 lines
9.1 KiB
COBOL
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
|