******************************************************************************
*
*	Display uniVerse configuration data
*
*	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.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/14/98 23801 SAP Change copyrights. 
*	03/13/96 17797 AGM Replace 'SH -c' with OS.EXEC
*	11/21/94 15313 TMC call with -z in all cases
*	10/18/94 14073 TMC call analyze.shm with -cz
*	10/11/94 14073 TMC change uvregen -t -c to analyze.shm -t0 -c
*	03/18/93 10115 JSM Added UV.BIN to uvregen command
*	12/06/89 6579  JWT Machine independent mktape
*
*******************************************************************************
$INCLUDE UNIVERSE.INCLUDE FILENAMES.H
$INCLUDE UNIVERSE.INCLUDE MACHINE.NAME

      ID = "%W%"

      DIM COMMAND(2)
      OPEN 'VOC' ELSE STOP 'Sorry, unable to access VOC.'
      WORK = TRIM(@SENTENCE)
      MATPARSE COMMAND FROM WORK , ' '
      OPTS = ""
      IF INMAT() > 1 THEN
         READ VDESC FROM COMMAND(2) ELSE
            STOP 'Unrecognised word "':COMMAND(2):'" in command line.'
         END
         IF VDESC[1,1] = 'K'
         THEN
            IF VDESC<2> = 37 THEN OPTS = "-cz -t0" 
            ELSE IF VDESC<2> = 62 THEN OPTS = "-cz"
                 ELSE IF VDESC<2> = 63 THEN OPTS = "-t0"
         END
      END

      IF OPTS = "" THEN OPTS = "-cz"

      EXECUTE OS.EXEC : " '" : UV.BIN : "/analyze.shm " : OPTS : "'"

      END