*****************************************************************************
*
*	Transaction Logger Acitvated File Status
*
*	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. 
*	05/14/91 8345  KIS Changed PRINTs to TPRINTs
*	03/25/91 8169  KIS Added extra arg to CHOICE.box.B
*	02/15/91 7910  KIS Initial
*
*******************************************************************************
*
$INCLUDE UNIVERSE.INCLUDE MTF.INCL.H
*
CLSCR = @(-1)
PROMPT ""

title = 'Transaction Logging Activated File Status'

temp = ""
b.array = ""
b.array<1> = 1
b.array<2> = UVREADMSG(073029,"")
sel = 1

hit.return = ""
hit.return = UVREADMSG(001403,"")

args = ""
CALL *ISUSER.B(0,id2)

IF id2 = 1 THEN

	*******************************************
	**** Display File Activation Status
	*******************************************
	
	EXECUTE "LIST UV.TRANS"
	TPRINT
	CALL *UVPRINTMSG(1142,"")

	INPUT inp,1
	STOP
	
END ELSE
	temp = UVREADMSG(71000,"")
	CALL *CHOICE.BOX.B(17,7,40,temp<1>:"  ":hit.return<1>,b.array,sel,"")
END