CSR EXSR01 BEGSR C/EXEC SQL C+ DECLARE C1 CURSOR FOR C+ SELECT DBFIELD1, DBFIELD2, DBFIELD3 C+ FROM DBFILE C+ WHERE (DBFIELD1 = :RPGFIELD) C+ ORDER BY DBFIELD1, C+ CASE C+ WHEN DBFILE.DBFIELD3 = ‘DEF’ THEN SMALLINT(10) C+ WHEN DBFILE.DBFIELD3 = ‘ABC’ THEN SMALLINT(20) C+ WHEN DBFILE.DBFIELD3 = ‘A01’ THEN SMALLINT(30) C+ WHEN DBFILE.DBFIELD3 = ‘153’ THEN SMALLINT(40) C+ ELSE SMALLINT(99) C+ END DESC C/END-EXEC C/EXEC SQL C+ OPEN C1 C/END-EXEC C DOU SQLCODE <> *ZEROS C/EXEC SQL C+ FETCH C1 INTO :RPGFLDSTRUCT C/END-EXEC C IF SQLCODE = 100 /free exec sql CLOSE C1 ; *INLR = *ON ; /end-free C LEAVESR . . . *exit loop . . . DO SOMETHING C ENDDO C ENDSR
-
Recent Posts
Recent Comments
Archives
Categories
Meta