*"不能在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.