Search code examples
sqlibm-midrangedb2-400rpgle

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

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

Solution

  • 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.