ABAP/4中可以利用SQL语法创建或读取TABLE,SQL语法分为DDL(DATA DEFINE LANGUAGE)语言和DML(DATA MULTIPULATION LANGUAGE)语言,DDL语言是指数据定义语言,例如CREATE等, DML语言是数据操作语言,例如SELECT, INSERT等语句。SQL语句有OPEN SQL语句和NATIVE SQL语句。 OPEN SQL语句不是标准SQL语句,是ABAP/4语言,利用OPEN S...
4.12.2. 存储过程 EXEC SQL. EXECUTE PROCEDUREproc1 ( IN : x, OUT : y, INOUT : z ) ENDEXEC . 4.12.3. 游标 DATA : arg1 TYPE string VALUE '800' . TABLES : t001 . EXEC SQL . OPENc1FORSELECT MANDT , BUKRS FROM T001 " 打开游标 WHERE MANDT = : arg1 AND BUKRS >= 'ZA01' ENDE...
EXEC SQL. SELECT CLIENT, ARG1 INTO :F1, :F2 FROM AVERI_CLNT WHERE ARG2 = :F3 ENDEXEC PERFORMING 的使用: 如果NATIVE SQL的SELECT命令执行结果是抓到多笔记录,我们想要逐笔记录处理时,就用PERFORMING参数,这个FORM能被逐次调用.如果想中止调用,就用EXIT FORM SQL结束调用. 例如: DATA: F1(3), F2(3)...
EXEC SQL. SELECT CLIENT, ARG1 INTO :F1, :F2 FROM AVERI_CLNT WHERE ARG2 = :F3 ENDEXEC PERFORMING 的使用: 如果NATIVE SQL的SELECT命令执行结果是抓到多笔记录,我们想要逐笔记录处理时,就用PERFORMING参数,这个FORM能被逐次调用.如果想中止调用,就用EXIT FORM SQL结束调用. 例如: DATA: F1(3), F2(3)...
21、NDFUNCTION ENDIF ENDLOOP ENDMODULE ENDON ENDPROVIDE ENDSELECT ENDWHILEEXEC SQL: EXEC SQL PERFORMING form ENDEXEC*-EXIT: EXIT EXIT FROM SQL EXIT FROM STEP-LOOP*-EXPORT: EXPORT objn1 . objn2 TO MEMORY FROM v1 . ID key1 EXPORT objn1 . objn2 TO DATABASE etab3(ar4) ID key5 FROM...
ENDEXEC. 举例一. EXEC SQL. CREATE TABLE AVERI_CLNT ( CLIENT CHAR(3) NOT NULL, ARG1 CHAR(3) NOT NULL, ARG2 CHAR(3) NOT NULL, FUNCTION CHAR(10) NOT NULL, PRIMARY KEY (CLIENT, ARG1, ARG2) ) ENDEXEC. 举例二. DATA: F1(3), F2(3), F3(3). ...
ABAP 三种操作数据库的方法 OPEN SQL, EXEC SQL, ADBC OPEN SQL这里就不多说了,可以执行大部分DML语句,但是却不支持DDL,DCL,UNIT,也没办法执行数据内嵌的函数。 EXEC SQL 和 ADBC 是所谓的Native SQL,这种方式直接进入指定数据库,不涉及到DBI,这样就没有table buffer。
EXEC SQL…END EXEC必须封装一个NATIVE SQL语句,NATIVE SQL操作的表不需要再ABAP DICTIONARY中声明。NATIVE SQL的语法与数据库是相关的。Native SQL可以执行的DDL:CREATE (TABLE,VIEW,INDEX), DROP (TABLE,VIEW,INDEX),ALTER (TABLE VIEW INDEX),GRANT,REVOKE。可以执行的DML:SELECT INSERT UPDATE DELETE DECLARE ...
ENDEXEC ENDFORM ENDFUNCTION ENDIF ENDLOOP ENDMODULE ENDON ENDPROVIDE ENDSELECT ENDWHILE EXEC SQL: EXEC SQL PERFORMING form ENDEXEC *--- EXIT: EXIT EXIT FROM SQL EXIT FROM STEP-LOOP *--- EXPORT: EXPORT objn1 ... objn2 TO MEMORY FROM v1 ... ID key1 EXPORT objn1 .....
PERFORM editor_sql. *动态生成程序执行 ELSEIF sy-ucomm = 'EXEC' OR sy-ucomm = 'EDEX'. REFRESH itab_prog. CLEAR itab_prog. IF update_flag = 'X'. PERFORM exec_modify. ENDIF. ENDIF. *&---* *& Form editor_sql *&---* FORM editor_sql. * CALL Editor CALL FUNCTION 'EDITOR_APP...