D3 and mvBase

CLEARSELECT
EXECUTE 'SELECT CONTROLE.LOG IF TIPO.DATA EQ "DATA"'
10
READNEXT CHAVE.DATA ELSE GO 5
....
GO 10

or
IDS.LIST = "A]V]R]T
FILENAME = "FILEONE"
ATR.LIST = "A1]A3]A5   ;* OR CAN BE THE DICT NAME/IF ATR.LIST EQ "" THEN WILL LIST THE DEFAULT DICTS FROM THE FILE
cmd = 'LIST ':FILENAME:' ':SWAP(IDS.LIST,@VM," ") 
IF ATR.LIST NE "" THEN
CMD := CMD:' ':SWAP(ATR.LIST,@VM," ") 
END
EXECUTE CMD CAPTURING MENSAGEN RETURNING ERRO
NUM.RESULTS = DCOUNT(MENSAGEN,@AM)
FOR LL = 1 TO NUM.RESULTS
CRT MENSAGEM<LL>
NEXT LL

The array variable, string, is treated as an active list by assigning it to the list variable, list.

string = '1001':char(254):'1002':char(254):'1003'
select string to list
eol=0
loop
   readnext ID from list else exit
   print ID:" exists"
repeat

THIS IS A FUNCTION DEMO 

_{1 OPEN "SGVAR036" TO SGVAR036
2 EXECUTE 'SELECT SGVAR036 IF A0 EQ "E]"'
3 SELECT SGVAR036 TO LIST
4 LOOP
5 READNEXT CHAVE36 FROM LIST ELSE EXIT
6 PRINT CHAVE36
7REPEAT
8 STOP}


line 1 open the file
line 2 execute the select with aql
line 3 use the basic select to get the result from line 2 and set to a variable in this case list but can be anithing
line 4 starts the loop
line 5 use the readnext to get the next item id from the list you just create and when get to the end it exits the loop
line 6 print the item id
line 7 repeat the loop
line 8 stops the program

open 'mvdemo,customers,' to f.cust else stop 201,'customers'
*
slist=1:@am:2:@am:3:@am:4:@am:5
*
dlist=""
select slist to clist
loop
   readnext id from clist else exit
   read cust from f.cust,id
   dlist<-1>=id:@vm:cust<1>
repeat
*
* now can we sort dlist by customer name?
print dlist
*
nlist = \"\: swap(slist, @am, \" "\) :\"\
execute \sselect mvdemo,customers, \: nlist :\ by organizationname\
execute \list mvdemo,customers, customerid organizationname id-supp\​

file = 'mvdemo,customers,'
open file to f.cust else stop 201, file
*
slist="1 2 3 4 5"
*
verb = 'select ': file: ' by a1 ': slist ;* Assuming a1 is the customer name
execute verb capturing text
if system(11) = 0 then crt 'No items on file'; stop
*
loop
   readnext id else exit
   read cust from f.cust,id else cust = ''
   crt cust<1>
repeat
*
​

HTH

open 'mvdemo,customers,' to f.cust else stop 201,'customers'*slist=1:@am:2:@am:3:@am:4:@am:5*dlist=""select slist to clistloop   readnext id from clist else exit   read cust from f.cust,id   dlist<-1>=id:@vm:cust<1>repeat** now can we sort dlist by customer name?print dlist*nlist = \"\: swap(slist, @am, \" "\) :\"\execute \sselect mvdemo,customers, \: nlist :\ by organizationname\execute \list mvdemo,customers, customerid organizationname id-supp\​

values = 'md,with,by,bp'
values = convert(values,',',@am)
select values to mylist 
execute 'select md with a1 = "c]" by a0' passlist mylist rtnlist newlist 
loop 
   readnext k from newlist else exit 
   crt k 
while 1 do repeat 
​