******************************************************************************
*
*   System Admin Transaction Logging - Routine to set the Consistency flag
*
*	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. 
*	10/14/94 15104 DTM Fixed to verify number of prompts
*	05/15/94 13286 DTM Initial programming
*
*******************************************************************************
id = "%W%"
*******************************************************************************
$INCLUDE	UNIVERSE.INCLUDE TLOG.H

TMP = TRIM( @SENTENCE )
CNT = COUNT( TMP, " " )
IF ( CNT NE 1 ) THEN
	PRINT "Error: Incorrect number of arguments"
	STOP
END
File = FIELD( TMP, " ", 2 )
RECIO( File, RECIO$CONSISTENT )

IF @SYSTEM.RETURN.CODE THEN
	PRINT "Unable to set consistent flag on file ":File
END