PasteContinue 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 the Mainframe Demo session

' on the CUST page.

 ' This example demonstrates the Paste method for Screen objects.

 ' Set MyScreen = Sess.Screen

 Set MyArea = MyScreen.Select(12, 10, 12, 80)

 MyScreen.Copy

 

MyScreen.MoveTo 20, 10

 MyScreen.Paste

 

 ' This example demonstrates the Paste method for Area objects.

 Set MyArea = MyScreen.Area(3, 10, 3, 30)

 MyArea.Select

 MyArea.PasteContinue

 

 Set MyArea = MyScreen.Area(14, 10, 14, 13)

 MyArea.Select

 MyArea.PasteContinue

End Sub