# File: closelog.src
#
# This procedure closes and prints the log file named in global 
# variable !GS9
#

program "@(#) MODULE: closelog.src RELEASE: 2.3 CREATED: 04/15/94 18:30:40"
source "/mdisw/cfl/eof/src/closelog.src"
descr "closelog - Closes and print log file"

write  !GS9 "Closed Log File: %s" !GS9
write  !GS9 " at %s" !DATE
writen !GS9 " %s" !TIME

display "Closing and printing log file %s" !GS9
close user !GS9 print

setstr !GS9 = ""
