× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.
>




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.