Automate Refreshing of CA-7 Queue while monitoring

Friday, May 11, 20120 comments



Here is a macro that you can run in your emulator, which runs the LQ command repeatedly in a loop to keep refreshing the CA7 queue monitor. Go to Macros, create a new macro with the following code.(Note I have used this one in Attachmate Reflection - IBM 3270 Terminal emulator.


Sub arefreshlq()
'
' Generated by the Reflection Macro Recorder on 08-27-2009  14:01:32.25
' Generated by Reflection for IBM for Windows 14.0.625
'
    Do While True
    With Session
        .TransmitANSI "LQ,SYS=*GRS2*"
        .TransmitTerminalKey rcIBMEraseEOFKey
        .TransmitTerminalKey rcIBMEnterKey
        .WaitForEvent rcEnterPos, "30", "0", 1, 1
        .Wait ("1")
        .WaitForEvent rcEnterPos, "30", "0", 1, 1
        .TransmitTerminalKey rcIBMEnterKey
        .Wait ("1")
        .WaitForEvent rcEnterPos, "30", "0", 1, 1
        .TransmitTerminalKey rcIBMEnterKey
        .Wait ("1")
        .WaitForEvent rcEnterPos, "30", "0", 1, 1
        .TransmitTerminalKey rcIBMEnterKey
        .Wait ("1")
        .WaitForEvent rcEnterPos, "30", "0", 1, 1
        .TransmitTerminalKey rcIBMEnterKey
        .Wait ("1")
        .WaitForEvent rcEnterPos, "30", "0", 1, 1
        .TransmitTerminalKey rcIBMEnterKey
        .Wait ("1")
        .WaitForEvent rcEnterPos, "30", "0", 1, 1
        .TransmitTerminalKey rcIBMEnterKey
        .Wait ("1")
    End With
Now Login to CA7 and Go to Macros and run this macro and the auto refreshing loop begins to monitor the CA7 queue.
Share this article :

Post a Comment

 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. Atom's Arena - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger