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

Jerry Wang

发布于 2022-08-14 10:59:17

3360

发布于 2022-08-14 10:59:17

文章被收录于专栏：Jerry的SAP技术分享 Jerry的SAP技术分享Jerry的SAP技术分享

假设我们想查看安装了 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(<line>).



FIND REGEX '^.*\.c|^.*\.cpp|^.*\.h' IN <line>.

IF sy-subrc = 0.

WRITE: / <line> COLOR COL_NEGATIVE.

DATA(lv_line) = CONV char255( <line> ).

HIDE lv_line.

ELSE.

WRITE: / <line>.

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 里, 打印当前操作系统的进程明细: