$ if p1 .nes. "" then t = p1
$
$ write sys$output "testing req conversions"
+$ if f$search("fff.*") .nes "" then delete fff.*;*
+$ if f$search("ff.*") .nes "" then delete ff.*;*
+$ if f$search("f.*") .nes "" then delete f.*;*
$ copy 't' fff.p
$
$ write sys$output "p -> d"