Using the InfoConnect API for scripted file transfers increases error handling, flexibility and security. You can use the mainframe file transfer provided with InfoConnect to transfer files. If your host has an FTP server, you can optionally transfer files with Secure File Transfer Protocol (SFTP).

Transferring Files with FTP

Transferring Files with InfoConnect Mainframe File Transfer

Transferring Files with FTP

This sample transfers a file from a local directory to the host, using SFTP and SSH. The sample assumes that a passphraseless key is used for authentication.

 To run this sample

1. Open an IBM session in InfoConnect and then, from the Tools menu, open the Visual Basic Editor.
2. Select the Common project folder, and then select Insert | Module to insert a module in the Common project.
3. Copy the following code into the module code window.

   Perform FTP File Transfer

   Copy Code

   Sub TransferFileWithFTP() Dim ftp As Object Set ftp = CreateObject("Reflection.FTP") With ftp .UseSSH = True .UseSFTP = True 'open connection with host name and user name .Open "hostname", "guest" If .LastError <> 0 Then MsgBox .LastErrorString End If 'Send file from local directory to mainframe .SendFile "C:\junk\test.txt", "./test.txt" If .LastError <> 0 Then MsgBox .LastErrorString End If End With End Sub

   
   
4. Replace the placeholders for the host name and user name and then press F5 to run the sample.

Transferring Files with InfoConnect Mainframe File Transfer

This sample uses the InfoConnect mainframe file transfer feature to send a file to an IBM 3270 system with a TSO operating environment.

To run this sample

1. Open an IBM session in InfoConnect and then, from the Tools menu, open the Visual Basic Editor.
2. Select the session project folder, and then select Insert | Module to insert a module into the project.
3. Copy the following code into the module's code window.       

   Perform mainframe file transfer

   Copy Code

   'This sample sends a file to the host. Before you run the sample, make sure the cursor is on a TSO command line. Sub FileTransferSendSample() path = Environ$("USERPROFILE") & "\Documents\Micro Focus\InfoConnect\" & "test.txt" 'Set the 3270 operating environment to TSO ThisIbmTerminal.FileTransfer.XfrHostSys = HostSystem_Tso ThisIbmTerminal.FileTransfer.INDSendFile path, "fileNameOnHost.txt", INDFileTransferType_Ascii, FileExistsOption_Overwrite, True End Sub

   
   
4. Replace the placeholders for the local and host file names and save the session.
5. Back in InfoConnect, navigate to a TSO command line and run the sample.

Concepts

To fully automate a TSO file transfer, you could set up the macro to navigate to the screen with the TSO command line and place the cursor on the line (see Navigating Through Open Systems Sessions and Controlling Macro Execution.