When sending a file to the Mainframe using FTP, when the file gets to
the Mainframe It gets truncated from a 254 bytes file to 80 bytes.

Every 254 bytes record creates four 80 byte records on the output file.

I need help on how to set the attributes (LRECL) of the file to 254 in
my VB code.

This is a piece of the code that transfers the file.


Private Declare Function FtpPutFile Lib "wininet.dll" Alias
"FtpPutFileA" _
(ByVal hInet As Long, ByVal lpszLocalFile As String, ByVal
lpszNewRemoteFile As String, _
ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

'Open internet session
If ComboOpenFTP(HSESSION, HINTERNET, strservername) = False Then
GoTo Exit_Mfrm_Ftp
End If

'Sends the file to the mainframe
If FtpPutFile(HSESSION, strFilenameLocal, strFilenameServerIn, _
FTP_TRANSFER_TYPE_ASCII, lngContext) = False Then
MsgBox "Ftp Put Failed. Try again."
GoTo Exit_Put_FTP
End If




I appreciate your help!

Thanks,
Dalio H. Mercado