******************************************************************************
*
*   System Admin Transaction Logging - Shutdown Logging
*
*	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/25/96 18212 LAG Windows NT port
*	10/21/94 15120 DTM Added code to support new states (SUSP/SHUT in progress)
*	10/14/94 15101 DTM Corrected message displayed
*	05/15/94 13286 DTM Initial programming
*
*******************************************************************************
id = "%W%"
*******************************************************************************

$INCLUDE UNIVERSE.INCLUDE TLOG.H
$INCLUDE UNIVERSE.INCLUDE FILENAMES.H
$INCLUDE UNIVERSE.INCLUDE MACHINE.NAME

ALLOWED = 0
CALL *ISUSER.B( 0, ALLOWED )

;* Do superuser verification
IF NOT(ALLOWED) THEN
	PRINT SHUT.MSG3
	STOP 
END

State = ""
RECIO( State, FINFO$AI.STATE, RECIO$FINFO )
IF State NE AI$LOGGING AND State NE AI$FULL AND State NE AI$SUSPENDED THEN
	IF State = AI$WARM.START OR State = AI$INITIAL THEN
		msg = "System is just now coming up, please be patient as the "
        msg := "SHUTDOWN procedure may take some time to complete."
    END
    ELSE IF State = AI$SHUT.PROG THEN
        msg = "System is currently in the process of being SHUTDOWN."
        stop = 1
    END
    ELSE
        msg = "System is not in a state that can be SHUTDOWN at this moment."
        stop = 1
    END
	PRINT msg
    IF stop  THEN
        STOP 
    END
END


;* Enable Logging
@SYSTEM.RETURN.CODE = 0
RECIO( AI$DISABLED, RECIO$STATE )

IF @SYSTEM.RETURN.CODE THEN
	PRINT SHUT.MSG4
	STOP 
END
ELSE

	State = ""
	RECIO( State, FINFO$AI.STATE, RECIO$FINFO)
	IF State = AI$FULL OR State = AI$SUSPENDED THEN
		******************
		** Windows NT port
		**
		IF OS.TYPE = "UNIX" THEN
			Exec.Sentence = OS.EXEC:" '":UV.BIN:"/uvlogd":"'"
		END ELSE
			Exec.Sentence = OS.EXEC:" '":UV.BIN:"/uvbootd ":UV.BIN:"/uvlogd.exe":"'"
		END
		**
		******************
		EXECUTE Exec.Sentence CAPTURING junk
	END
	LOOP 
		CURR.DATE	= DATE()
		CURR.TIME	= TIME()
	UNTIL CURR.DATE	= DATE() DO REPEAT

	CURR.TIME = OCONV( CURR.TIME, 'MTS' )
	CURR.DATE = OCONV( CURR.DATE, 'D' )

	PRINT SHUT.MSG5: CURR.TIME : SUSP.MSG7 :CURR.DATE: STATE.MSG
END
END