From:	CSBVAX::CSBVAX::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX"  2-MAR-1989 22:01
To:	MRGATE::"ARISIA::EVERHART"
Subj:	CLUSER for V5


Received: From KL.SRI.COM ([0.0.0.0]) by CRVAX.SRI.COM with TCP; Thu,  2 MAR 89 10:34:25 PDT
Received: from mis.arizona.edu (misvax.mis.arizona.edu) by KL.SRI.COM with TCP; Thu, 2 Mar 89 10:23:17 PST
Received: by mis.arizona.edu id <20A02353211@mis.arizona.edu> ;
       Thu,  2 Mar 89 11:19:51 MST
Date: Thu,  2 Mar 89 11:17:58 MST
From: ISO TP4. Old solutions for new problems. <JMS@mis.arizona.edu>
Subject: CLUSER for V5
To: info-vax@kl.sri.com, abstine@clvms.clarkson.edu
X-VMS-Mail-To: EXOS%"info-vax@kl.sri.com"
Message-ID: <890302111758.20A02353211@mis.arizona.edu>

Art Stine writes:

>Does anyone have a copy of CLUSER (cluster SHOW USER) for V5? Before I go
>and fix it for V5, I'd like to find out if anyone has doen it already.

Yes, here is the patch:

---------------
Print this file out.  Then edit CLUSER.FOR.  Find the chunk of code
that is printed, and made the changes to the SYS$ASSIGN line.

***
*  For each node, set NUMBER_ON_NODE to 0 and make First_user true
*
	  First_user = .true.
	  number_on_node = 0
***
*  Now, do the assign.
* bugfix/jms/881010
*
	  assign_status = SYS$Assign (devname(1:node_length(i)+10),ichan,,)
* THIS LINE CHANGED ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
***
*  If it wasn't perfect...
*
	  if (assign_status .ne. SS$_REMOTE) then

-----------------

jms

Joel M Snyder, Univ of Arizona Dep't of MIS, Tucson, AZ, 85721  
BITNET: jms@arizmis  Internet: jms@mis.arizona.edu Phone: 602.621.2748
"The 3 B's of Spring Break ... Beer, Beach, and Babes." - Miller Beer Ad


