FTP Welcome

[Michael_Wien]

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

[Fuerchau]

Der OVRMSGF enthält leider keinen OVRSCOPE, so dass dieser wohl nicht für den Job gesetzt werden kann, also nach Programmende wieder verschwindet.

Ausserdem arbeitet FTP ggf. mit mehreren Threads und der OVRMSGF gilt nur für den Hauptthread.

Anscheinend gibts da keine direkte Lösung.

[Michael_Wien]

Ok, trotzdem danke für die Mühe

lg