anyparm ARG=!hpaccount
# whereis.xeq - show all logons for current
#               or specified account
# Tad Bochan - J. P. Morgan & Co. 
if lft(hpstdin,2)="$S"
   showjob > stdlist
   !hpfile !ARG < stdlist
   return
endif
setvar n finfo(hpstdin,"eof")
while setvar (n,n-1) > 0
   if lft(setvar(buf,input()),1)='#'
      if setvar (pos, pos(ups("!arg"),buf)) > 0
         echo !buf
      endif
   endif
endwhile