DEFINE VERB prcarmor
   IMAGE sys$login:prcarmor
     parameter p1,prompt="Device:",value(required,type=$device),label=Device
	qualifier PID,value(required,type=$infile)
	qualifier set
	qualifier clear