##############################################################################################
#   Version:  1.00
#   Author:   Paul Ponting
#   Modified: 5/12/2000
#
#
#     ***** VERY IMPORTANT INFORMATION *****
#
# 1 - All changes to this script must be authorised by means of an RFC.
#
# 2 - All modifications, however small must be recorded in the modification history section.
#     A single mistyped character can affect ALL sites within UB and this history will help
#     in troubleshooting such errors.
#
##############################################################################################
# Program Description
# -------------------
# This script is simple creates a file in the format dd monthname hour24.DAY in the 
# replication folder for the ADMIN volumes to allow an easy check to determine that TaskMaster
# is still running on REDWOOD-UK.
#
##############################################################################################
#
# MODIFICATION HISTORY (Newest at the top)
# ----------------------------------------
#
# 12/12/2000
# Additional comments added
# Paul Ponting
#
# 5/12/2000
# Script created
# Paul Ponting
#
##############################################################################################
#
#    RESERVED VARIABLES:  DO NOT ASSIGN :  
#    %9 -- NOT Assigned
#    %8 Working directory		- Used internal to script
#    %7 -- NOT Assigned
#    %6 -- NOT Assigned
#    %5 -- NOT Assigned
#    %4 -- NOT Assigned
#    %3 -- NOT Assigned
#    %2 -- NOT Assigned
#    %1 -- NOT Assigned
#    %0 -- NOT Assigned
#
############################################################################################
#                                 Start of Script                                         #
###########################################################################################

# Defines a working directory that all system access should use to allow easier transfer
# of script to another location.  (no trailing backslash)
# i.e.
# DEFINE %8 VOL1\REPORTS\REPLICAT	(This must already exist)
DEFINE %8 VOL1:REPORTS\REPLICAT
IF NOT EXIST %8\ THEN ABORT

# Checks for the STATUS directories. Creates if it doesn't exist.  
# They are created early on so errors in variable passing can be logged to this directory.
IF NOT EXIST %8\STATUS\
  MD %8\STATUS
ENDIF

# Deletes any files created that mark the current date.
IF EXIST %8\STATUS\*.DAY
 DEL %8\STATUS\*.DAY
ENDIF


# Creates a file in the format <todays_date>.DAY to indicate the last time TaskMaster was recorded to be running.
# The file created contains the full date information.
OPEN_WRITE "%8\STATUS\%DAY% %MONTH_NAME% - %HOUR24%00.DAY"
WRITE TaskMaster running as of
WRITE %DAY_OF_WEEK%, %DAY%/%MONTH%/%YEAR%
WRITE
WRITE There should always be 22 files in this directory (including this one)
CLOSE