212 lines
11 KiB
C++
212 lines
11 KiB
C++
|
******************************************************************************
|
||
|
|
*
|
||
|
|
* 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 "
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|