******************************************************************************
*
*   System Admin Transaction Logging - TLoggin header file
*
*	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. 
*	06/26/98 23161 RGA Added 'raw' disk support.
*       10/01/96 19347 LA  Added ENBL.MSG11 & ENBL.MSG12
*	04/26/95 16198 GMH Add archive tape support
*	03/06/95 15836 CSM Add messages for enabling log sys with staletx option
*	01/23/95 15836 CSM Add messages for enabling log sys with staletx option
*	10/21/94 15162 DTM Changed messages
*	10/14/94 15104 DTM Added value for incorrect number of arguments
*	10/14/95 15101 DTM Modified messages
*	05/15/94 13286 DTM Initial programming
*
*******************************************************************************
id = "%W%"
*******************************************************************************
$INCLUDE UNIVERSE.INCLUDE	LOG.H

EQU	LOGS.DIR			TO	"LOGS.DIR"
EQU	LOGS.FILE			TO	"UV_LOGS"
EQU	BKSIZE				TO	512
EQU	AL.PREFIX			TO	"lg"
EQU	AIF.CURR.DATE		TO	1
EQU	AIF.CURR.TIME		TO	2
EQU	AIF.FULL.DATE		TO	3
EQU	AIF.FULL.TIME		TO  4
EQU	AIF.SIZE			TO	5
EQU	AIF.STATUS			TO	6
EQU	AIF.OFFSET			TO	7
EQU	ALF$EMPTY			TO	'A'

EQU	RECIO$CPVAL			TO 0
EQU	RECIO$ARVAL			TO	1

EQU NOT.ADMINISTRATOR.ERROR TO				1
EQU CANNOT.WRITE.UV.LOGS.ERROR TO			2
EQU FAILED.CREATE.ERROR TO					3
EQU UNKNOWN.LOG.STATUS.ERROR TO				4
EQU BLOCK.SIZE.TOO.SMALL.ERROR TO			5
EQU UV.LOGS.FILE.NAME TO					"UV_LOGS"
EQU CANNOT.OPEN.UV.LOGS.ERROR TO 			7
EQU UV.LOGS.IS.LOCKED.ERROR TO				8
EQU DIRECTORY.FLAG TO						9
EQU PATHNAME.DELIMITER TO					10
EQU INVALID.UV.LOGS.DIR.ERROR TO			11
EQU CANNOT.OPEN.UV.LOGS.DICT.ERROR TO		12
EQU	LOGGING.MUST.BE.DISABLED.ERROR TO		13
EQU	UNABLE.SET.SUSPENDED.STATE.ERROR TO		14
EQU	INVALID.PARSE.ERROR TO					15
EQU RECOVERY.NOT.INSTALLED.ERROR TO			16
EQU OPERATION.ABORTED.ERROR TO				17
EQU	APPLY.AI.IS.RUNNING.ERROR TO			18
EQU SELECT.LIST.NOT.ORDERED.ERROR TO		19
EQU NO.LOG.FILES.FOUND.ERROR TO				20
EQU NOT.LOWEST.SEQ.NUM.ERROR TO				21
EQU CANNOT.OPEN.LOGFILE.ERROR TO			22
EQU	UNKNOWN.FILE.STATUS.ERROR TO			23
EQU ALF$FULL TO								24
EQU INT.DATE TO								25
EQU INT.TIME TO								26
EQU ALF$CURRENT TO							27
EQU CANNOT.DELETE.CURR.LOGFILE.ERROR TO		28
EQU LOGFILE.NOT.FULL.ERROR TO				29
EQU CANNOT.CLEAR.FILE.ERROR TO				30
EQU	FILE.STATE.NOT.EMPTY.ERROR	TO			31
EQU UV.LOGS.DICT.IS.LOCKED.ERROR TO			32
EQU INCORRECT.NUM.ARGS	TO					36
EQU CANNOT.WRITE.UV.LOGS.DICT.ERROR TO		33
EQU	CANNOT.READ.UV.LOGS.ERROR		TO		34
EQU	CANNOT.READ.UV.LOGS.DICT.ERROR	TO		35
EQU FAILED.BADOFFSET.ERROR TO					36	
EQU FAILED.CHANGEOVER.ERROR TO					37
EQU FAILED.CHANGEFLOVER.ERROR TO				38
EQU FAILED.WRONGSTATE	TO					39
EQU FAILED.DROPRAWLOG	TO					40
EQU FAILED.DROPRAWLOG2	TO					41

EQU	NO.HELP		TO		"No help available"
EQU	ERR.DIR		TO		"Error: Cannot create directory ("
EQU	ERR.OPEN.D	TO		"Error: Cannot Open D_UV_LOGS file!"
EQU	ERR.WRITE.D	TO		"Error: Cannot Write to D_UV_LOGS file!"

