07-11-2013, 02:12 AM
Hi Team
I am currently working on a mainframe application automation .I am facing a peculiar issue after my system OS was changed from Win XP to Win 7.Previously while on WinXp machine I used descriptive programming to fetch child objetcs from the mainframe screen using the below code:
Now basically the above code gets all the child objects from the mainframe screen which has "NEW" as the value of the text property.
Now the same code pops an error everytime I run it in the Win7 system.The error message is "QuickTest Professional has stopped working" : Windows can check online for a solution to the problem.
The mainframe configuration as a prequisite has already been done well ahead.CAn anyone let me know as to what exactly is the problem and why the code fails at the line
Kindly reply if anyone has faced such an issue.
I am currently working on a mainframe application automation .I am facing a peculiar issue after my system OS was changed from Win XP to Win 7.Previously while on WinXp machine I used descriptive programming to fetch child objetcs from the mainframe screen using the below code:
Code:
Set oDesc = Description.Create()
oDesc("micclass").Value = "TeField"
oDesc("text").Value = "NEW"
Set ElementCollect = TeWindow("TeWindow").TeScreen("Q2").ChildObjects(oDesc)
ElementCount = ElementCollect.Count()
If (ElementCount <> 0) Then
FieldCounter = 1
Msgbox FieldCounter
End If
Now the same code pops an error everytime I run it in the Win7 system.The error message is "QuickTest Professional has stopped working" : Windows can check online for a solution to the problem.
The mainframe configuration as a prequisite has already been done well ahead.CAn anyone let me know as to what exactly is the problem and why the code fails at the line
Code:
Set ElementCollect = TeWindow("TeWindow").TeScreen("Q2").ChildObjects(oDesc)