$!		AUTOGEN_BATCH.COM
$!-------------------------------------------
$
$who = "FRUTH@GFRUTHCONSULTING.COM"
$how_often = "7-0:0:0" !once a week is '7-0:0:0'
$agenrpt = "sys$login:autogen_rpt_" + f$getsyi("nodename") + ".txt"
$
$	on warning then goto error
$	set proc/name="Autogen batch"/priv=all
$
$	!determine if it is time to get feedback data
$	!Only get feedback if it is older than 'how_often'.
$	!Only get feedback during a weekday at 2pm.
$	weekday = f$cvtime(f$time(),,"weekday")
$	sh sym weekday
$	hour = f$int(f$cvtime(f$time(),,"hour"))
$	sh sym hour
$	if weekday.eqs."Saturday".or.weekday.eqs."Sunday".or.hour.ne.14 then -
$		goto dont_get_feedback
$	if f$search("sys$system:agen$feedback.dat").eqs."" then -
$		goto get_feedback
$	create_date = f$file("sys$system:agen$feedback.dat","cdt")
$	if f$cvtime("''create_date’+''how_often’").gts.f$cvtime("today") then -
$		goto dont_get_feedback
$	!the file is old, and it is 2pm on a weekday; get feedback info
$
$get_feedback:
$	@sys$update:autogen savparams savparams
$	purge/keep=3 sys$system:agen$feedback.dat
$
$dont_get_feedback:
$
$	!see if it is time to generate a autogen report
$	if f$search("sys$system:agen$params.mailed").eqs."" then -
$		goto make_report
$	create_date = f$file("sys$system:agen$params.mailed","cdt")
$	if f$cvtime("''create_date’+''how_often’").gts.f$cvtime("today") then -
$		goto dont_make_report
$make_report:
$	@sys$update:autogen getdata testfiles feedback
$	call mailit sys$system:agen$params.report -
		"AUTOGEN report for ''f$getsyi(""nodename"")’"
$	rename sys$system:agen$params.report; *.mailed;/log
$	purge/keep=3 sys$system:agen$params.*/log
$
$dont_make_report:
$	exit
$get_feedback:
$	return
$error:
$	S = $STATUS
$	set noon
$	call mailit nl: -
		"Autogen_Batch.com failed. ''f$environment(""procedure"")' ''s'"
$	EXIT 's'

$mailit: subroutine
$	on warning then exit $status
$	success="false"
$	i = 0
$	mail_loop:
$		usr = f$element(i,",",who)
$		if usr.eqs."," 
$		then 
$			if success then exit 1
$			exit 0
$		endif
$		set noon
$		mail/noself 'p1' "''usr’" /subj="''p2'"
$		sh sym $status
$		if $status then success="true"
$		set on
$		i = i + 1
$		goto mail_loop
$endsubroutine