RE: TESTPUT

["Shannon ODonnell" <sodonnell@xxxxxxxxxxxxxxxxx>]

Sender: "Shannon ODonnell" <sodonnell@xxxxxxxxxxxxxxxxx>

It must be that I have some garbage on my input parms that I'm not seeing
under debug.  I'll keep playing with it.

If I know it works (and it obviously does) then I'll figure out eventually
what I'm doing wrong.

Thanks! 


Shannon O'Donnell

 


-----Original Message-----
From: owner-ftpapi@xxxxxxxxxxxxx [mailto:owner-ftpapi@xxxxxxxxxxxxx] On
Behalf Of Scott Klement
Sent: Thursday, January 20, 2005 2:02 PM
To: ftpapi@xxxxxxxxxxxxx
Subject: RE: TESTPUT

Sender: Scott Klement <sk@xxxxxxxxxxxxxxxx>

Hi Shannon,

> The first one does not work, and the second one does.
> RPath1  and  CPath1 are both 256 A.
>
> Very curious.
>
> 0 c                   if        ftp_put(sess:
> 0 C                             '/QSYS.LIB/SOCKETS.LIB/WORKFILE1.FILE':
> 0 C                             '/QSYS.LIB/SOCKETS.LIB/WORKFILE1.FILE')

I'm trying to duplicate the problem.  Unfortunately, I have access to only
one iSeries machine, so I have to try sending the file to LOCALHOST to try
to reproduce the problem.

So I created a library called SOCKETS, and I create a file called
WORKFILE1 in that library.  I then attempted to send it to a file called
WORKFILE2 using FTP to LOCALHOST.

Everything worked for me.  It did not matter if I used variables or not. 
The only thing that was kinda weird was that the record length and external
definition was not reproduced -- but that's to be expected. (You have to
send a savf if you want them reproduced)

Here's the code I used to test (FTPAPI v2.0):

      H BNDDIR('LIBFTP/FTPAPI') DFTACTGRP(*NO) ACTGRP(*NEW)

       /COPY LIBFTP/FTPAPISRC,FTPAPI_H                   .

      D Msg             S             52A
      D sess            S             10I 0
      D RPath1          s            256A
      D CPath1          s            256A

      C     *ENTRY        PLIST
      c                   PARM                    Server           32
      c                   PARM                    UserID           32
      c                   PARM                    Password         32

      c                   eval      sess = ftp_conn( Server
      c                                            : UserID
      c                                            : Password )
      c                   if        sess < 0
      c                   eval      Msg = ftp_errorMsg(0)
      c                   dsply                   Msg
      c                   eval      *inlr = *on
      c                   return
      c                   endif

      c                   eval      RPath1 = '/QSYS.LIB/SOCKETS.LIB/'
      c                                    + 'WORKFILE2.FILE'

      c                   eval      CPath1 = '/QSYS.LIB/SOCKETS.LIB/'
      c                                    + 'WORKFILE1.FILE'

      c                   callp     ftp_binaryMode(sess: *on)
       /if defined(USEVAR)
      c                   if        ftp_put(sess
      c                                    : RPath1
      c                                    : CPath1 ) < 0
       /else
      c                   if        ftp_put(sess
      c                                    : '/QSYS.LIB/SOCKETS.LIB/'
      c                                          + 'WORKFILE2.FILE'
      c                                    : '/QSYS.LIB/SOCKETS.LIB/'
      c                                          + 'WORKFILE1.FILE') < 0
       /endif
      c                   eval      Msg = ftp_errorMsg(sess)
      c                   dsply                   Msg
      c                   endif

      c                   callp     ftp_quit(sess)
      c                   eval      *inlr = *on
      c                   return

-----------------------------------------------------------------------
This is the FTPAPI mailing list.  To unsubsribe from the list send mail to
majordomo@xxxxxxxxxxxxx with the body: unsubscribe ftpapi mymailaddr
-----------------------------------------------------------------------



-----------------------------------------------------------------------
This is the FTPAPI mailing list.  To unsubsribe from the list send mail
to majordomo@xxxxxxxxxxxxx with the body: unsubscribe ftpapi mymailaddr
-----------------------------------------------------------------------