Micro Focus QTP (UFT) Forums

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:

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 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

Code:
Set ElementCollect = TeWindow("TeWindow").TeScreen("Q2").ChildObjects(oDesc)

Kindly reply if anyone has faced such an issue.

Please ensure to include your code between [code] tags while asking or replying to questions. I have done this for you for this time.

Please check if UAC is off or not.

because of the qtp 10 does not support windows 7 you have to install patch for that. Due to that it may be crashing during runtime and it is not the problem with script

vidhu

Staff

Ankur

vinod123