Operating System - OpenVMS
cancel
Showing results for 
Search instead for 
Did you mean: 

Help writing a com file

 
SOLVED
Go to solution
vmsserbo
Super Advisor

Re: Help writing a com file

To answer your question on why I feel we should lower the ENQLM>

Every now and then, we experience some bugcheck dumps where the users are exceeding their ENQLM.
Jan van den Ende
Honored Contributor

Re: Help writing a com file

Miles,

as I understand, you are trying to LOWER the ENQLM values.
At least two issues that I see with that:
1- IF any of those nodes has SYSGEN param PQL_MENQLM value higher than what you want to screw down to, the PQL value will take precedence.
2- (at least some of) these accounts have (had?) a reason to have this value.
If you lower them indiscriminatingly, you _MIGHT_ run into applications that after the change do not run anymore, or behave unexpectedly!

I do understand that there may perfectly valid reasons to want this change, but I like you to at least be aware of potential possible negative consequences!

Proost.

Have one on me.

jpe
Don't rust yours pelled jacker to fine doll missed aches.
Hein van den Heuvel
Honored Contributor

Re: Help writing a com file

Here... for grins... the other approach where you make the ENQLM for a given user the same accross all nodes (right or wrong!)


use strict;
use warnings;

my ($node, $user, $old_node, $nodes, $old_enq, %users, %records, %max);

while (<>) {
# if (/($S+)\s+-\s+($S+)\s+-\s+(\d+)/)
my ($node, $user, $enq) = split /\s+-\s+/;
if ($enq) {
$old_enq = $users{"$node:$user"};
if (!defined($old_enq) || $old_enq < $enq) {
$users{"$node:$user"} = $enq;
$max{$user} = $node;
$records{$node}++;
}
}
}
$old_node = "";
foreach (sort keys %users) {
($node, $user) = split /:/;
my $enq = $users{"$node:$user"} - 1;
unless ($node eq $old_node) {
$nodes++;
if ($old_node) {
close TMP;
print "Node $old_node, $records{$node} records.\n";
}
my $file = $node . ".tmp";
$old_node = $node;
open TMP, ">$node.tmp" or die "could not create $file";
print TMP "\$MCR AUTHORIZE\n";
}
printf TMP "MODIFY %-12s/ENQL=%-5d !From node %s\n",
$user, $enq, $max{$user};
}
print "Node $old_node, $records{$node} records.\n";
close TMP;
print "$nodes scripts generated.\n";


:

type TEAM08.tmp
$MCR AUTHORIZE
MODIFY APP_BRIANZ /ENQL=32766 !From node WHITEP
:
MODIFY DEV_ANDYM /ENQL=32766 !From node WHITEP
MODIFY DEV_BRIANB /ENQL=32766 !From node TEAM09
MODIFY DEV_CELESTEP/ENQL=32766 !From node WHITEP

Robert Brooks_1
Honored Contributor

Re: Help writing a com file

Miles wrote . . .

Every now and then, we experience some bugcheck dumps where the users are exceeding their ENQLM.

----

Do you mean system crashes, or process crashes?

Can you explain how you came to your conclusion regarding cause and effect?

Why are you keying in on users with an ENQLM of 32767 or greater?

What version of VMS?

-- Rob
John Gillings
Honored Contributor

Re: Help writing a com file

Miles,

Please look at the OpenVMS Management Station. You can add all your nodes and manage them all from a single GUI interface. In this case you could select ALL your users across ALL nodes, click "properties", fo to the QUOTAS pane and set the ENQLM for every user with one mouse click.

The software is installed, and licensed with OpenVMS. To start it on the VMS systems, include SYS$STARTUP:TNT$STARTUP.COM in your system startup. For the PC interface, copy the file SYS$SYSROOT:[TNT.CLIENT]TNT*.EXE to a PC and execute it to install.

You then need to add each cluster or node.
A crucible of informative mistakes
Highlighted
Allan Bowman
Respected Contributor

Re: Help writing a com file

I'm not sure I understand...

You said: "Every now and then, we experience some bugcheck dumps where the users are exceeding their ENQLM."

If you lower the ENQLM for all of the users, the expected outcome is that you will experience this problem more frequently. Or are you trying to make it happen for troubleshooting purposes?

Allan in Atlanta
Volker Halle
Honored Contributor

Re: Help writing a com file

Miles,


Every now and then, we experience some bugcheck dumps where the users are exceeding their ENQLM.


If your systems are crashing, could you provide some more information, like - for OpenVMS Alpha - the output of $ TYPE CLUE$HISTORY or even a full CLUE file from CLUE$COLLECT:CLUE$node_ddmmyy_hmm.LIS ?

Volker.
Jan van den Ende
Honored Contributor

Re: Help writing a com file

,

from your Forum Profile:


I have assigned points to 177 of 297 responses to my questions.

Your profile even has TWO pages with questions that have unassigned answers.

Maybe you can find some time to do some assigning?

http://forums1.itrc.hp.com/service/forums/helptips.do?#33

Mind, I do NOT say you necessarily need to give lots of points. It is fully up to _YOU_ to decide how many. If you consider an answer is not deserving any points, you can also assign 0 ( = zero ) points, and then that answer will no longer be counted as unassigned.
Consider, that every poster took at least the trouble of posting for you!

To easily find your streams with unassigned points, click your own name somewhere.
This will bring up your profile.
Near the bottom of that page, under the caption "My Question(s)" you will find "questions or topics with unassigned points " Clicking that will give all, and only, your questions that still have unassigned postings.

Thanks on behalf of your Forum colleagues.

PS. - nothing personal in this. I try to post it to everyone with this kind of assignment ratio in this forum. If you have received a posting like this before - please do not take offence - none is intended!

Proost.

Have one on me.

jpe
Don't rust yours pelled jacker to fine doll missed aches.
vmsserbo
Super Advisor

Re: Help writing a com file

Would someone please delete this thread. I have an attachment with a sysuaf.lis that I shouldn't have sent.
Art Wiens
Respected Contributor

Re: Help writing a com file

I'ld say 4 months later it's probably not worth taking down ... Google for :

sysuaf accounts nationwide

You're #1! I'm sure your information has been in the "wrong hands" for quite some time now.

It's a "FORUM"!!! And the Web is "WORLD WIDE"!! Sheesh ... anyways, I'm off to arrange some financing for this great deal I read about in my "personal" email ... $26 million is coming my way from Africa ... imagine them choosing me, what luck!!

:-P
Art