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

REPORT zrfc.PARAMETERS: user TYPE sy-uname DEFAULT sy-uname OBLIGATORY.TYPES: BEGIN OF ty_data,         rfcdest TYPE rfcdes-rfcdest,         rfctype TYPE rfcdes-rfctype,         rfcdoc1 TYPE rfcdoc-rfcdoc1,       END OF ty_data.DATA: lt_rfc_attr TYPE STANDARD TABLE OF rfcattrib-rfcdest,      lt_rfc      TYPE STANDARD TABLE OF ty_data.START-OF-SELECTION.  SELECT rfcdest INTO TABLE lt_rfc_attr FROM rfcattrib WHERE cuname = user OR muname = user.  IF sy-subrc <> 0.    WRITE: / 'No RFC found for user: ' , user COLOR COL_POSITIVE.    RETURN.  ENDIF.  SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_rfc FROM rfcdes AS a INNER JOIN rfcdoc AS b    ON a~rfcdest = b~rfcdest FOR ALL ENTRIES IN lt_rfc_attr     WHERE a~rfcdest = lt_rfc_attr-table_line.  LOOP AT lt_rfc ASSIGNING FIELD-SYMBOL(
   
    ).    WRITE: / 
    
     -rfcdest COLOR COL_NEGATIVE, 'Type: ', 
     
      -rfctype COLOR COL_TOTAL,         
      
       -rfcdoc1 COLOR COL_GROUP.  ENDLOOP.
      
     
    
   

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

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