DROP PROCEDURE test1();

Create DBA Procedure "informix".test1() returning integer;
  define ftest, fr, ft, tt integer;
  let ftest =  10020 ;
  let ft =  0 ;
  
  foreach
     select pserno into tt
       from test_table
      where  pserno > ftest  
     let ft = ft +  1 ;

     let ftest =  1000000 ;

     return tt with resume;
  end foreach;
End Procedure;


DROP PROCEDURE test2();

Create DBA Procedure "informix".test2() returning integer;

  define ftest, fr, ft integer;

  let ftest =  1 ;
  let ft =  0 ;

  foreach
     select  1  into fr
       from test_table
      where  ftest =  1   

     let ft = ft + fr;
     let ftest =  2 ;
  end foreach;

return ft;
End Procedure;

execute procedure test1();
execute procedure test2();