94 lines
2.5 KiB
Plaintext
94 lines
2.5 KiB
Plaintext
|
$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
|