$!
$! BCK_RESTORE_FILE
$!
$! Created: 24-Apr-93 L. Baldwin
$!
$! 24-Apr-93 - V1.0.0
$! 14-Jun-93 - V1.0.
$! Desc: Command procedure to restore the file selected by
$! BCK_RESTORE_SELECT.
$ set verify
$ on WARNING then goto PROCESS_ERROR
$ username = f$getjpi(0,"USERNAME")
$ tape_label=p1
$ saveset=p2
$ filename=p3
$ tape_device=p4
$! mount/assist/foreign 'tape_device' 'tape_label'
$! backup/select='filename'/label='tape_label' 'tape_device''saveset' -
$!        TASM$RESTORE:[*]/log/new_version
$ dir = f$parse("''filename'",,,"DIRECTORY")
$ msg = f$fao("!AS !/ !AS", -
	 "File: ''filename'",-
	"restored to TASM$RESTORE:''dir'")
$ reply/user''username'/bell "''msg'"
$ exit
$!
$PROCESS_ERROR:
$ saved_sts = $status
$ msg = f$fao("!AS !/ !AS", -
	"Restore of ''filename' failed due to error.  ",-
	"See TASM$BACKUPS:BCK_RESTORE_FILE.LOG")	
$ reply/user='username'/bell "''msg'"
$ exit saved_sts