*******************************************************************************
*
*	Make a new uv
*
*	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. 
*	02/22/94 12300 LA  Added call to CATLG.GCI to automatically catalog
*			   gci routines.
*	07/14/93 11822 PVW Onsite linking
*	05/10/91 8255  GMH added prompt when make is complete.
*	10/14/89 6314  DTW call to GCI.MAKEFILE
*	08/08/88 5265  JSM Added warning message and prompt to continue.
*	07/25/88   -    -  Maintenence log purged at 5.2.1, see release 5.1.10.
*
*******************************************************************************
$INCLUDE UNIVERSE.INCLUDE FILENAMES.H
$INCLUDE UNIVERSE.INCLUDE MACHINE.NAME
*
      prompt ""
      CL = @(-4)
      CL.ERR = @(0,23):CL
      EQU BELL TO CHAR(7)
      ERR = CL.ERR:BELL
      MSG10=ERR:PROD.NAMEU:' General Calling Interface is not installed.'
1:    OPEN '','DATA.TYPES' TO FVDATA.TYPES ELSE
         PRINT MSG10:
         INPUT Q: ; PRINT CL.ERR: ; GOTO HOLD.ON.EXIT:
      END
      * check if uniVerse home/obj directory has been installed
      openpath UV.ROOT:"/obj" to obj.directory then
         close obj.directory
      end else
         print CL.ERR:
         *UVPRINTMSG(79000)
         input Q:
         print CL.ERR:
         GOTO HOLD.ON.EXIT:
      end
      prompt ""
      print @( -1 )
      print @( 0, 0 ):"General Calling Interface Administration" : @( 68, 0 ) : "MAKE.NEW.UV":
      print @( 17, 1): 'Create a new "':PROD.NAMEU:'" in "':UV.ROOT:'/uvsh.new"':
      print @( 0, 2 ): str( "-", 79 ):
      print @( 0, 4 ):
      PRINT 'This procedure will generate a new "gci.c" program and make a new "':PROD.NAME:'" in the file ':UV.ROOT:'/uvsh.new.'
      PRINT 'It will also catalog any subroutines which require cataloging.'
      PRINT
      PRINT 'Are you sure you want to continue? (Y/N)':
      INPUT ANS
      ANS=UPCASE(ANS)
      IF ANS = 'Y' THEN
         PRINT
         PRINT 'Do you want to update the GCI Makefile? (Y/N)':
         INPUT ANS
         ANS=UPCASE(ANS)
         IF ANS = 'Y' THEN
            EXECUTE 'RUN APP.PROGS GCI.MAKEFILE'
            PRINT @(0,22):"OK to continue? (Y/N)":
            INPUT ANS
            ANS=UPCASE(ANS)
            IF ANS <> "Y" THEN STOP
         END
         execute 'RUN APP.PROGS CATLG.GCI'
         EXECUTE 'RUN APP.PROGS GEN.GCI'
         print @( -1 )
         print @( 0, 0 ):"General Calling Interface Administration" : @( 68, 0 ) : "MAKE.NEW.UV":
         print @( 17, 1): 'Create a new "':PROD.NAMEU:'" in "':UV.ROOT:'/uvsh.new"':
         print @( 0, 2 ): str( "-", 79 ):
         print @( 0, 4 ):
         EXECUTE "SH -c 'cd /":UV.GCI:";make'"
HOLD.ON.EXIT:
         print CL.ERR:@( 0, 22): CL:"Press any key to continue...":
         input WAIT,1:
      END

   END