The following procedure, shows the commands for transferring a binary PC file (Avocado.doc) up to an IBM mainframe (file name: Avocado, file type: set), and then transferring the same file back down to the PC (as Avocado.new).
Sub TransferDemo ()
With Session
.IndSendFile "AVOCADO.DOC", "AVOCADO SET", rcXfrBinary, rcOverwrite, rcYes
.IndReceiveFile "AVOCADO.NEW", "AVOCADO SET", rcXfrBinary, rcOverwrite, rcYes
End With
End Sub