Paste Method Example

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