关于abap:使用-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(<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 里, 打印以后操作系统的过程明细:

对于 CALL 的语法,能够查看 SAP 官网帮忙文档。

CALL 关键字个别用于 SAP 零碎外部的实现，不可能将其用于 SAP ABAP 利用开发中去。CALL 会调用零碎函数 cfunc，能够为 cfunc 指定蕴含函数名的数据对象，这个数据对象必须是一个 Flat 的 Character like 类型。

该函数必须在sapactab.h文件中输出。批改一个函数或创立一个新函数须要从新编译和链接ABAP内核。因而须要可能拜访 C 源代码文件。