$ IF p1.EQS."" THEN INQUIRE p1 "Symbol"
$ ! note if symbol p1 is in a non-default symbol file, include READ commands
$ ! as p2 and/or p3 eg: "READ SYS$LOADABLE_IMAGES:RMS"
$ in="WRITE SYS$OUTPUT"
$ PIPE (in p2 ; in p3 ; in "SHOW SYM ''p1'") | -
       (def sys$input sys$pipe ; ANALYZE/SYSTEM) | -
        sea sys$pipe 'p1' | -
       (read sys$pipe s ; v=f$elem(0,":",s)-"FFFFFFFF." ; def/job/nolog v &v)
$ 'p1'==%X'F$EDIT(F$ELEMENT(1,"=",F$TRNLNM("v")),"COLLAPSE")