使用 ABAP 编程语言的 System CALL 接口，直接执行 ABAP 服务器所在操作系统的 shell 命令

使用 ABAP 编程语言的 System CALL 接口，直接执行 ABAP 服务器所在操作系统的 shell 命令

假设我们想查看安装了 ABAP 应用服务器的 Linux 系统某个文件目录下的明细，如果直接登录 Linux Shell，使用 ls -l 命令即可。

比如：ls -l //bas/CGC5/src/krn/abap/runt

其实我们可以使用 ABAP 提供的 CALL 关键字，直接在 ABAP 应用层，发起对操作系统 shell 命令行的调用。后者的执行结果，返回给 ABAP 层，这样 ABAP 应用开发人员就能在此基础上进行一些处理，开发一些工具。

我写了一个简单的 ABAP 报表来包装这个 CALL 关键字的调用：

REPORT zlinux.PARAMETERS: command TYPE string LOWER CASE DEFAULT 'ls -l //bas/CGC5/src/krn/abap/runt'.DATA: commtext(120) ,itab(255) OCCURS 10 WITH HEADER LINE,lv_folder TYPE string.

START-OF-SELECTION.

PERFORM init.CALL 'SYSTEM' ID 'COMMAND' FIELD commtext ID 'TAB' FIELD itab[].LOOP AT itab ASSIGNING FIELD-SYMBOL().

FIND REGEX '^.*\.c|^.*\.cpp|^.*\.h' IN . IF sy-subrc = 0. WRITE: / COLOR COL_NEGATIVE. DATA(lv_line) = CONV char255( ). HIDE lv_line. ELSE. WRITE: / . ENDIF.

ENDLOOP.

AT LINE-SELECTION.PERFORM display_source.

FORM display_source.SPLIT lv_line AT space INTO TABLE DATA(lt_file).DATA(index) = lines( lt_file ).DATA(lv_file_name) = lv_folder && '/' && lt_file[ index ].DATA(lv_op) = |cat { lv_file_name } |.SUBMIT zlinux WITH command EQ lv_op.ENDFORM.

FORM init.commtext = command.SPLIT commtext AT space INTO TABLE DATA(lt_table).CHECK lines( lt_table ) = 3.lv_folder = lt_table[ 3 ].ENDFORM.

执行之后，可以指定待执行的 Linux 命令，比如 pwd，这是 Linux 里打印当前工作路径的命令行，即 Print Working Directory 的含义。

结果为 /usr/sap/AG3/DVEBMGS54/work

执行 ps -aux, 即可在 ABAP 里, 打印当前操作系统的进程明细:

关于 CALL 的语法,可以查看 SAP 官方帮助文档。

CALL 关键字一般用于 SAP 系统内部的实现，不能够将其用于 SAP ABAP 应用开发中去。CALL 会调用系统函数 cfunc，可以为 cfunc 指定包含函数名的数据对象，这个数据对象必须是一个 Flat 的 Character like 类型。

该函数必须在sapactab.h文件中输入。修改一个函数或创建一个新函数需要重新编译和链接ABAP内核。因此需要能够访问 C 源代码文件。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。