D MYDS E DS EXTFILE(MYFILE)
D MYIND S 10I 0 DIM(nn) <= NN=Anzahl der Felder

declare cursor mycursor for
select * from myfile

open mycursor

fetch mycursor into :MYDS :MYIND

MYIND(1) = 1. Indicator
MYIND(n) = letzter