say 'launching '||start_string||' '||strip(file,'B')||' '||strip(parameters,'B')||' at '||currHour||':'||disp_min||' on '||currMonth||'/'||currDay||'/'||currYear
End /* Else */
End /* if time */
End /* While */
call stream fworkdir'crontab','c','close'
call sysSleep 60-(time('s')-time('m')*60)
End /* main loop */
matches:
args = arg(1)
if args='*' then return 1
matched = 0
parse var args value ',' args
do while value<>''
if value=arg(2) then matched = 1
parse var value from '-' to
if from<=arg(2) & arg(2)<=to then matched = 1
parse var args value ',' args
end
return matched
halt:
say 'Cron stopped at 'currHour':'disp_min' on 'currMonth'/'currDay'/'currYear