Sub Main
Dim Result As Integer
dim dp as long
dim inputstr as string
'Initially Recorded: 2004-11-4 17:25:34
'Script Name: test2
sqaconsoleclear
dim i as integer
for i= 1 to 10
dp=SQADatapoolOpen("userinfo", FALSE, SQA_DP_SEQUENTIAL , True)
Call SQADatapoolFetch(dp)
Call SQADatapoolValue(dp,1,inputstr)
sqaconsolewrite "the user name is :" & inputstr
call sqadatapoolfetch(dp)
Call SQADatapoolValue(dp,2,inputstr)
sqaconsolewrite "the password is :" & inputstr