範例: 在使用 SQL 的 RPG/400 應用程式中內嵌 SQL 陳述式

線上編輯

在 RPG/400® 程式中編碼的 UPDATE 陳述式可能如下列範例所示編碼。

*...1....+....2....+....3....+....4....+....5....+....6....+....7...*
C/EXEC SQL UPDATE DEPARTMENT
C+           SET MANAGER = :MGRNUM
C+           WHERE DEPTNO = :INTDEP
C/END-EXEC