EQU	CDIR.MSG1	TO		"Create Log Directory"
EQU CDIR.MSG2	TO		"Enter the Log Directory Pathname"
EQU CDIR.MSG3	TO		"Enter the full Unix pathname for the Log Directory"
EQU CDIR.MSG4	TO		"Created Log Directory -> "
EQU	CDIR.MSG5	TO		"This routine is used to create the directory that the log files are to be stored into.  It will first verify that the requested directory does not already exist, and then it will create the physical directory and update the UV_LOGS dictionary LOG.DIR field with the new location"
EQU	CDIR.EXEC	TO		"CREATE.LDIR "

EQU AFILE.MSG1	TO		"Add Log Files"
EQU AFILE.MSG2	TO		"Enter the Log File Size"
EQU	AFILE.MSG3	TO		"Enter the size of the log file in bytes.  The file will be created at this size and zero'ed out"
EQU	AFILE.MSG4	TO		"Enter the Number of Files"
EQU AFILE.MSG5	TO		"Enter the number of log files to be created."
EQU	AFILE.MSG6	TO		"This application will create the physical log files.  It will prompt for the size in bytes the log file should be and the number of log files to create at this size.  It will then create that number of files (space permitting) and update the UV_LOGS file to reflect the newly created files."

EQU SFILE.MSG1	TO		"Set Logging Attributes"
EQU SFILE.MSG2	TO		"Logging Subsystem must not be active!!! "
EQU SFILE.MSG3	TO		"Do you wish to Disable Logging?"
EQU SFILE.MSG4	TO		"Archive Mode "
EQU	SFILE.MSG5	TO		"Enter ON or OFF for whether Archive mode should be set."
EQU SFILE.MSG6	TO		"Checkpoint Mode"
EQU	SFILE.MSG7	TO		"Enter ON or OFF for whether Checkpoint mode should be set."
EQU	SFILE.MSG8	TO		"This application is used to set the state of the Logging Subsystem.  You can set the mode for both Archive and Checkpoint modes." 
EQU SFILE.MSG9 TO    "Archive Type "
EQU SFILE.MSG10 TO   "Enter DISK to archive to disk files, or TAPE to archive to tape."
EQU SFILE.MSG11 TO   "Devices List "
EQU SFILE.MSG12 TO   "Enter a space separated list of &DEVICE& file entries."

EQU	DFILE.MSG1	TO		"Delete Log File"
EQU	DFILE.MSG2	TO		"Enter the Number of Log Files to Delete"
EQU	DFILE.MSG3	TO		"Select List Active - Do you wish to use it?" 
EQU	DFILE.MSG4	TO		"Select Yes if you want to delete the files in the Active Select List.  Enter No otherwise"
EQU	DFILE.MSG5	TO		"This routine is used to delete unnecessary log files.  It requests the number of log files to be deleted and deletes that many log files starting with the last one created.  It removes the physical file and the entry in UV_LOGS.  It also reduces the LOG.NEXT value in UV_LOGS."


EQU	SUSP.MSG0	TO		"Suspend Logging"
EQU	SUSP.MSG1	TO		"Select Yes if you would like to Suspend Logging"
EQU	SUSP.MSG2	TO		"Do you wish to Suspend the Logging Subsystem?"
EQU	SUSP.MSG3	TO		"Logging Subsystem Suspended"
EQU SUSP.MSG4	TO		"Error: Only the Administrator can Suspend Logging!"
EQU	SUSP.MSG5	TO		"Error: Unable to Suspend Logging!"
EQU	SUSP.MSG6	TO		"Request to Suspended Logging Subsystem made at "
EQU	SUSP.MSG7	TO		" on "

EQU	ENBL.MSG0	TO		"Enable Logging"
EQU	ENBL.MSG1	TO		"Select Yes if you would like to Enable Logging"
EQU	ENBL.MSG2	TO		"Do you wish to Enable the Logging Subsystem?"
EQU	ENBL.MSG3	TO		"Error: Only the Administrator can Enable Logging!"
EQU	ENBL.MSG4	TO		"Error: Unable to Enable Logging!"
EQU	ENBL.MSG5	TO		"Request to Enable Logging Subsystem made at "
EQU	ENBL.MSG6	TO		"The current logfile sequence number is "
EQU	ENBL.MSG7	TO		"Log system is FULL in Checkpointing mode.  There may be (prepared) stale transactions blocking log file reuse.  You may either provide additional log space for those transactions to complete or request their termination.  If you request their termination and a system crash occurs before those transactions are uncommitted you may have partially applied transactions."
EQU	ENBL.MSG8	TO		"Terminate pending (prepared) stale transactions ?"
EQU	ENBL.MSG9	TO		"You must configure additional log space if you don't wish to terminate pending (prepared) stale transactions."
EQU	ENBL.MSG10	TO		"Quit ?"
EQU	ENBL.MSG11	TO		"Logging state is already enabled or in the process of coming up."
EQU	ENBL.MSG12	TO		"Shutdown or Suspend in progress. Cannot enable logging at this point."

