$ verify = f$verify(0)
$ wait = f$integer(p1)
$ if wait .eq. 0 then goto err
$ define/user pdp_wait "''wait'"
$ sys$system:run pdpwait
$ goto done
$
$ err:
$	write sys$error "PDPWAIT -- Maximum wait must be specified"
$	
$ done:
$	if verify then set verify