Wars nun leider doch nicht.

Ich habe beim Exit Point: QIBM_QTMF_SVR_LOGON TCPL0100

Prg:
FTPLOGON: PGM PARM(&APPIDIN &USRIN &USRLENIN &AUTIN +
&AUTLENIN &IPADRIN &IPLENIN &RETCDOUT +
&USRPRFOUT &PASSWDOUT &CURLIBOUT)

/*DECLARE INPUT PARAMETERS */

DCL &APPIDIN *CHAR 4 /* APPLICATION ID, BINARY NUM */
DCL &USRIN *CHAR 999 /* USER ID */
DCL &USRLENIN *CHAR 4 /* LEN OF USER ID, BINARY NUM */
DCL &AUTIN *CHAR 999 /* AUTENTICATION */
DCL &AUTLENIN *CHAR 4 /* LENGTH OF AUTH, BINARY NUM */
DCL &IPADRIN *CHAR 15 /* CLIENT IP ADRESS */
DCL &IPLENIN *CHAR 4 /* IPADDRESS LENGTH BINARY NUM */
DCL &RETCDOUT *CHAR 4 /* RETURN CODE (OUT) */
DCL &USRPRFOUT *CHAR 10 /* USER PROFILE (OUT) */
DCL &PASSWDOUT *CHAR 10 /* PASSWORD (OUT) */
DCL &CURLIBOUT *CHAR 10 /* CURRENT LIBRARY */

/*DECLARE LOCAL COPIES OF PAR */
DCL VAR(&APPID) TYPE(*DEC) LEN(1 0)
DCL VAR(&USRLEN) TYPE(*DEC) LEN(5 0)
DCL VAR(&AUTLEN) TYPE(*DEC) LEN(5 0)
DCL VAR(&IPLEN) TYPE(*DEC) LEN(5 0)

/*ASSIGN INPUT PARA. TO LOCAL COPIES */

CHGVAR VAR(&APPID) VALUE(%BINARY(&APPIDIN))
CHGVAR VAR(&USRLEN) VALUE(%BINARY(&USRLENIN))
CHGVAR VAR(&AUTLEN) VALUE(%BINARY(&AUTLENIN))
CHGVAR VAR(&IPLEN) VALUE(%BINARY(&IPLENIN))

/*ASSIGN INPUT PARA. TO LOCAL COPIES */



IF COND(%SST(&USRIN 1 &USRLEN) = 'TEST') THEN(DO)


OVRMSGF MSGF(QTCPMSGF) TOMSGF(TEST/FTPMSGF)
SNDPGMMSG MSGID(TCP120D) MSGF(QTCPMSGF) MSGDTA('TEST') +
TOPGMQ(*EXT) TOMSGQ(QUSRSYS/TEST)

CHGVAR VAR(%BINARY(&RETCDOUT)) VALUE(2)
CHGVAR VAR(&CURLIBOUT) VALUE('FTPDEFAULT')
CHGVAR VAR(&USRPRFOUT) VALUE('TEST')

GOTO CMDLBL(END)
ENDDO


END:
ENDPGM


Der Overwrite funktioniert ansich, da wenn ich danach ein SNDPGMMSG absetzte schickt er die richtige Nachricht.

Hast Du vielleicht noch einen Tip für mich?

lg
Michael