EQU	SHUT.MSG0	TO		"Shutdown Logging Subsystem"
EQU	SHUT.MSG1	TO		"Select Yes if you would like to Shutdown Logging"
EQU	SHUT.MSG2	TO		"Do you wish to Shutdown the Logging Subsystem?"
EQU	SHUT.MSG3	TO		"Error: Only the Administrator can Shutdown Logging!"
EQU	SHUT.MSG4	TO		"Error: Unable to Shutdown Logging!"
EQU	SHUT.MSG5	TO		"Request to Shutdown Logging Subsystem made at "

EQU	PURG.MSG0	TO		"Purge Old Log Files"
EQU	PURG.MSG1	TO		"Select Yes if you would like to Purge Old Log Files"
EQU	PURG.MSG2	TO		"Do you wish to Purge Old Log Files"
EQU	PURG.MSG3	TO		" records deleted."

EQU	RFF.MSG0	TO		"Rollforward a File"
EQU	RFF.MSG1	TO		"File to Rollforward"
EQU RFF.MSG2	TO		"Enter the name of the UniVerse File to Rollforward"
EQU	RFF.MSG3	TO		"First Log Number To Use"
EQU	RFF.MSG4	TO		"Enter the LogFile Sequence number for the first log to use, or '0' if you wish the server to figure it out"
EQU RFF.MSG5	TO		"Last Log Number To Use"
EQU	RFF.MSG6	TO		"Enter the LogFile Sequence number for the last log to use, or '0' if you wish the server to figure it out"
EQU	RFF.MSG7	TO		"Verify Log Numbers"
EQU	RFF.MSG8	TO		"Should the rollforward process verify the log numbers?"
EQU	RFF.MSG9	TO		"Must Enter File Name"
EQU	RFF.MSG10	TO		"Must enter a LogFile number other than 0"
EQU	RFF.MSG11	TO		"Please enter either YES or NO"
EQU	RFF.MSG12	TO		"Please enter a number between 0 and 3"
EQU RFF.MSG13	TO		"Verbosity Level (0, 1 2 3)"
EQU	RFF.MSG14	TO		"Verbosity level refers to the amount of data to be display/output to the log files/screen"
EQU	RFF.MSG15	TO		"Verbosity level refers to the amount of data to be displayed/output to the log files/screen. 0 = No Output, 1 = Warning Output, 2 = General Output, 3 = All output"

EQU	RFM.MSG0	TO		"Media Recovery Rollforward"
EQU RFM.MSG1	TO		"Name of Select List"
EQU	RFM.MSG2	TO		"Enter name of select list or ALL for all files in UV.TRANS file"

EQU TLC.MSG0	TO		"Enter the Filename"
EQU	TLC.MSG1	TO		"Enter the pathname of the file to clear"

EQU	DEL.MSG0	TO		"Delete Restored Logs"

EQU	PRG.MSG0	TO		"Purge Old Log Files"
EQU	PRG.MSG1	TO		"Enter the Date to Purge From "
EQU	PRG.MSG2	TO		"Enter the date in MM/DD/YY Format.  The routine will then delete all log files that have been released and have a FULL.DATE field that is less than this date."
EQU	PRG.MSG3	TO		"The purpose of this application is to delete old references to files that have been backed up to tape and then released.  When the files are backed up, the actual log file is removed from the log directory, but the entry is not removed from the UV_LOGS file.  Instead, it is marked as 'Released'.  Periodically, it may be useful to delete these entries. This routine will delete those entries."

EQU	IDT.MSG0	TO		"Identify Log Files to recover"
EQU	IDT.MSG1	TO		"Enter name of select list or ALL"
EQU	IDT.MSG2	TO		"Enter the name of a previously saved select list or ALL to check all files in UV_TRANS"

EQU STATE.MSG	TO		".  You can use the 'Display logging state' menu to verify the current state of the logging subsystem."
EQU	CDIR.EXECRAW	TO		"CREATE.LRAW "
EQU	LOGS.RAWDIR			TO	"LOGS.RAWDIR"
EQU	CHG.RAWOVER	TO		"CHG.RAWCHG "