A datapool is a test dataset that supplies data variables

in a test script during playback. Using datapools allows

you to run multiple iterations of a script using different

data each time.

Sub Main

Dim Result As Integer -> Header file

'Initially Recorded: 9/22/01 12:45:07 PM

'Script Name: Classics Place an Order Datapool

Dim x As Integer 'variable for loop

Dim dp As Long 'variable for datapool

Dim quantity, expdate As String 'variables for fields

dp=SQADatapoolOpen("Order CD") -> Open the Data Pool

For x = 1 to 10 -> Start of loop

Call SQADatapoolFetch(dp) ->fetch a row from the data pool

Window SetContext, "Name=frmMain", ""

PushButton Click, "Name=cmdOrder"

'Result = WindowVP

(CompareProperties, "Name=frmOrder", "VP=Object Properties

1")

Window SetContext, "Name=frmOrder", ""

EditBox Click, "Name=txtQuantity", "Coords=84,8"

'Quantity data

Call SQADatapoolValue(dp,1,quantity)

InputKeys "{HOME}+{END}{DELETE}” &quantity

EditBox Click, "Name=txtCreditCard", "Coords=9,6"

InputKeys "{HOME}+{END}{DELETE}1234 1234 1234 1234"

EditBox Click, "Name=txtExpirationDate", "Coords=14,11"

'Expiration date data

Call SQADatapoolValue(dp,2,expdate)

InputKeys "{HOME}+{END}{DELETE}"&expdate

Result = ComboBoxVP

(CompareData, "Name=comboCardType", "VP=Object Data 1")

PushButton Click, "Name=cmdOrder"

Window SetContext, "Name=frmConfirm", ""

PushButton Click, "Name=cmdOK"

Next x

Call SQADatapoolClose(dp)

End Sub