<p>How do I iterate over a set of records in RPG(LE) with embedded SQL?</p>

Usually I'll create a cursor and fetch each record.
```
```
//***********************************************************************
   // Main - Main Processing Routine
   begsr Main;

     exsr BldSqlStmt;

     if OpenSqlCursor() = SQL_SUCCESS;

       dow FetchNextRow() = SQL_SUCCESS;
         exsr ProcessRow;
       enddo;

       if sqlStt = SQL_NO_MORE_ROWS;
         CloseSqlCursor();
       endif;

     endif;

     CloseSqlCursor();

   endsr;    // Main
```
```
I have added more detail to this answer
in a post on my website
.