RE: Access control of FTP clients to AS/400

Thanks a lot for your help but we have new troubles.

The program we developed uses the code Gwiazdowski
Wojciech send us. Additionally it uses de user
identification in order to access a data base file and
decides which user is accepted and which one is
rejected, sending back the return code parameter (1 or
0).

This program is assigned to the exit point
QIBM_QTMF_SVR_LOGON format TCPL0100.

We work with V4R4.

We have two problems:

1. The system doesn't seem to work according with the
return code we are sending back. Some times works fine
and some times not.

2. Beside this, when we have being testing the system
for a while, the FTP services stopped and the FTP
client gets the message "the connexion was rejected"
not asking them for the user identification.
 It happens this way even without assigning the
program to the exit point.
We recover shutting down TCP/IP and starting it again.

Thanks a lot for your collaboration.

Ramon Garces


 --- Gwiazdowski Wojciech <gwiazdowski@mmi.pl>
escribió: > > -----Original Message-----
> > From: Ramón Garcés [mailto:ramon_garces@yahoo.es]
> > Sent: Tuesday, October 15, 2002 10:58 AM
> > To: RPG400-L@midrange.com
> > Subject: Access control of FTP clients to AS/400
> [....]
> > We have problems in understanding how to define
> the
> > variable length parameters used in the program we
> must
> > to develop in order to manage the exit point
> > QIBM_QTMF_SVR_LOGON.
> >
> > Can anyone help me to understand this, if possible
> > through a sample program.
>
> Ramon,
>
> if you want to use format TCPL0100, it's very
> simply. Bellow are few
> (most important) lines of source code.
>
> *----- Variable declaration
> D     #AppIdent       S       9B      0
> D     #UsrIdent       S       10A
> D     #UsrLen S       9B      0
> D     #AuthStr        S       10A
> D     #AuthStrLen     S       9B      0
> D     #IPAddr S       15A
> D     #IPAddrLen      S       9B      0
> D     #RtnCode        S       9B      0
> D     #UsrPrf S       10A
> D     #Password       S       10A
> D     #InitLib        S       10A
>
> C     *ENTRY  PLIST
> C     PARM    #AppIdent                       Input
> C     PARM    #UsrIdent                       Input
> C     PARM    #UsrLen                 Input
> C     PARM    #AuthStr                        Input
> C     PARM    #AuthStrLen                     Input
> C     PARM    #IPAddr                         Input
> C     PARM    #IPAddrLen                      Input
> C     PARM    #RtnCode                        Output
> C     PARM    #UsrPrf                         Output
> C     PARM    #Password                       Output
> C     PARM    #InitLib                                Output
>
> Hier is a place for your logic. This depends on you.
> After that you
> should set value #RtnCode. This value indicates
> whether the logon
> operation should be accepted or rejected. If it's
> nessesary you should
> set #UsrPrf, #Password, #InitLib.
>
> Example :
>
> C     EVAL    #RtnCode        =       0       (reject the logon
> operation)
>
> C     EVAL    #RtnCode        =       1       (continue the logon
> operation with the specified user identifier and
> authentication string)
>
> The valid values are : 0 - 6.
> Sorry for my English. J hope you can understend me.
>
> regards
>
> Wojciech Gwiazdowski
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries
> (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit:
> http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/rpg400-l.
>

_______________________________________________________________
Yahoo! Messenger
Nueva versión: Webcam, voz, y mucho más ¡Gratis!
Descárgalo ya desde http://messenger.yahoo.es