[Info-vax] vms base priority watch

[Keith Cayemberg]

On Jul 8, 3:07 pm, "pcovie... at gmail.com" <pcovie... at gmail.com> wrote:
> On Jul 8, 2:39 am, Hans Vlems <hvl... at freenet.de> wrote:
>
>
>
>
>
>
>
>
>
> > On 7 jul, 23:04, "Richard B. Gilbert" <rgilber... at comcast.net> wrote:
>
> > > On 7/7/2011 4:55 PM, VAXman- @SendSpamHere.ORG wrote:
>
> > > > In article<30f1004b-ba65-4fa9-a202-cee60778e... at x16g2000yqg.googlegroups.com>, "pcovie... at gmail.com"<pcovie... at gmail.com>  writes:
> > > >> is there a way to monitor a base priority, let's say hourly to see if
> > > >> it might be changed?
>
> > > > Yes.
>
> > > <snicker, choke, gasp>
>
> > Why the reaction? Brian gave the perfect answer to the question.
> > All we're waiting for is the response of the OP. Which may be:
> > - OK, I'll start reading up on system services and a little macro
> > - Umm, could you write me a program (providing some specifications
> > perhaps)
> > And of course the (rather real) possibility that the OP just sits
> > there not knowing how to handle a perfect response ;-)
> > Well, Paul, share your thoughts with us!
> > Hans
>
> ok well. I did ask a yes/no question! me bad!  yes I understand the
> non-prived user would not do this but... we have given users the
> rights to do this early in the morning to get their jobs completed,
> when there are less users on the system. we fear (rightfully so) there
> may be some who may do it doing during a regular work day... :-
> (  Right now just looking for a pointer in the right direction maybe
> later if I'm stuck I would need help with code... everyplace I look
> I'm not sure where to get a search done for a base priority above 4
>
> thanks
> Paul

Hi Paul,

there are many OpenVMS process monitoring utilities (both freeware and
commercial) that may fit your needs. However, I think many in this
forum would first like to point out, you should first be sure what
your needs really are. If setting process priorities higher is
noticeably helping some of your users at all, then you probably have
some sort of system configuration imbalance that could be better
solved another way. There are many OpenVMS consultants watching this
forum who would appreciate a short-term commission to analyze your
system (I'm not one of them, I've got a long-term OpenVMS corporate
customer already).

That being said, I think I can point you in the right direction with
regards to checking process base priorities yourself.

For all of the following, it is assumed you have GROUP or WORLD
privileges allowing you to see the process job information of other
user's processes.

$ show process cayemberg

 8-JUL-2011 15:51:34.82   User: CAYEMBERG        Process ID:
2023280A
                          Node: CH21             Process name:
"CAYEMBERG"

Terminal:           TNA40:  (Host: HVDH9C0D.tiretech.contiwan.com
Port: 4673)
User Identifier:    [PROSI,CAYEMBERG]
Base priority:      9
Default file spec:  Not available
Number of Kthreads: 1

Devices allocated:  CH21$TNA40:

Soft CPU Affinity: off

You can also write your own DCL procedure, and run it once per hour as
a batch job, or as a detached process. Here is a skeleton procedure to
get you started.

$ create show_prib.com
$ CONTEXT = ""
$ START:
$     PID = F$PID(CONTEXT)
$     IF PID .EQS. "" THEN EXIT
$     WRITE SYS$OUTPUT PID," ",f$getjpi(PID,"PRIB"),"    ",f
$getjpi(PID,"PRCNAM"),"    ",f$getjpi(PID,"USERNAME")
$     GOTO START
$ EXIT
<CONTROL Z>

CH21 @show_prib.com
20200401 16    SWAPPER    SYSTEM
20200407 12    CLUSTER_SERVER    SYSTEM
20200408 8    CONFIGURE    SYSTEM
20200409 12    LANACP    SYSTEM
2023280A 9    CAYEMBERG    CAYEMBERG
[...]


You should study the lexicals f$getjpi, f$pid and f$context, for
formatted output also F$FAO.
All are well documented in the online help at  $ HELP LEXICALS

You could also use my PROCESS_SCAN.COM procedure as a starting point
here...

http://dcl.openvms.org/stories.php?story=07/11/25/2406271
or
http://www.jescab.se/upload/process_scan.zip
or
http://wwwvms.mppmu.mpg.de/util_root/com/process_scan.com

CH21 ps * CAYEMBERG * * * * PRIB


Scan: p=* u=CAYEMBERG n=* j=* i=* s=* PRIB
Node   Username     ProcessName     Pid      Jobtype  State Pri
CPUTime     I/O       PgFlts   Image
------------------------------------------------------------------------------
CH21   CAYEMBERG    CAYEMBERG       2023280A REMOTE   LEF   9
0:00:00.10  496       634      VMSHELP.EXE
  JPI_PRIB = 9   Hex = 00000009  Octal = 00000000011
------------------------------------------------------------------------------
Found:    1  Time: 16:20:04

Cheers!

Keith Cayemberg