SendKeys Problem

[adamone]

I am trying to automate data entry to our Mainframe. I can access the Mainframe via Extra! Personal Client version 6.4.
I am using Excel VBA to access Extra! - I am hoping to update a couple of hundred products using this method.

The following code partly works? Only a couple of lines are displayed on the screen, with the rest being blank!

'***
Set objxtraSys = CreateObject("EXTRA.System&quot

'Assumes an open session
Set objxtraSess = objxtraSys.ActiveSession
Set objxtraScreen = objxtraSess.Screen

'Go to required screen
objxtraScreen.SendKeys (&quot;<Home>MSES<Pf24><Home>&quot

'Fields to be entered
strGates = &quot;<Home><Tab><Tab><Tab><Tab><Tab>&quot;
strGates = strGates & &quot;NAAWHLOMB&quot;
strGates = strGates & &quot;<Down><BackTab><BackTab><BackTab>&quot;
strGates = strGates & &quot;NBBMMLOMB&quot;
strGates = strGates & &quot;<Down><BackTab><BackTab><BackTab>&quot;
strGates = strGates & &quot;NIEXPLOMB&quot;
strGates = strGates & &quot;<Down><BackTab><BackTab><BackTab>&quot;
strGates = strGates & &quot;NKKMMLOMB&quot;
strGates = strGates & &quot;<Down><BackTab><BackTab><BackTab>&quot;
strGates = strGates & &quot;NNNCLLOMB&quot;
strGates = strGates & &quot;<Down><BackTab><BackTab><BackTab>&quot;
strGates = strGates & &quot;NRSBCLOMB<Home>&quot;

'Send to Extra!
objxtraScreen.SendKeys (strGates)

'***

 

[calculus]

Have you considered using the sendString method as opposed to sending all those keystrokes?

Also, check the help files for 6.4. It was not an object oriented language. This may be causing you some problem as well.

From some old code:
rc% = SendString(23,15,&quot;PCICS34&quot
SendHostKeys(&quot;@E&quot

calculus

 

[adamone]

SendString is not supported in EXTRA!Personal Client 6.4. However, PutString is supported and works fine - thanks for the tip!