In the examples in section Linking to a CICS server program using Visual Basic a Flow object was used with the default synchronization type of cclSync. When this Flow object was used as the first parameter on Connect.Link, a synchronous link call was made to CICS®. The Visual Basic program was then blocked until the reply was received from CICS. When the link call returned the reply from CICS was immediately available in the Buffer object.
Sub ECIDsync_Click()
Set Connect = New CclOConn
Set Flow = New CclOFlow
Set Buffer = New CclOBuf
Connect.Details "CICSNAME", "sysad", "sysad"
Flow.SetSyncType cclDSync
Buffer.SetString "Hello"
Connect.Link Flow, "ECIWTO", Buffer, UOW
End Sub
Sub ECIReply_Click() If Flow.Poll(Buffer) Then Text1.Text = Buffer.String Else Text1.Text = "No reply from CICS yet" End If End Sub