FTP exit program problem

[Manfred Gang]

Hello,

we are trying to control access to our AS/400 via ftp. We have written
an exit program similar to the examples from the IBM tutorials and
connected it with the exit point QIBM_QTMF_SVR_LOGON. There is no exit
program for the exit point QIBM_QTMF_SERVER_REQ yet so there is only
one program active for FTP.

Unfortunately our logon requests are always rejected, no matter what
option we give back with the return parameter.

Is there any point we forgot or did we make a mistake?

We are using V4R4.

Thanks.

Manfred

[Steve]

manfred...@bayer-ag.de (Manfred Gang) wrote in message news:<51cee12f.01071...@posting.google.com>...

Manfred -

Do you have exit point format TCPL0200 for exit point
QIBM_QTMF_SVR_LOGON?

If so, did you add the exit program to TCPL0200 or TCPL0100? (Mine
uses TCPL0100 but you could've written your program to either one.)

If not, enter the command

CALL PGM(QTCP/QTMFEXIT) PARM('*INSTALL ')

Please note that there are 2 (required) blanks after *INSTALL and
before the
final single quote and *INSTALL must be in caps. This will create the
TCPL0200 exit point format. Cycle your FTP server and try again after
this operation.

HTH,

Steve

[Walter]

> Unfortunately our logon requests are always rejected, no matter what
> option we give back with the return parameter.

I see two possible reasons:
1) wrong exit point. There may be two or even more of them:
QIBM_QTMF_SVR_LOGON TCPL0100
QIBM_QTMF_SVR_LOGON TCPL0200
Use the first one. The second one has more parameters, incl. home directory
or so.

2) Wrong parameter description in exit CL. I use these and it works:
0002.00 PGM PARM(&FTPREXIN &USERIN &USRLENIN &PASSWDIN +
0003.00 &PASSLENIN &IPADRIN &IPLENIN &RETCODOUT +
0004.00 &USEROUT &PASSWDOUT &CURLIBOUT)
0005.00 /* PARAMETER */
0006.00 DCL VAR(&FTPREXIN) TYPE(*CHAR) LEN(4) /* 1=FTP
2=REXEC*/
0007.00 DCL VAR(&USERIN) TYPE(*CHAR) LEN(999)/* USER ID
*/
0008.00 DCL VAR(&USRLENIN) TYPE(*CHAR) LEN(4) /* LEN USER
ID*/
0009.00 DCL VAR(&PASSWDIN) TYPE(*CHAR) LEN(999)/* PASSWORD
*/
0010.00 DCL VAR(&PASSLENIN) TYPE(*CHAR) LEN(4) /* LEN
PASSWOR*/
0011.00 DCL VAR(&IPADRIN) TYPE(*CHAR) LEN(15) /* IP-ADDRESS
PC*/
0012.00 DCL VAR(&IPLENIN) TYPE(*CHAR) LEN(4) /* LEN
IP-ADDRE*/
0013.00 DCL VAR(&RETCODOUT) TYPE(*CHAR) LEN(4) /* 0=NO, 1=OK,
... */
0014.00 DCL VAR(&USEROUT) TYPE(*CHAR) LEN(10) /* AS/400 USER
*/
0015.00 DCL VAR(&PASSWDOUT) TYPE(*CHAR) LEN(10) /* AS/400
PASSWO*/
0016.00 DCL VAR(&CURLIBOUT) TYPE(*CHAR) LEN(10) /* AS/400
CURLIB*/
CHGVAR VAR(%BINARY(&RETCODOUT)) VALUE(1)

Walter

[Peter Brouwers]

Hi,
Take a look at http://www.easy400.ibm.it/easy400p/downloads.cgi
Here you find the SECTCP tool witch source!!

Peter Brouwers.

"Manfred Gang" <manfred...@bayer-ag.de> wrote in message
news:51cee12f.01071...@posting.google.com...