VAR db_1 : INTEGER = opendb('database/customer.dat')
VAR db_2 : INTEGER = opendb('database/orders.dat')
VAR query : STRING = '$customer.KDNR=$orders.KDNR, $orders.date<=today-14'
VAR result : STRING[,]
VAR i,j : INTEGER
InitArray(result[maxlabel(db_1)+maxlabel(db_2),filesize(db_1)*filesize(db_2)]
SUB _query
nloop(i,maxlabel(db_1)-1,result[j,i]:=getfield(db_1,i+1))
nloop(i,maxlabel(db_2)-1,result[j,maxlabel(db_1)+i]:=getfield(db_2,i+1))
j++
ENDSUB
StrSort(result,j-1,0,'1,2')
|