49 lines
1.7 KiB
Plaintext
Executable File
49 lines
1.7 KiB
Plaintext
Executable File
*******************************************************************************
|
|
*
|
|
* uniVerse common block UV.INTERNAL definition
|
|
*
|
|
* Module %M% Version %I% Date %H%
|
|
*
|
|
* (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
|
|
* This is unpublished proprietary source code of Ardent Software Inc.
|
|
* The copyright notice above does not evidence any actual or intended
|
|
* publication of such source code.
|
|
*
|
|
*******************************************************************************
|
|
*
|
|
* Maintenance log - insert most recent change descriptions at top
|
|
*
|
|
* Date.... GTAR# WHO Description.........................................
|
|
* 10/14/98 23801 SAP Change copyrights.
|
|
* 06/01/93 11645 PVW Remove DEVSYS.STRIPSTRS.MODE
|
|
* 12/31/92 10793 PVW Add DEVSYS.STRIPSTRS.MODE
|
|
* 12/11/92 10708 PVW Removed open of VOC file from include.
|
|
* 12/04/92 10213 DPB Fixed problem of revise having old VOC after LOGTO
|
|
* 11/30/92 10213 PVW Add DEVSYS.R.FILE and DEVSYS.R.FILE.NAME.
|
|
* 11/12/92 10214 PVW Make UV.INTERAL common block a separate entity
|
|
* and include PI/open DEVSYS common block.
|
|
*
|
|
*******************************************************************************
|
|
|
|
COMMON /UV.INTERNAL/ MESSAGE.OPENED,
|
|
|
|
SYS.MESSAGE,
|
|
DEVSYS.VOC.FILE,
|
|
DEVSYS.FILE.FOUND,
|
|
DEVSYS.DICT.SWITCH,
|
|
DEVSYS.DICT.FILE,
|
|
DEVSYS.DICT.FILE.NAME,
|
|
DEVSYS.DATA.FILE,
|
|
DEVSYS.DATA.FILE.NAME,
|
|
DEVSYS.R.FILE,
|
|
DEVSYS.R.FILE.NAME
|
|
|
|
IF MESSAGE.OPENED = 0
|
|
THEN
|
|
OPEN "SYS.MESSAGE" TO SYS.MESSAGE
|
|
ELSE
|
|
STOP "UNABLE TO OPEN SYS.MESSAGE FILE."
|
|
END
|
|
MESSAGE.OPENED = 1
|
|
END
|