× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. MIDRANGE-L
  3. June 2005

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.