FMYFILE IF E DISK D myDS E DS EXTNAME(MYFILE) D fldArray LIKE(FLD1) DIM(3) D OVERLAY(myDs) C READ MYFILE C FOR i = 1 to %ELEM(fldArray) C* ... process ...
確定! 回上一頁