FTPAPI - CCSID

[Jan Grove Vejlstrup <jgv@xxxxxxxx>]

   Hello
   I'm using FTPAPI to upload a file to a server, also an IBM i. The file
   on the client has CCSID 1252 und the resulting file on the server has
   CCSID 819.
   I've attached the little program.
   I don't see, why the resulting file has CCSID 819. Can you help me?
   Best regards
   Jan
   ______________________________________________________
   Jan Grove Vejlstrup
   WEMAG Consulting AG
   Bernstrasse 99, Postfach
   CH-3122 Kehrsatz
   Tel.: + 41 31 960 36 36
   Fax: + 41 31 960 36 37
   Mail: [1]jgv@xxxxxxxx

References

   1. mailto:jgv@xxxxxxxx

     H DFTACTGRP(*NO) ACTGRP(*new) BNDDIR('FTPAPI')
     
      /COPY FTPAPI_H                   

     D Msg             S             52A
     D sess            S             10I 0

      /free
          //  connect to FTP server.  If an error occurs,
          //  display an error message and exit.

               sess = ftp_conn('192.168.80.12':
                      'xyz':
                      'xxxyyyzzz');
               if sess < 0;
                 Msg = ftp_errorMsg(0);
                 dsply Msg;
                 *inlr = *on;
                 return;
               endif;

               ftp_binaryMode(sess: *on);
               if ftp_put(sess: '/tmp/test36pgm.txt'
                        : '/jgvtmp/test36pgm.txt')<0;
                  Msg = ftp_errorMsg(sess);
                  dsply Msg;
                endif;

                ftp_quit(sess);
                *inlr = *on;
                return;
      /end-free

-----------------------------------------------------------------------
This is the FTPAPI mailing list.  To unsubscribe, please go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------