Re: FTP from an RPG program

--
--
[ Picked text/plain from multipart/alternative ]



It would be interesting to me to see what the LOG file says.

qCmdCmd = 'OVRDBF FILE(OUTPUT) TOFILE(notQTEMP/QFTPSRC)
MBR(FTPLOG)';
exsr $qCmdExc;

---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------

-------Original Message-------

From: rpg400-l@midrange.com
Date: Thursday, April 25, 2002 18:57:01
To: 'rpg400-l@midrange.com'
Subject: FTP from an RPG program

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.


.
--
[ Content of type image/gif deleted ]
--