SCRIPT

Integer RC
String Todays_Date = '&24
String Last_Date
String Log_Message


If File_Exists ('F:\Datefile.Dat')
   Open ('F:\Datefile.Dat', input)
   Finput Last_Date
Endif

EOF:
 Close
If Last_Date = Todays_Date
   Exit
endif

If File_Exists ('F:\TODAYS.PRG')
   Gem ('F:\TODAYS.PRG')
   Log_Message = 'Todays Program was run at Log off..'
Else
   Log_Message = 'Could not find the Todays.Prg'
Endif

Open ('F:\Datefile.Dat', output)
   Fprinte '[Todays_Date]'
Close

Open ('F:\RcaCall.Log', Append)
    Fprinte '[Log_Message];
Close