本文共 1823 字，大约阅读时间需要 6 分钟。

*&---------------------------------------------------------------------**& Report  ZFUN*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*REPORT ZFUN.PARAMETERS: command TYPE string LOWER CASE.DATA: commtext(120) ,      itab(255) OCCURS 10 WITH HEADER LINE.commtext = command.CALL 'SYSTEM' ID 'COMMAND' FIELD commtext ID 'TAB' FIELD itab[].LOOP AT itab.  WRITE itab.ENDLOOP.* enhanced 2017-12-7*&---------------------------------------------------------------------**& Report ZLINUX*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*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.
       
      
     
    
   

要获取更多Jerry的原创文章，请关注公众号"汪子熙":

转载地址：https://jerry.blog.csdn.net/article/details/103967085 如侵犯您的版权，请留言回复原文章的地址，我们会给您删除此文章，给您带来不便请您谅解！