115 lines
3.6 KiB
Plaintext
115 lines
3.6 KiB
Plaintext
|
$INCLUDE UNIVERSE.INCLUDE MTF.INCL.H
|
||
|
|
$INCLUDE UNIVERSE.INCLUDE FILENAMES.H
|
||
|
|
$INCLUDE UNIVERSE.INCLUDE MACHINE.NAME
|
||
|
|
$INCLUDE UNIVERSE.INCLUDE TLOG.H
|
||
|
|
|
||
|
|
******************************************************************************
|
||
|
|
*
|
||
|
|
* System Admin Transaction Logging - Suspend Logging
|
||
|
|
*
|
||
|
|
* 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/21/94 15120 DTM Added checks for two new states
|
||
|
|
* 05/15/94 13286 DTM Initial programming
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
id = "%W%"
|
||
|
|
*******************************************************************************
|
||
|
|
|
||
|
|
*******************************************************************************
|
||
|
|
* Call initialization routines
|
||
|
|
*******************************************************************************
|
||
|
|
TPRINT @(-1)
|
||
|
|
temp = NULL
|
||
|
|
CALL *ISUSER.B(0, temp)
|
||
|
|
IF temp = 0 THEN
|
||
|
|
TPRINT UVREADMSG(071000,"")
|
||
|
|
SLEEP 3
|
||
|
|
STOP
|
||
|
|
END
|
||
|
|
*******************************************************************************
|
||
|
|
* Begin processing
|
||
|
|
*******************************************************************************
|
||
|
|
CALL *DRAW.SCRN.B( SUSP.MSG0, 1 )
|
||
|
|
GOSUB init.menu
|
||
|
|
CALL *MNU.BAR.PR.B( Menu.Bar,1 )
|
||
|
|
|
||
|
|
State = ""
|
||
|
|
RECIO( State, FINFO$AI.STATE, RECIO$FINFO )
|
||
|
|
|
||
|
|
IF State NE AI$LOGGING THEN
|
||
|
|
IF State = AI$SUSPENDED THEN
|
||
|
|
msg = "Logging is already SUSPENDED"
|
||
|
|
END
|
||
|
|
IF State = AI$SUSP.PROG THEN
|
||
|
|
msg = "Logging is currently in the process of being Suspended"
|
||
|
|
END
|
||
|
|
ELSE
|
||
|
|
msg = "Logging is not currently ENABLED"
|
||
|
|
END
|
||
|
|
CALL *HELP.BOX.B( 6, 10, 35, msg )
|
||
|
|
STOP @(-1)
|
||
|
|
END
|
||
|
|
retry = 1
|
||
|
|
CALL *HELP.PRINT.B( SUSP.MSG1, 3 )
|
||
|
|
CALL *YES.NO.BOX.B( 6, SUSP.MSG2, retry )
|
||
|
|
IF retry THEN
|
||
|
|
EXECUTE "SUSPEND.RECOVERY" CAPTURING Error.Val
|
||
|
|
Error.Val = TRIM ( Error.Val )
|
||
|
|
CALL *HELP.BOX.B( 3, 10, 60, Error.Val )
|
||
|
|
END
|
||
|
|
GOTO EXIT
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
***************************************************************************
|
||
|
|
* init.menu - initializes menu bar
|
||
|
|
***************************************************************************
|
||
|
|
init.menu:
|
||
|
|
scratch=UVREADMSG(073087,"")
|
||
|
|
Menu.Bar = NULL
|
||
|
|
Menu.Bar<1,1> = 3 ;* Number of Items in Menu.Bar
|
||
|
|
Menu.Bar<1,2> = 1 ;* Line # on which to print the Menu Bar
|
||
|
|
* First Item
|
||
|
|
Menu.Bar<2,1,1>=scratch<1> ;* SubMenu Title
|
||
|
|
Menu.Bar<2,1,2>=1 ;* # of items in SubMenu
|
||
|
|
* SubMenu #1
|
||
|
|
Menu.Bar<2,2,1>=scratch<6> ;* SubMenu Item
|
||
|
|
Menu.Bar<2,2,2>=1 ;* Action Code (Returned to calling process)
|
||
|
|
Menu.Bar<2,2,3>=scratch<7>
|
||
|
|
* Second Item
|
||
|
|
Menu.Bar<3,1,1>=scratch<8> ;* SubMenu Title
|
||
|
|
Menu.Bar<3,1,2>=1 ;* # of items in SubMenu
|
||
|
|
* SubMenu #1
|
||
|
|
Menu.Bar<3,2,1>=scratch<6> ;* SubMenu Item
|
||
|
|
Menu.Bar<3,2,2>=2 ;* Action Code
|
||
|
|
Menu.Bar<3,2,3>=scratch<7>
|
||
|
|
scratch=UVREADMSG(073089,"")
|
||
|
|
Menu.Bar<4,1,1>=scratch<1>
|
||
|
|
Menu.Bar<4,1,2>=3
|
||
|
|
Menu.Bar<4,2,1>=scratch<2>
|
||
|
|
Menu.Bar<4,2,2>=3
|
||
|
|
Menu.Bar<4,2,3>=scratch<3>
|
||
|
|
Menu.Bar<4,3,1>=scratch<4>
|
||
|
|
Menu.Bar<4,3,2>=4
|
||
|
|
Menu.Bar<4,3,3>=scratch<5>
|
||
|
|
Menu.Bar<4,4,1>=scratch<6>
|
||
|
|
Menu.Bar<4,4,2>=5
|
||
|
|
Menu.Bar<4,4,3>=scratch<7>
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
EXIT:
|
||
|
|
STOP @(-1)
|
||
|
|
END
|