$INCLUDE UNIVERSE.INCLUDE MTF.INCL.H
$INCLUDE UNIVERSE.INCLUDE FILENAMES.H
$INCLUDE UNIVERSE.INCLUDE MACHINE.NAME
******************************************************************************
*
*   System Admin Transaction Logging - Get Status of UV_LOGS files
*
*	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. 
*	07/18/94 13286 DTM Fixed paging problem
*	05/15/94 13286 DTM Initial programming
*
*******************************************************************************
id = "%W%"
*******************************************************************************
TPRINT @(-1)
*******************************************************************************
input.loop:
Wid = SYSTEM( 2 )
Len = SYSTEM( 3 )

OldWid = Wid
OldLen = Len
Stmt = "TERM ":Wid:",9999,0,0"
PERFORM Stmt
List.Command = "LIST UV.TRANS"
EXECUTE List.Command CAPTURING List.Output
GOSUB printit
sel.value=1
CALL *HELP.BOX.B(17,5,50,UVREADMSG(001403,""))
GOTO Ending
STOP @(-1)

**********************************************************************
* printit:
*   routine TO output data to screen
**********************************************************************
printit:

output=List.Output
output.test=output
output.test=CONVERT(@FM," ",output.test)
output.test=TRIM(output.test)
IF output.test=NULL OR output.test=" " THEN 
	output<1>=STR(" ",30):"No files to list"
END
output.count = COUNT(output,@FM)+1
line.count=0
FOR i=3 TO 15
	TPRINT @(0,i):@(-4):
NEXT i
Start:
sel.value=1
FOR i=2 TO 14
    IF i > output.count THEN
        GOTO Ending
    END
    TPRINT @(0,i+1):output<line.count+i-1>:
NEXT i
line.count+=13
IF line.count < output.count THEN
	scratch=UVREADMSG(073052,"")
	B.array=NULL
	B.array<1>=2
	B.array<2>="Ok"
	B.array<3>="Cancel"
    CALL *CHOICE.BOX.B(17,3,35,scratch<1>,B.array,sel.value,"")
    IF sel.value = 1 OR sel.value = -1 THEN
       RETURN
    END
    FOR i=3 TO 15
	 	TPRINT @(0,i):@(-4):
    NEXT i
    GOTO Start
END

Ending:
Stmt = "TERM ":Wid:",":Len:",0,0"
PERFORM Stmt
RETURN

END