Unterschied RTVJOBA USER und CURUSER

[ExAzubi]

Hallo zusammen,

nur um meine Neugier zu befriedigen, wollte ich mal fragen, was der Unterschied im RTVJOBA zwischen USER und CURUSER ist?

Wenn ich diese in einem Interaktiven Job Abfrage, kein Unterschied. Lasse ich den Job unter einem anderen Benutzer laufen, auch kein Unterschied zwischen den beiden Werten. Jetzt frage ich mich, ein überbleibsel vergangener Tage oder was kann man damit machen?

Danke

Viele Grüße

David

[Logic IT-Services]

Hi David

Ich gebe Dir ein Beispiel innerhalb der DS in einem RPG-Programm:

254-263 = Job-User
358-367 = Current User

Im Fall von Webanwendungen steht im Job-User "QTMHHTTP" und im Current-User das effektive User-Profil.

Das gleiche macht der RTVJOBA.

Zur Verifizierung noch: (Birgitta hat das auch schon mal gefragt)
Dies kommt vor allem in prestarted Jobs zum tragen, wenn diese Jobs mit bestimmten Profilen gestartet werden, jedoch später von anderen Usern belegt werden.

[Fuerchau]

Es gibt viele Möglichkeiten den CURUSER zu ändern.
Der USER ist immer aus dem Namen des Jobs abgeleitet.
Per SQL kann ich mich aber mit Connect "ummelden".
Dies passiert z.B. auch bei ODBC-Job's (QZDASOINIT), die immer unter dem USER QUSER laufen, SQL sich aber mit dem Anmeldeuser als CURUSER einträgt.

Mittels der API's QSYGETPH und QWTSETP kann man sich auch zur Laufzeit unter einem anderen Profil bewegen, was dann den CURUSER ändert.

[Pikachu]

Die beiden Werte unterscheiden sich erst, wenn man den Benutzer innerhalb des Jobs wechselt.

Zum Beispiel so:

PGM                                                      
DCL        VAR(&USER)      TYPE(*CHAR) LEN(10)           
DCL        VAR(&CURUSER)   TYPE(*CHAR) LEN(10)           
DCL        VAR(&NEWUSER)   TYPE(*CHAR) LEN(10)           
DCL        VAR(&NEWHANDLE) TYPE(*CHAR) LEN(12)           
DCL        VAR(&OLDHANDLE) TYPE(*CHAR) LEN(12)           
MONMSG     MSGID(CPF0000)                                
                                                         
CHGVAR     VAR(&NEWUSER) VALUE(QSYSOPR)                  
CALL       PGM(QSYGETPH) PARM(*CURRENT *NOPWD &OLDHANDLE)
CALL       PGM(QSYGETPH) PARM(&NEWUSER *NOPWD &NEWHANDLE)
CALL       PGM(QWTSETP)  PARM(&NEWHANDLE)                
                                                         
RTVJOBA    USER(&USER) CURUSER(&CURUSER)                 
SNDPGMMSG  MSGID(CPF9897) MSGF(QCPFMSG) MSGDTA(&USER +   
                                      *BCAT &CURUSER)    
CALL       PGM(QWTSETP)  PARM(&OLDHANDLE)                
CALL       PGM(QSYRLSPH) PARM(&NEWHANDLE)                
CALL       PGM(QSYRLSPH) PARM(&OLDHANDLE)                
ENDPGM