$ ! -----------------------------------------------------
$ ! Script   : Rewards.com
$ ! Function : Creates a dump of the rewards members list
$ !            and types the file on screen (132 col output)
$ ! Date     : 12/28/2004
$ ! Author   : Ramki
$ ! -----------------------------------------------------
$ write sys$output "Deleting Previous Version of Rewards Report"
$ set def ld_disk2:[bbv.work]
$ delete RPT_REWARDS.RPT;1
$ write sys$output "Executing Rewards Reporting Program"
$ set def ld_disk2:[bbv.pgms]
$ Run RPT_REWARDS.EXE;1
$ write sys$output "Changing directory to BBV.work"
$ set def ld_disk2:[bbv.work]
$ dir RPT_REWARDS.RPT;1
$ write sys$output "-------------------------------------------------"
$ write sys$output "''esc'[5mChanging screen resolution to 132 column
$ write sys$output "''esc'[m
$ write sys$output "------------------------------------------------"
$ inquire/global yesno "Enter to Continue or 'n' to exit...."
$ set def dka100:[bbcs.testtools]
$ if ( yesno .eqs. "N" )
$ then
$    exit
$ endif
$ SET TERMINAL/DEVICE=VT100
$ SET TERMINAL/WIDTH=132/PAGE=60/NOBROADCAST
$ type RPT_REWARDS.RPT;1/page
$ SET TERMINAL/WIDTH=80/PAGE=25/NOBROADCAST
$ set def dka100:[bbcs.testtools]
$ sh def
