How to obtain a 7 day period ending on a certain weekday

$! $ ReportDay = "Tuesday" $! $! loop until correct date obtained $! $ x=1 $ Loop1: $ DayToday = f$cvtime("today-''x'-",,"WEEKDAY") $ IF DayToday .EQS. ReportDay THEN GOTO Cont1 $ x = x 1 $ GOTO Loop1 $! $ Cont1: $ write sys$output "x = ''x'" $! $ EndDate = f$cvtime("today-''x'-00:01") $ y = x 7 $ StartDate = f$cvtime("today-''y'-00:00") $ write sys$output "From ''StartDate' to ''EndDate'"