RE: Net Server userid disabled

Bob, 

I strongly recommend wrapping the QUSRTOOL example with a CMD interface.
I'm surprised IBM hasn't done it.

Here is why:

CALL QSYS/QZLSCHSI
PARM(X'00000005D4C9C3D2E84040404040D1D6C8D5E84040404040C2D6C2C2E84040404040C
8D6D3D3E84040404040D8E2C5C3D6C6D9404040' X'00000036' ZLSS0200 X'00000000')

The above call SHOULD (haven't tested it) enable 5 users NetServer access
(MICKY,JOHNY,BOBBY,HOLLY,QSECOFR).  
But do you want to go through trouble of figuring out hex values for the
user profile names and changing the length of the request length parameter?
I know I wouldn't.

Elvis

-----Original Message-----
Subject: RE: Net Server userid disabled

Hi Rob,

      So, to run this from the command line for a single 5-character user,
would it look like this?

       CALL QSYS/QZLSCHSI PARM(5 SPXXX ZLSS0200 X'00000000') ?

Thanks!
<*BobL*>

|   -----Original Message-----
|   From: midrange-l-bounces@xxxxxxxxxxxx
|   [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of rob@xxxxxxxxx
|   Sent: Wednesday, June 29, 2005 1:39 PM
|   To: Midrange Systems Technical Discussion
|   Subject: RE: Net Server userid disabled
|   
|   
|   Thanks.
|   
|   Here's the "meat" from that tool:
|   
|   ...
|   DCL        VAR(&USERSTOENB) TYPE(*CHAR) LEN(154)
|   ...
|                
|   /*--------------------------------------------------------*/  
|    
|                /*  The structure to enable all of the 
|   requested users    */  
|    
|                /*   has been set up.  Now call QZLSCHSI to 
|   enable the    */  
|    
|                /*   requested users.  After that return to 
|   display the   */  
|    
|                /*   same screen again.                        
|              */  
|    
|                
|   /*--------------------------------------------------------*/  
|    
|    ENDENABLE:  CHGVAR %BINARY(&USERSTOENB 1 4) &NBRTOENB  
|                CHGVAR &SIZEDEC ((&NBRTOENB*10)+4)  
|                CHGVAR %BINARY(&SIZE 1 4) &SIZEDEC  
|                CALL   QSYS/QZLSCHSI PARM(&USERSTOENB &SIZE ZLSS0200 
|   X'00000000')
|   
|   But having the whole thing is pretty nice.
|   
|   I've submitted a request to get this api documented on Infocenter.
|   
|   Rob Berendt