sql - 如何使用嵌入式 SQL 遍历 RPG(LE) 中的一组记录？

Question

如何使用嵌入式 SQL 遍历 RPG(LE) 中的一组记录？

Answer 1

通常我会创建一个游标并获取每条记录。

   //***********************************************************************
   // 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 

我在我的网站上的帖子中为这个答案添加了更多细节。

Answer 2

正如 Mike 所说，遍历游标是最好的解决方案。我会添加以提供更好的性能，您可能希望获取一个数组以分块处理而不是一次处理一条记录。

例子：

  EXEC SQL                                                          
  OPEN order_history;                                             

  // Set the length                                                 
  len = %elem(results);                                             

  // Loop through all the results                                   
  dow (SqlState = Sql_Success);                                     
    EXEC SQL                                                        
      FETCH FROM order_history FOR :len ROWS INTO :results;         
    if (SQLER3 <> *zeros);                                                 
      for i = 1 to SQLER3 by 1;        
        // Load the output             
        eval-corr output = results(i); 
        // Do something 
      endfor;                          
    endif;                             
  enddo;                               

HTH，詹姆斯·R·珀金斯