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!