SAP ABAP中的游标用法

*"Native SQL语句不能以句点号结尾； *"不能在EXEC SQL…ENDEXEC间有注释，即不能有星号与双引号的出现； *"参数占位符使用冒号，而不是问号； DATA: ARG1 TYPE STRING VALUE '300'.

TABLES: T001.

"打开游标 EXEC SQL. OPEN c1 FOR SELECT MANDT, BUKRS FROM T001 WHERE MANDT = :arg1 AND BUKRS >= '1001' and bukrs <= '1999' ENDEXEC.

"读取游标 DO. EXEC SQL. FETCH NEXT c1 INTO :t001-mandt, :t001-bukrs ENDEXEC. IF SY-SUBRC <> 0. EXIT. ELSE. WRITE: / T001-MANDT, T001-BUKRS. ENDIF. ENDDO.

"关闭游标 EXEC SQL. CLOSE c1 ENDEXEC.