Look for data on IBM Reflections

Hey guys,

Just happened to come up on this site after doing some searches. I'm in need of some help.

i have a macro set up that'll log me in and then go to a screen, where there a bunch of numbers listed in a Column. What i need to do is have the program look through these numbers and see if they is a certain number such as 619 and then put an 's' next to do and then take the keystroke ENTER. So far what i have been doing is having it TAB over. So if i need to get the fifth entry, I just do TAB TAB TAB TAB TAB. but its usually in a different order every day, so what was the fifth number before might be the seventh.

I have very tiny bit of experience with coding (actually very very little). So is there a way to do? Use simple codes and explain precisely =) Please look at the Pic. I have to do this for several Numbers.

Here's the Code:

Code:

---

.WaitForEvent rcKbdEnabled, "30", "0", 1, 1
.WaitForEvent rcEnterPos, "30", "0", 2, 15
.WaitForDisplayString "===>", "30", 2, 10
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitANSI "s"
.TransmitTerminalKey rcIBMEnterKey

---

Thanks for your help

a) welcome! http://www.vbforums.com/

b) Does this use VBA or something? is IBM Reflections a terminal server app?

Yes i think it does. or its just VB. is that the same thing??? sorry for such a newbie question

and thanks for the welcome. =)

VBA is VB for Applications... like Word, Excel etc...

Never seen that before.. so Im afraid Im not going to be much help :(
hopefully someone here has IBM reflections and will be able to help.....

So no help on this? i think i sort of have it, but i just cant seem to make it stop on the number that i want.

here's the code. I tab over until the numbers start. and then i have Roc as string. So i'm looking for string " 197" but it doesn't stop at that number. am i doing something wrong? any help would be greatly appreciated.

VB Code:

Sub TT()
 
    With Session
        .WaitForEvent rcEnterPos, "30", "0", 2, 15
        .WaitForDisplayString "===>", "30", 2, 10
        .TransmitTerminalKey rcIBMTabKey
        .TransmitTerminalKey rcIBMTabKey
        .TransmitTerminalKey rcIBMTabKey
        Dim Roc As String       
             Do    ' Outer loop.
              TransmitTerminalKey rcIBMTabKey
             Loop Until Roc = "  197"    ' Exit
    End With
End Sub

How is the value of string Roc being set? Is the Roc name one that Reflections will automatically put the data into if it is defined? You might check the contents of Roc after each Tab operation, to see if it changes. If it doesn't, you need some way of getting the data you are checking into it.

You know what? i think you're actually right. I dont think its actually a string and doesn't store it like that. Dang. I guess its not really VB. I've tried using DisplayString which was used before by the macro in WaitForDisplayString..until it has to do something.

any other suggestions?

is there a Get statement or something similiar? I guess my program isn't reading the numbers...so i need something like "get number and then compare to a variable to see if it is the number i want..." its gotta be like that right?

Reflections should have a software development kit or a user interface or API that you can use to control the program. If you have or can get documentation on this, you should be able to find the command(s) necessary to retrieve text from the console window or from the Mainframe session directly. You should also be able to get support from wither IBM or Reflections.