The following statement would give a report of the PackDisks for the last seven days: Exec PackDisk (Date-6,);