!
!  MEASURE_MAX.DTR
!
!  Plot average of weekly response time over last few months (or whatever
!  input files you give.)
!
!  INPUT
!    MEASURE (domain) MEASURE_FILE (logical) file of MEASURE-REC raw data, fixed
!      up to include fixed length records only (for DTRs benefit)
!  OUTPUT
!    SYS$OUTPUT (logical) plot of response by the julian day 
!    MEAS_MAX (domain) MEASURE_MAX.TMP (file) report output of the maximums
!      by day
!
set plots cdd$top.dtr$lib.plots
!
fn$create_log("MEASURE_FILE","MEASURE_MAX.TMP")
ready measure
declare w computed by fn$week(measure.date_time).
!
REPORT MEASURE with device = "TIME " SORTED BY fn$date(date_time) on MEASURE_MAX.TMP
SET NO NUMBER
SET NO DATE
SET NO REPORT_HEADER
SET NO COLUMN_HEADER
AT BOTTOM OF w PRINT COL 1, date_time,
	COL 25, "TIME ",
	COL 30, average VAL USING 9(9)
END_REPORT
finish measure
exit
!
!  Now plot results
!
fn$create_log("MEASURE_FILE","MEASURE_MAX.TMP")
ready measure as meas_max
plot date_y format date_time ("Date"), 
	 format val/100 using zzz,zz9.9 ("Weekly Average Resp") of meas_max with
		(val ne 0) and (date_time ne " ")