$ verify = f$verify(0)
$ define/user pdp_login "''p1'"
$ define/user pdp_password "''p2'"
$ run sys$system:pdplogin
$ if verify then set verify