|
It appears that you cannot auth, since you do not set the &ALLOWOP field to a binary 1 to allow (when I have done it, it did not default to auth for me) As for allowing the user/password, that is option 0, which you are not invalidating - that should be ok. Mark -----Original Message----- From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On Behalf Of Frank W. Kany IV Sent: Wednesday, May 29, 2002 9:16 AM To: rpg400-l@midrange.com Subject: Re: PC to AS/400 FTP I don't know......Do I? ----- Original Message ----- From: "Bob Cozzi" <cozzi@rpgiv.com> To: <rpg400-l@midrange.com> Sent: Wednesday, May 29, 2002 10:02 AM Subject: RE: PC to AS/400 FTP > Just guessing here, but don't you also need to allow the USER and > PASSWORD commands in order to log on? > > Bob Cozzi > > > -----Original Message----- > > From: rpg400-l-admin@midrange.com > > [mailto:rpg400-l-admin@midrange.com] On Behalf Of Frank W. Kany IV > > Sent: Wednesday, May 29, 2002 7:19 AM > > To: RPG Mailing List; midrange-l@midrange.com > > Subject: Re: PC to AS/400 FTP > > > > > > I wrote a simple exit program for exit point > > "QIBM_QTMF_SVR_LOGON" that works. It controls who can signon > > through FTP in MS-DOS. > > > > Now I'm trying get an exit program for exit point > > "QIBM_QTMF_SERVER_REQ" to allow only certain FTP commands. > > However, when I add the exit program to the exit point, the > > FTP connection is refused by the AS/400. Anyone see > > something I'm missing from the program? Below are steps I > > have taken, the FTP session, and the CL source code for the > > exit program. > > > > 1) ENDTCPSVR *FTP > > 2) add exit program to QIBM_QTMF_SERVER_REQ > > 3) STRTCPSVR *FTP > > 4) Open MS-DOS, then try to sign into the AS/400 via FTP > > > > Below is what happens when I try to FTP into our AS/400: > > ========================== C:\WINDOWS>ftp 192.168.xxx.xx > > Connected to 192.168.xxx.xx. 421 Connection refused. > > Connection closed by remote host. > > > > C:\WINDOWS> > > ========================== > > > > Below is the CL program: > > ========================== > > PGM PARM(&APPIDIN &OPIDIN &USRPRF &IPADDRIN + > > &IPLENIN &OPINFOIN &OPLENIN &ALLOWOP) > > > > DCL VAR(&APPIDIN) TYPE(*CHAR) LEN(4) > > DCL VAR(&OPIDIN) TYPE(*CHAR) LEN(4) > > DCL VAR(&USRPRF) TYPE(*CHAR) LEN(10) > > DCL VAR(&IPADDRIN) TYPE(*CHAR) LEN(15) > > DCL VAR(&IPLENIN) TYPE(*CHAR) LEN(4) > > DCL VAR(&OPLENIN) TYPE(*CHAR) LEN(4) > > DCL VAR(&OPINFOIN) TYPE(*CHAR) LEN(9999) > > DCL VAR(&ALLOWOP) TYPE(*CHAR) LEN(4) > > > > DCL VAR(&APPID) TYPE(*DEC) LEN(1 0) > > DCL VAR(&OPID) TYPE(*DEC) LEN(1 0) > > DCL VAR(&IPLEN) TYPE(*DEC) LEN(5 0) > > DCL VAR(&IPADDR) TYPE(*CHAR) LEN(15) > > DCL VAR(&OPLEN) TYPE(*DEC) LEN(5 0) > > DCL VAR(&OPINFO) TYPE(*CHAR) LEN(9999) > > DCL VAR(&PATHNAME) TYPE(*CHAR) LEN(9999) > > > > DCL VAR(&ALLOW) TYPE(*DEC) LEN(1 0) VALUE(1) > > DCL VAR(&NOALLOW) TYPE(*DEC) LEN(1 0) VALUE(0) > > > > DCL VAR(&CASEREQ) TYPE(*CHAR) LEN(22) + > > VALUE(X'00000001000000000000000000000000000 + > > 000000000') > > DCL VAR(&ERROR) TYPE(*CHAR) LEN(4) + > > VALUE(X'00000000') > > > > CHGVAR VAR(&APPID) VALUE(%BINARY(&APPIDIN)) > > CHGVAR VAR(&OPID) VALUE(%BINARY(&OPIDIN)) > > CHGVAR VAR(&IPLEN) VALUE(%BINARY(&IPLENIN)) > > CHGVAR VAR(&IPADDR) VALUE(%SUBSTRING(&IPADDRIN 1 + > > &IPLEN)) > > CHGVAR VAR(&OPLEN) VALUE(%BINARY(&OPLENIN)) > > > > //*only allow "put" operation */ > > IF COND(&OPID = 1 *OR &OPID = 2 *OR &OPID = 3 + > > *OR &OPID = 4 *OR &OPID = 5 *OR &OPID = 7 + > > *OR &OPID = 8 *OR &OPID = 9) THEN(CHGVAR + > > VAR(%BINARY(&ALLOWOP)) VALUE(&NOALLOW)) > > > > RETURN > > > > ENDPGM > > ================================================= > > > > TIA, > > > > Frank > > > > ----- Original Message ----- > > From: "Frank W. Kany IV" <frank.kany@burr-reid.org> > > To: <rpg400-l-request@midrange.com>; <midrange-l@midrange.com> > > Sent: Tuesday, May 28, 2002 8:57 AM > > Subject: PC to AS/400 FTP > > > > > > > This is a multi-part message in MIME format. > > > -- > > > [ Picked text/plain from multipart/alternative ] > > > Thank you all for your suggestions about writing exit programs for > > > exit > > points using examples from books such as "Cool title about > > the AS/400 and the internet" and "Who knew you could do that > > with RPGIV". > > > > > > However, after a week of working on this, I am still have > > difficulties > > > in > > successfully implementing these exit programs. I have pasted > > some of the messages I get when I try to FTP into our AS/400. > > I have also pasted the CL program I found somewhere that I > > use to validate server logon. > > > > > > I'd like to add that the problem with being rejected from > > logging on > > > and > > sometimes even refused connection happens with all the exit > > programs I write not just this 1 little CL program. I > > duplicated every exit program that has been put in front of > > me and when I implement them my connection is refused or log > > on is rejected. > > > > > > I created the program in my library. Ran the command "WRKREGINF". > > Selected "QIBM_QTMF_SVR_LOGON" with an option "8". Added > > exit program "FTPLOGON" from my library. I wait a few > > minutes. Go to MS-DOS and below is the result: > > > ========================= > > > C:\WINDOWS>ftp 192.168.XXX.XX > > > Connected to 192.168.XXX.XX. > > > 220-QTCP at 192.168.XXX.XX. > > > 220 Connection will close if idle more than 5 minutes. > > > User (192.168.XXX.XX:(none)): frank > > > 331 Enter password. > > > Password: > > > 530 Log on attempt by user FRANK rejected. > > > Login failed. > > > ftp> quit > > > 221 QUIT subcommand received. > > > =============================== > > > > > > Source for the CL exit program: > > > ======================================== > > > PGM PARM(&APPIDIN &USRIN &USRLENIN &AUTIN + > > > &AUTLENIN &IPADDRIN &IPLENIN &RETCDOUT + > > > &USRPRFOUT &PASSWDOUT &CURLIBOUT) > > > > > > DCL VAR(&APPIDIN) TYPE(*CHAR) LEN(4) > > > DCL VAR(&USRIN) TYPE(*CHAR) LEN(999) > > > DCL VAR(&USRLENIN) TYPE(*CHAR) LEN(4) > > > DCL VAR(&AUTIN) TYPE(*CHAR) LEN(999) > > > DCL VAR(&AUTLENIN) TYPE(*CHAR) LEN(4) > > > DCL VAR(&IPADDRIN) TYPE(*CHAR) LEN(15) > > > DCL VAR(&IPLENIN) TYPE(*CHAR) LEN(4) > > > DCL VAR(&RETCDOUT) TYPE(*CHAR) LEN(4) > > > DCL VAR(&USRPRFOUT) TYPE(*CHAR) LEN(10) > > > DCL VAR(&PASSWDOUT) TYPE(*CHAR) LEN(10) > > > DCL VAR(&CURLIBOUT) TYPE(*CHAR) LEN(10) > > > 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) > > > > > > CHGVAR VAR(&APPID) VALUE(%BINARY(&APPIDIN)) > > > CHGVAR VAR(&USRLEN) VALUE(%BINARY(&USRLENIN)) > > > CHGVAR VAR(&AUTLEN) VALUE(%BINARY(&AUTLENIN)) > > > CHGVAR VAR(&IPLEN) VALUE(%BINARY(&IPLENIN)) > > > > > > CHGVAR VAR(&RETCDOUT) VALUE('1') > > > > > > IF COND(%SST(&USRIN 1 7) = 'FRANK36') + > > > THEN(CHGVAR VAR(&RETCDOUT) VALUE('0')) > > > > > > RETURN > > > > > > ENDPGM > > > ========================================= > > > > > > What I am missing or doing wrong? > > > > > > Frank > > > -- > > > > > > > > > _______________________________________________ > > > This is the Midrange Systems Technical Discussion > > (MIDRANGE-L) mailing > > list > > > To post a message email: MIDRANGE-L@midrange.com > > > To subscribe, unsubscribe, or change list options, > > > visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l > > > or email: MIDRANGE-L-request@midrange.com > > > Before posting, please take a moment to review the archives at > > > http://archive.midrange.com/midrange-l. > > > > > > > > > > > > _______________________________________________ > > 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. > > > > > > _______________________________________________ > 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. > _______________________________________________ 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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.