topic Re: Need DCL help in Operating System - OpenVMS

Need DCL help

James Viswasam — Tue, 09 Aug 2005 17:56:06 GMT

Hi
I have only beginner level knowledge in DCL. I am trying write a script that would track a process that goes into a loop ( CUR state with no I/O ) I know the process name starts with SRV. I need this to be done quickly as we have a problem that causes this. (This is ofcourse a temproary thing until the vendor fixes the application bug that is causing this)
Your help would be greatly appreciated.

Re: Need DCL help

Andy Bustamante — Tue, 09 Aug 2005 18:33:31 GMT

Take a look at F$GETJPI (help lexical F$GETJPI) and SYS$EXAMPLES:WORKING_SET.COM.

The command file gives a good example of how check all processes on a system. F$GETJPI can provide the I/O numbers you're looking for.

Andy

Re: Need DCL help

Hein van den Heuvel — Tue, 09 Aug 2005 20:27:01 GMT

Maybe instead of scripts you should look at tools or utilities?

Like
$moni proc/topcpu
and
$moni proc/cont/id...

Do you want to catch a program as soon as possible after it gets into a computable loop? I suspect this is a standard function of tools like DECamds or Openview, but do not really know.

I suppose you could write a dcl script to loop over all processes with F$GETJPI.
For each process grab cputime. Subtract prior cpu time stored in cpu_'pid. If within 95% of loop interval, report potential problem. After test remember the cpu time in a symbol cpu_'pid. After last process wait 10 seconds and try again.

Hein.

Re: Need DCL help

John Gillings — Tue, 09 Aug 2005 23:00:17 GMT

James,

I've attached a sample command procedure which looks for processes owned by a specified username (optional) with a process name starting with a specified prefix, it saves the DIOCNT and BIOCNT for each process discovered. When seen again, the state is checked. If CUR or COM, with no change in DIOCNT or BIOCNT, a mail message is sent to a specified user.

Modification to you exact specifications left as an exercise, usual disclaimers...

Re: Need DCL help

John Gillings — Tue, 09 Aug 2005 23:03:20 GMT

Oops, almost forgot...

Since this procedure creates two new symbols for each matching process found, if you leave it running long enough, especially if you have many processes, or high process turnover, it could potentially fill your symbol table.

Probably a good idea to stop and restart every so often!

Re: Need DCL help

Antoniov. — Wed, 10 Aug 2005 03:12:38 GMT

John,
at first glance, your dcl procedure has a little error:

$ IF(state.EQS."CUR".OR.state.EQS."COM").AND.
- (dio-dio'pid'.EQ.0).AND.(bio-bio'pid'.EQ.0)

where dio-dio'pid' and bio-bio'pid' don't seem assigned in elsewhere.
I guess you want to write
$ IF(state.EQS."CUR".OR.state.EQS."COM").AND.
- (dio'pid'.EQ.dio).AND.(bio'pid'.EQ.bio)

Antonio Vigliotti

Re: Need DCL help

Jan van den Ende — Wed, 10 Aug 2005 04:11:21 GMT

Antonio,

sorry, but I have to disagree.

John's procedure is entirely correct.

I think you confused the minus-sign with an underscore.

"dio - dio'pid' .eq. 0" is entirely equivalent with
"dio .eq. dio'pid'

The minus-sign in dio-'pid' is not, and can not be, a character in the name of a symbol, but always is the arithmetic "minus" function operator!.

Proost.

Have one on me.

jpe

Re: Need DCL help

Antoniov. — Wed, 10 Aug 2005 04:33:52 GMT

Jan,
you are right. I confused minus with underscore because I don't use this form fo expression.

Thank you!

Antonio Vigliotti

Re: Need DCL help

James Viswasam — Wed, 10 Aug 2005 11:04:47 GMT

Hi

Andy, I was looking at that lexical and trying to understand it. I will look at the examples from sys$examples.

Hi Hein, thats what I am doing for now, watch mon proc/topc interactively until I put a dcl script in place.

John, thanks a bunch for sharing a DCL command procedure. I was thinking along that lines to get and compare the DIOCNT and BIOCNT. will try to use it as an example since i do not have much time to start monitoring the looping process.

Anotnio/Jan , thanks for your efforts.

All, I am allocating the points and once again thanks for your quick responses.
I will update here with progress or questions.

Re: Need DCL help

James Viswasam — Wed, 10 Aug 2005 18:04:48 GMT

John

It works great. I only had to modify it to send page messge and email.

Thanks

James