_FTP_... functions use codepage (zOS) (solved)

[Xenobiologist]

Thanks to all. It was that easy

#include <FTPEx.au3>
#include <MsgBoxConstants.au3>

Local $sServer = 'etet' ; zOS MVS System (IBM)
Local $sUsername = @UserName
Local $sPass = 'xxx'
Local $path_Tempfile = @TempDir & '\tempBankinfo.txt'
Local $path_DatenTXT = 'c:\Autoit\GAD\bank21-Reporting-Manager\Initialization\DATEN.TXT'

Local $hOpen = _FTP_Open('MyFTP Control')
Local $hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sPass, 0, 21, $INTERNET_SERVICE_FTP, $INTERNET_FLAG_TRANSFER_ASCII)
If @error Then
    MsgBox($MB_SYSTEMMODAL, '_FTP_Connect', 'ERROR=' & @error)
Else
    ConsoleWrite(_FTP_Command($hConn, 'site sbd=(IBM-273,iso8859-1)', $INTERNET_FLAG_TRANSFER_ASCII) & @CRLF)
    ConsoleWrite(_FTP_FileGet($hConn, "'SRV.DWS.TEMP.BNKINFOD'", @ScriptDir & '\Daten1.txt', False, 0, $INTERNET_FLAG_TRANSFER_ASCII) & @CRLF)
EndIf
Local $iFtpc = _FTP_Close($hConn)
Local $iFtpo = _FTP_Close($hOpen)

This works perfectly with umlauts and so on.

Mega

[jchd]

So there are extensions to handle that kind of things, oh well water is passing under the bridge more frequently than I use FTP.

But then you could even request Unicode for maximum compatibility with AutoIt, if at all possible.

[mLipok]

  On 8/11/2016 at 4:15 PM, Xenobiologist said:

quote site sbd=(IBM-273,iso8859-1)

Expand  

Did you read this:
https://forum.filezilla-project.org/viewtopic.php?t=5564
https://forum.filezilla-project.org/viewtopic.php?f=1&t=2056
?

Can you try to connect and download this particular file with WinSCP ?
If this will work for you I think this wolud be a good reason to try, possibly modifying my "WinSCP Example":

 

Edited August 11, 2016 by mLipok
URL to WinSCP UDF

[Xenobiologist]

With WinSCP it is even not possible to navigate through the filesystem correctly. (OMVS OS390)

My coworkers told me I should use BlueZone FTP instead.

Right now, I need a special task to install BlueZone FTP.

Maybe I'll try that next week.

 

[mLipok]

 WinSCP.