【ABAP】游标
*"Native?SQL語句不能以句點號結(jié)尾;
*"不能在EXEC?SQL…ENDEXEC間有注釋,即不能有星號與雙引號的出現(xiàn);
*"參數(shù)占位符使用冒號,而不是問號;
DATA :?ARG1? TYPE?STRING? VALUE? '300' .
TABLES :?T001 .
"打開游標(biāo)
EXEC? SQL .
?? OPEN?c1? FOR? SELECT?MANDT ,?BUKRS? FROM?T001
?? WHERE?MANDT? =? :arg1? AND?BUKRS?>=? '1001'? and?bukrs?<=? '1999'
ENDEXEC .
"讀取游標(biāo)
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 .
"關(guān)閉游標(biāo)
EXEC? SQL .
?? CLOSE?c1
*"不能在EXEC?SQL…ENDEXEC間有注釋,即不能有星號與雙引號的出現(xiàn);
*"參數(shù)占位符使用冒號,而不是問號;
DATA :?ARG1? TYPE?STRING? VALUE? '300' .
TABLES :?T001 .
"打開游標(biāo)
EXEC? SQL .
?? OPEN?c1? FOR? SELECT?MANDT ,?BUKRS? FROM?T001
?? WHERE?MANDT? =? :arg1? AND?BUKRS?>=? '1001'? and?bukrs?<=? '1999'
ENDEXEC .
"讀取游標(biāo)
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 .
"關(guān)閉游標(biāo)
EXEC? SQL .
?? CLOSE?c1
ENDEXEC.
總結(jié)
- 上一篇: ABAP简介以及OpenSQL与Nati
- 下一篇: 采购定价过程字段解析