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