假如咱们想查看装置了 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 源代码文件。