Re: FTPAPI question

On further review...as you have in your code...from FTPAPI_H...

*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
* FTP_NamFmt: Set the AS/400's Name Format (NAMEFMT) parm
*
* NOTE: This command is specific to the AS/400 FTP server
* and may not work on other systems.
*
* peSocket = socket number returned by FTP_conn
* peFormat = Name Fmt 0=MYLIB/MYFILE.MYMBR
* 1=/Filesys/MYLIB.LIB/MYFILE.FILE/MYMBR
*
* Returns -1 upon error, or 0 upon success
*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
D FTP_NamFmt PR 16P 0
D peSocket 10I 0 value
D peFormat 5I 0 value

So, since you're setting it correctly, does the file exist in whatever
your current directory is? File PDMEXT/M08 isn't qualified, so it will
check your current directory for that subdirectory and file. Do you
want /PDMEXT/M08 instead?

On Dec 12, 2007 7:58 AM, <Peter.Colpaert@xxxxxxxxx> wrote:

Hi group,

I'm in the middle of writing my first program using Scott's FTPAPI service
program.

For some reason I cannot seem to get it to work using LIB/FILE.MEMBER
format, but it does work when using /qsys.lib notation.

What could I be doing wrong? The communication is between 2 iSeries
servers, both at V5R3:

d connection s 10i 0 inz
d objnampr s 10a inz('M08')
d objlibpr s 10a inz('PDMEXT')
d objtyppr s 10a inz('*FILE')
d returnpr s n inz
d msg_locked s 80a inz('The reservation file is -
d locked, try again when it is -
d available')
d msg_error s 80a inz
d msg_Ok s 80a inz('The reservation file was -
d copied to the PDM zone')
d rc s 10i 0 inz
****** constanten
d c_host c '********'
d c_user c '********'
d c_pass c '********'
d c_remote c '/qsys.lib/MCSDTA.lib/M08.file'
d c_local c '/qsys.lib/PDMEXT.lib/M08.file'
** Program ds
/COPY qrpglecpy,DSSTATUS
****** Constanten
** prototypes
/copy qrpglecpy,prqc2le
/copy qrpglecpy,ftpapi_h
/copy qrpglecpy,prpdsyov05
/copy qrpglecpy,prpdsydt01

//**----------------------------------------------------------------***
//** parameter list *entry ***

//**----------------------------------------------------------------***

DPDIFPR33 PR

DPDIFPR33 PI

/free

Reset msg_locked;
Reset objnampr;
Reset objlibpr;
Reset objtyppr;
Reset returnpr;
Callp pdsyov05(objnampr:
objlibpr:
objtyppr:
returnpr);
If returnpr = *off;
Exsr GetFileFTP;
Else;
Callp pdsydt01(msg_locked);
EndIf;

*inlr = *on;
Return;

BegSr GetFileFTP;
connection = FTP_Conn(c_host:
c_user:
c_pass);
If connection < *zeros;
Callp pdsydt01(msg_error);
Else;
rc = FTP_NamFmt(connection:
1);
If rc < *zeros;
msg_error = FTP_Errormsg(connection);
Callp pdsydt01(msg_error);
Else;
rc = FTP_Sizereq(connection:
*off);
If rc < *zeros;
msg_error = FTP_Errormsg(connection);
Callp pdsydt01(msg_error);
Else;
rc = FTP_Logging(connection:
*on);
If rc < *zeros;
msg_error = FTP_Errormsg(connection);
Callp pdsydt01(msg_error);
Else;
rc = FTP_BinaryMode(connection:
*on);
If rc < *zeros;
msg_error = FTP_Errormsg(connection);
Callp pdsydt01(msg_error);
Else;
rc = FTP_get(connection:
c_remote:
c_local);
If rc < *zeros;
msg_error = FTP_Errormsg(connection);
Callp pdsydt01(msg_error);
Else;
callp pdsydt01(msg_ok);
EndIf;
EndIf;
EndIf;
EndIf;
EndIf;
rc = FTP_quit(connection);
EndIf;
EndSr;

If I do a call of FTP_NamFmt(connection:0) and use 'MCSDTA/M08' resp.
'PDMEXT/M08' for remote and local, the FTP_get returns an FTP_Errormsg
that says "No such path or directory."

Thanks,

Peter Colpaert
Application Developer
PLI - IT - Kontich, Belgium
-----
Yoda of Borg are we. Futile is resistance, assimilated will you be.
-----
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.