*******************************************************************************
*
*	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