Example

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