RE: Net Server userid disabled -- MIDRANGE-L

Hi Elvis,

      Yup, that did it.  Thanks for all the help!

Cheers!
<*BobL*>

|   -----Original Message-----
|   From: midrange-l-bounces@xxxxxxxxxxxx
|   [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Elvis Budimlic
|   Sent: Wednesday, July 06, 2005 12:30 PM
|   To: 'Midrange Systems Technical Discussion'
|   Subject: RE: Net Server userid disabled
|   
|   
|   Bob, 
|   I think problem is with the request length parm.  It should 
|   be 'E' for 14,
|   not 'D'.
|   Here is my take on your program:
|   
|   PGM (&USER)                                                 
|                
|   DCL (&USER) TYPE(*CHAR) LEN(10)                             
|                
|   DCL VAR(&FULL) TYPE(*CHAR) LEN(14) 
|   VALUE(X'0000000140404040404040404040')
|   CHGVAR %SST(&FULL 5 10) &USER                               
|                
|   CALL QSYS/QZLSCHSI PARM(&FULL X'0000000E' ZLSS0200 
|   X'00000000')          
|   ENDPGM                                                      
|                
|   
|   I'd still write a *CMD wrapper with a single *NAME len(10) parm.
|   
|   Elvis
|   
|   -----Original Message-----
|   Subject: RE: Net Server userid disabled
|   
|   Hi Elvis,
|   
|        Good Idea.  I've written a CL to do this (re-enable a 
|   single user), but
|   it doesn't seem to work.  I call it like this: "CALL BOBL/REENABLE
|   PARM(SPKKH)".  I'm running it under a QSECOFR id, so 
|   authority should (!) be
|   good.  Any idea what I'm doing wrong?  Here's the source:
|   
|   --------------------snip----------------
|   
|    Columns . . . :    1  71           Browse
|   BOBL/QCLSRC 
|    SEU==>
|   REENABLE 
|    FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 
|   ...+... 6 ...+...
|   7  
|           *************** Beginning of data
|   ************************************* 
|   0001.00       PGM (&USER)
|   
|   0002.00       DCL (&USER) TYPE(*CHAR) LEN(10)
|   
|   0003.00       DCL VAR(&N) TYPE(*CHAR) LEN(4) VALUE(X'00000001')
|   
|   0004.00       DCL VAR(&SIZE) TYPE(*CHAR) LEN(4) VALUE(X'0000000D')
|   
|   0005.00       DCL VAR(&FULL) TYPE(*CHAR) LEN(14)
|   
|   0006.00       CHGVAR &FULL (&N *CAT &USER)
|   
|   0007.00    CALL QSYS/QZLSCHSI PARM(&FULL &SIZE ZLSS0200 X'00000000')
|   
|   0008.00      ENDPGM
|   
|           ****************** End of data
|   **************************************** 
|   
|   -------------------------snip---------------
|   
|   
|        As you can probably tell, CL programming is not one of 
|   my strong
|   points.  Any ideas?
|   
|   Thanks!
|   
|   
|   
|   -- 
|   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.
==============================================================================