SNDNETF ohne Directory Eintrag des Absenders

[harkne]

Ich habe den Benutzer des aktuellen Jobs geändert.

Falls es jemand interessiert hier das CL

0001.00 PGM 
0002.00 
0003.00 DCL VAR(&HNDLORGUSR) TYPE(*CHAR) LEN(12) 
0004.00 DCL VAR(&USER) TYPE(*CHAR) LEN(10) 
0005.00 DCL VAR(&HNDLSNDUSR) TYPE(*CHAR) LEN(12) 
0006.00 
0006.01 /* Aktuellen Benutzer ermitteln */
0007.00 RTVJOBA USER(&USER) 
0008.00 
0008.01 /* Handle für aktuellen Benutzer ermitteln */
0009.00 CALL PGM(QSYGETPH) PARM(&USER '*NOPWD' + 
0010.00 &HNDLORGUSR) 
0011.00 
0011.01 /* Switchen auf den User der im Systemverteilerverzeichnis eingetragen ist */
0012.00 CALL PGM(QSYGETPH) PARM('SNDNETFUSR' '*NOPWD' + 
0013.00 &HNDLSNDUSR) 
0014.00 CALL PGM(QWTSETP) PARM(&HNDLSNDUSR) 
0015.00 CALL PGM(QSYRLSPH) PARM(&HNDLSNDUSR) 
0016.00 
0016.01 /* Datei senden */
0017.00 SNDNETF FILE(MYLIB/QCLSRC) TOUSRID((SNDNETFUSR + 
0018.00 EDV)) MBR(MYMBR) 
0019.00 
0019.01 /* Zurück switchen auf ursprünglichen User */
0020.00 CALL PGM(QWTSETP) PARM(&HNDLORGUSR) 
0021.00 CALL PGM(QSYRLSPH) PARM(&HNDLORGUSR) 
0022.00 
0023.00 
0024.00 ENDPGM