如何使用嵌入式sql迭代RPG(LE)中的一组记录？
解决方法
通常我会创建一个游标并获取每个记录.
//***********************************************************************
// 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
我在这个答案in a post on my website中添加了更多细节.
