LOCAL lcAccounts, lnNumAccts, lnAcct LOCAL ARRAY laAcctList[1] lcAccounts = '100,1100,200,250,3000' lnNumAccts = ALINES(laAcctList, lcAccounts, 10, ",") && One line of code FOR lnAcct=1 TO lnNumAccts ? laAcctList[lnAcct] ENDFOR