HP3000-L Archives

September 2001, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"VANCE,JEFF (HP-Cupertino,ex1)" <[log in to unmask]>
Reply To:
VANCE,JEFF (HP-Cupertino,ex1)
Date:
Tue, 25 Sep 2001 11:47:46 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (40 lines)
> > I want to see how many people at any given time are running
> > a particular program with a Parm of 2.  MPEX  Listf ,Access
> > will show me how many people are accessing it, but does not
> > show me if they ran it with a parm.  How can I find this out?
>
> I'm not sure of any other way, but here's a product-based way:
...good way snipped...

Here is an all FOS method, but you need 7.0 exp1 to get the new
PINFO function:  (note, not tested and not a complete script)

PARM pgm, parm=0, entry=main
# finds all accessors of "pgm" via parm="parm"
#
if '!entry' = 'main' then
   ...
   continue
   listfile !pgm,9 >lftmp
   if hpcierr = 0 then
      xeq !hpfile !pgm !parm entry="read_lf" <lftmp
   endif
   return

elseif '!entry' = 'read_lf' then
   # input redirected to listf,9 output
   # parse out the accessor's pin
   setvar end finfo(hpstdin,'eof')
   while setvar(end,end-1) >= 0 do
      if lft(setvar(rec,input()),3) = ' #P' then
          if pinfo(word(rec),'parm') = !parm then
             # You have a match...
          endif
      endif
   endwhile
   return
endif

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2