07 Using CURSOR and FETCH into host DS

**FREE

dcl-ds InRec extname(FILEA) end-ds;

exec sql declare c1 cursor for select * from FILEA;
exec sql open c1;
exec sql fetch c1 into :inrec;

dou sqlstt <> '00000';
   //  Do something with each record
   exec sql fetch c1 into :inrec;
enddo;

exec sql close c1;
*inlr=*on;