Skip to main content

Hello

I’m new to BlueZone Mainframe and happened to discover the script features.
Now i’ve created some scripts to do some shortcuts with me, however when i tried to record a steps wherein i used a copy paste command and run the scripts. the copy paste was not recorded.

Is there anyone know what’s the code for have the scripts do a copy paste command?

here is the sample code from one of my scripts i created

Dim bzhao As Object

Sub Main

set bzhao = CreateObject(“BZWhll.WhllObj”)
bzhao.Connect “”

bzhao.SendKey “”
bzhao.WaitReady 10, 1

bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “sops”
bzhao.SendKey “”
bzhao.WaitReady 10, 1

End Sub

Hello

I’m new to BlueZone Mainframe and happened to discover the script features.
Now i’ve created some scripts to do some shortcuts with me, however when i tried to record a steps wherein i used a copy paste command and run the scripts. the copy paste was not recorded.

Is there anyone know what’s the code for have the scripts do a copy paste command?

here is the sample code from one of my scripts i created

Dim bzhao As Object

Sub Main

set bzhao = CreateObject(“BZWhll.WhllObj”)
bzhao.Connect “”

bzhao.SendKey “”
bzhao.WaitReady 10, 1

bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “”
bzhao.SendKey “sops”
bzhao.SendKey “”
bzhao.WaitReady 10, 1

End Sub

You can find all the v7 BlueZone Object methods, including Copy & Paste on this public library site:
https://www3.rocketsoftware.com/bluezone/help/v71/en/bzsh/bzaa/source/bzaa_aref_bz-object-methods.htm

e.g.
The following does a select all and copies to clipboard

bzhao.Copy 32

then

bzhao.Paste

will dump whatever is in the clipboard to the current cursor position.