This example selects a host from the SSCP screen of a DEMO3270.EDP session.
Sub Main()
Dim Sys As Object, Sess As Object, MyScreen As Object
Dim MyArea As Object
Set Sys = CreateObject("EXTRA.System")
' Assumes an open session
Set Sess = Sys.ActiveSession
' This example is meant to be run from a DEMO3270 session.
' This example demonstrates the Paste method for Screen objects.
Set MyScreen = Sess.Screen
MyScreen.Select 7,10,7,10
MyScreen.Copy
MyScreen.Select 23,6,23,6
MyScreen.Paste
' This example demonstrates the Paste method for Area objects.
Set MyArea = MyScreen.Area(9,10,9,10,,3)
MyArea.Select
MyArea.Copy
Set MyArea = MyScreen.Area(23,6,23,6,,3)
MyArea.Select
MyArea.Paste
End Sub