Rational TestSuite Question:

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