Re: QUSER Problem

[Scott Klement <pctech@xxxxxxxxxxxxxxxx>]

Your code is wrong.  It should look like this:

  RTVJOBA CURUSER(&USERID)

The "USER" parameter is the user component of the jobid.  So if the 
jobid is 123456/QUSER/FOO  then USER will be QUSER.   Server jobs (and 
these days, lots of other jobs) will be started before they know what 
the userid is.  So the job name will reflect the user who started the 
job, rather than the currently active user profile.

Therefore, you need RTVJOBA CURUSER() to get the current user, and not 
RTVJOBA USER() which gets the user component of the job id.

-SK


DLee@xxxxxxxx wrote:
> I'm developing an application to retreive iSeries data thru a stored 
> procedure 
> and return a result set back to the c# program that called the stored 
> procedure.
>
> I have debug set to program SETCLRLIB on the iSeries which is called to 
> set the correct library list based on the company code, and userid.
>
> When I call the C# program I get a signon screen where I sign in as user 
> CRPRDQUA, and my password.
> CRPRDQUA is the testing user signon, any thing else is considered a 
> production signon, so you can see that QUSER coming in there could be
> a real problem for me.
>
> When the c# program executes, it calls a stored procedure, which calls 
> program SETCLRLIB to set the library list.
>
> I'm expecting the userid I retreive in the below program to be CRPRDQUA, 
> and it turns out to be QUSER. 
> I'm guessing QUSER is something picked up thru the network.  Being a 
> iSeries programmer,  I don't normally deal with remote environments, 
> so it boggles me when I signon on as CRPRDQUA and later see QUSER.
>
> Can someone explain how I can get my correct signon passed to my program, 
> so I can determine the correct userid, so I can correctly set the library 
> list.
>
> Below is program SETCLRLIB
>
> Appreciate your help.
>
>             PGM        PARM(&COCD)   (with company code and user id I can 
> determine a library list) 
>             DCL        VAR(&COCD) TYPE(*CHAR) LEN(2)  
>             DCL        VAR(&TSTFLG) TYPE(*CHAR) LEN(2)  
>             DCL        VAR(&USERID) TYPE(*CHAR) LEN(10)  
>             RTVJOBA    USER(&USERID)  
>   
> *-----------------------------------------------------------------*/  
> * If testing from SQL SCRIPT user defaults to QUSER               */  
> *-----------------------------------------------------------------*/  
>             IF         COND(&USERID *EQ 'QUSER') THEN(DO)             I 
> added this code while testing, but
>             CHGVAR     VAR(&USERID) VALUE('CRPRDQUA') this will eventually 
> be taken out once 
>             ENDDO                                                      the 
> quser issue is resolved 
> *-----------------------------------------------------------------*/  
> * Clear library list */  
> *-----------------------------------------------------------------*/  
>             IF         COND(&USERID *NE 'CRPRDQUA') THEN(DO)  
>                CHGLIBL    LIBL(*NONE) CURLIB(CRPRDLIB) This would actually 
> be the correct logic 
>             ENDDO from here down. 
>             IF         COND(&USERID *EQ 'CRPRDQUA') THEN(DO)  
>                CHGLIBL    LIBL(*NONE) CURLIB(CRPRDLIBTS)  
>             ENDDO  
>   
> *-----------------------------------------------------------------*/  
> * SET UP LIBRARY LIST PROGRAM                                     */  
> *-----------------------------------------------------------------*/  
>             CALL       PGM(SETCMP1) PARM(&COCD)  
> *-----------------------------------------------------------------*/  
>             CHGCURLIB  CURLIB(*CRTDFT)  
>             DSPLIBL    OUTPUT(*PRINT)  
> *-----------------------------------------------------------------*/  
>             ENDPGM   
>
> Sincerely,
>
> Darrell Lee
> Programmer/Analyst
>
> SWBC
> 9311 San Pedro Ave., Suite 600
> San Antonio, TX 78216
> (210) 321-7127 - Direct
>
>  Visit our website at www.swbc.com