64 lines
5.0 KiB
COBOL
64 lines
5.0 KiB
COBOL
00001 ***** 09/09/98
|
|
00002 * DTSIL082
|
|
00003 * DTSIL082 OPERATOR ID EDIT/LOOKUP MODULE LINKAGE. LV004
|
|
00004 * DTSIL082
|
|
00005 ***** DTSIL082
|
|
00006 CL**4
|
|
00007 10 L082-RESULT-IND PIC X(01). DTSIL082
|
|
00008 88 L082-VALID-OP VALUE '1'. DTSIL082
|
|
00009 88 L082-NOT-VALID-OP VALUE '8'. DTSIL082
|
|
00010 88 L082-FILE-CLOSED VALUE '9'. DTSIL082
|
|
00011 CL**4
|
|
00012 10 L082-OP-ID PIC X(08). DTSIL082
|
|
00013 CL**4
|
|
00014 10 L082-DATA-AREA. DTSIL082
|
|
00015 15 L082-TYPE PIC X(01). DTSIL082
|
|
00016 88 L082-EXTERNAL-88 VALUE 'E'. DTSIL082
|
|
00017 88 L082-INTERNAL-88 VALUE 'I'. DTSIL082
|
|
00018 CL**4
|
|
00019 15 L082-NAME PIC X(32). DTSIL082
|
|
00020 CL**4
|
|
00021 15 L082-TITLE PIC X(30). DTSIL082
|
|
00022 CL**4
|
|
00023 15 L082-UNIT-NAME PIC X(30). DTSIL082
|
|
00024 CL**4
|
|
00025 15 L082-BUREAU-NAME PIC X(30). DTSIL082
|
|
00026 CL**4
|
|
00027 15 L082-PHONE-NUMBERS. DTSIL082
|
|
00028 20 L082-VOICE-1. CL**4
|
|
00029 25 L082-VOICE-1-AREA-CD PIC X(03). CL**4
|
|
00030 25 L082-VOICE-1-PREFIX PIC X(03). CL**4
|
|
00031 25 L082-VOICE-1-SUFFIX PIC X(04). CL**4
|
|
00032 25 L082-VOICE-1-EXT PIC X(05). CL**4
|
|
00033 20 L082-VOICE-2. CL**4
|
|
00034 25 L082-VOICE-2-AREA-CD PIC X(03). CL**4
|
|
00035 25 L082-VOICE-2-PREFIX PIC X(03). CL**4
|
|
00036 25 L082-VOICE-2-SUFFIX PIC X(04). CL**4
|
|
00037 25 L082-VOICE-2-EXT PIC X(05). CL**4
|
|
00038 20 L082-FAX. CL**3
|
|
00039 25 L082-FAX-AREA-CD PIC X(03). CL**3
|
|
00040 25 L082-FAX-PREFIX PIC X(03). CL**3
|
|
00041 25 L082-FAX-SUFFIX PIC X(04). CL**3
|
|
00042 25 L082-FAX-EXT PIC X(05). CL**3
|
|
00043 CL**4
|
|
00044 15 L082-EMAIL-ADDRESS PIC X(40). CL**4
|
|
00045 CL**4
|
|
00046 15 L082-UNIT-ID PIC X(04). DTSIL082
|
|
00047 CL**4
|
|
00048 15 L082-FLD-REP-ID PIC X(02). DTSIL082
|
|
00049 88 L082-NOT-FLD-REP-88 VALUE ' '. DTSIL082
|
|
00050 CL**4
|
|
00051 15 L082-FLD-DESK-IND PIC X(01). DTSIL082
|
|
00052 88 L082-NOT-FLD-DESK-88 VALUE 'N'. DTSIL082
|
|
00053 88 L082-IS-FLD-DESK-88 VALUE 'Y'. DTSIL082
|
|
00054 CL**4
|
|
00055 15 L082-ACCOUNTING-DESK-IND PIC X(01). CL**4
|
|
00056 88 L082-NOT-ACCT-DESK-88 VALUE 'N'. CL**4
|
|
00057 88 L082-IS-ACCT-DESK-88 VALUE 'Y'. CL**4
|
|
00058 CL**4
|
|
00059 10 FILLER PIC X(64). CL**4
|
|
00060 CL**4
|
|
00061 10 L082-MSG-AREA. DTSIL082
|
|
00062 15 L082-MSG-ID PIC X(04). DTSIL082
|
|
00063 15 L082-MSG-TEXT PIC X(60). DTSIL082
|