60 lines
1.5 KiB
Brainfuck
Executable File
60 lines
1.5 KiB
Brainfuck
Executable File
*****************************************************************************
|
|
*
|
|
* 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
|