09 Using CURSOR n PREPARE with FETCH into host DS

**FREE

dcl-s SzParm zoned(5:0);
dcl-s SQLStmt char(100) inz('Select * from FILEA where FIELDA=? and FIELDB>?');

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

dcl-pi *n;
       parm1 char(5);
       parm2 char(5);
end-pi;
     
szparm = %int(parm2)
exec sql Prepare s1 from :SQLStmt;
exec sql DECLARE C1 CURSOR FOR S1;
exec sql open c1 using :parm1, :szparm;
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;