// Check data files than arrived erlier.
Dim file_date, date
Dim file_time, time
Dim today, date
Dim now, time
Dim not_found, boolean
Dim file_OK, boolean
Dim date_OK, boolean
Dim time_OK, boolean
Dim file_name, string
// Check if it is file_OK
IsEqual( file_date, today, date_OK )
IsTimeBetween( file_time, 00:00:00, now, time_OK )
And( date_OK, time_OK, file_OK )
if( file_OK, DONE, BAD_FILE )
BAD_FILE:
// Inform operation personal about bad file
MailSend( "Exchange Settings", "pswrd",
"david@mycompany.com", file_name, "Overnight feed failed. File specified in
the subject was not updated!" )
MailSend( "Exchange Settings", "pswrd", "joe@mycompany.com",
file_name, "Overnight feed failed. File specified in the subject was not
updated!" )