RE: FTP from an RPG program

["Bartell, Aaron L. (TC)" <ALBartell@xxxxxxxxxxxxxx>]

>Er, sure.  why don't you just call the CL FTP command from RPG using one of
the command APIs?
That is what I am currently doing and it is not working.

Aaron Bartell


-----Original Message-----
From: Jim Langston [mailto:jlangston@celsinc.com]
Sent: Thursday, April 25, 2002 6:38 PM
To: 'rpg400-l@midrange.com'
Subject: RE: FTP from an RPG program


Er, sure.  why don't you just call the CL FTP command from RPG using one of
the command APIs?

Basically, just about *any*thing you can do in CL you can do in RPG using
QCMD or such.

Regards,

Jim Langston

-----Original Message-----
From: Bartell, Aaron L. (TC) [mailto:ALBartell@taylorcorp.com]

I know how to dynamically build an FTP script in an RPG program and then
execute that script from a CL program with the FTP CL command, but I am
wondering if I can do a QCMDEXC from within a RPG program and get the same
results?

I am basically trying to take all of the FTP processes out of the CL program
and put it into the RPG program for reasons I don't wish to take the time to
explain.

Here is what I am doing, but it doesn't seem to be executing the FTP
command.

         qCmdCmd = 'OVRDBF FILE(INPUT) TOFILE(QTEMP/QFTPSRC)
MBR(FTPSCRIPT)';
         exsr $qCmdExc;

         qCmdCmd = 'FTP RMTSYS(172.99.99.99)';
         exsr $qCmdExc;

       . . .

     C     $qCmdExc      BEGSR
     C                   call      'QCMDEXC'                            01
     C                   parm                    qCmdCmd
     C                   parm                    qCmdLen
     C                   ENDSR

note: Member FTPSCRIPT does have FTP commands in it to process.

Anybody got any suggestions,
Aaron Bartell
_______________________________________________
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.