Automate Refreshing of CA-7 Queue while monitoring

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.