Unterschied RTVJOBA USER und CURUSER

[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