Micro Focus QTP (UFT) Forums
Test Output Parameter - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Others (https://www.learnqtp.com/forums/Forum-UFT-QTP-Others)
+--- Thread: Test Output Parameter (/Thread-Test-Output-Parameter)



Test Output Parameter - Raja - 09-02-2009

Hi,
Ankur Could you please give a reply for my query below.

My test has one Input and one Output Parameter.
Test has one action and action has one Input and One Output parameter.

I set the following values for parameters

Code:
action1_InputParameter=Test1_Input Paramter.

Do some calculations. Then store the results in action1_OutPutParameter.

Then I stored the action1_OutPutParameter into Test1_OutPutParameter.

Code:
Test1_OutPutParameter=action1_OutPutParameter .

I called the test from an .vbs file by invoking QTP.
I tried to access the Test OutPut Parameter and I received only Blank Values.

Could you please let me know how to set & get value for a Test Output parameter.

thanks,
Raja


RE: Test Output Parameter - Saket - 09-03-2009

Hi Raja,

How are you retrieving the output paramater in the vbs?
It will help if you can paste a piece of statements here.

generally we need to create the parameter collection using Test.ParameterDefinitions
then get all the parameters
set a variable for your output parameter and you can get the output at the Run statement in vbs

let me know if you need more help on this.
here is a sample vbs in case you need
Code:
Set qtApp = CreateObject("QuickTest.Application")
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
qtApp.Launch
qtApp.Visible = True

qtResultsOpt.ResultsLocation = "D:\results"

qtApp.Open "C:\QTP\Script\Script1"

' parameters collection defined
Set pDefColl = qtApp.Test.ParameterDefinitions

Set rtParams = pDefColl.GetParameters()

'added parameters Run the script
qtApp.Test.Run qtResultsOpt, True, rtParams

'Extract the output Parameter
Set rtParam = rtParams.Item("OutputVal")

msgbox "OutputParam : " & rtParam.Value
hope this helps