parm p1="@.!hpaccount", p2="n"
# jscount.xeq - counts jobs and sessions
# returns variables jscount_sessions and jscount_jobs
# Michael P. Smith - The Hertz Corporation
# Added echo for parm p2 - Tim Ericson
if not bound(_jscount_useracct)
 setvar _jscount_useracct UPS("!p1")
 setvar _jscount_messages UPS("!p2")
 showjob job=!_jscount_useracct;EXEC > jscountx
 !hpfile < jscountx
 if _jscount_messages = "Y"
  showvar jscount_@
 endif
 purge jscountx,TEMP > $NULL
 deletevar _jscount_@
else
 setvar jscount_sessions 0
 setvar jscount_jobs     0
 if finfo("jscountx","eof")=3 then
  return
 endif
 input _jscount_junk
 input _jscount_junk
 input _jscount_junk
 setvar _jscount_record "#"
 while lft(_jscount_record,1)="#"
  input _jscount_record
  if str(_jscount_record,2,1)="S"
   setvar jscount_sessions jscount_sessions + 1
  elseif str(_jscount_record,2,1)="J"
   setvar jscount_jobs     jscount_jobs     + 1
  endif
 endwhile
 return
endif