RE: Net Server userid disabled

["Lester, Bob" <blester@xxxxxxxxxxxxxxxxxxxx>]

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
|   -- 
|   Group Dekko Services, LLC
|   Dept 01.073
|   PO Box 2000
|   Dock 108
|   6928N 400E
|   Kendallville, IN 46755
|   http://www.dekko.com
|   
|   -- 
|   This is the Midrange Systems Technical Discussion 
|   (MIDRANGE-L) mailing list
|   To post a message email: MIDRANGE-L@xxxxxxxxxxxx
|   To subscribe, unsubscribe, or change list options,
|   visit: http://lists.midrange.com/mailman/listinfo/midrange-l
|   or email: MIDRANGE-L-request@xxxxxxxxxxxx
|   Before posting, please take a moment to review the archives
|   at http://archive.midrange.com/midrange-l.
|   
|   
|   

------------------------------------------------------------------------------
This e-mail transmission may contain information that is proprietary, 
privileged and/or confidential and is intended exclusively for the person(s) to 
whom it is addressed. Any use, copying, retention or disclosure by any person 
other than the intended recipient or the intended recipient's designees is 
strictly prohibited. If you are not the intended recipient or their designee, 
please notify the sender immediately by return e-mail and delete all copies. 
OppenheimerFunds may, at its sole discretion, monitor, review, retain and/or 
disclose the content of all email communications.
==============================================================================