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

REPORT Z_DEV_ENV_DEMO.INCLUDE Z_DEV_CROSS_REF1.PARAMETERS : p_pgmid     TYPE e071-pgmid DEFAULT 'R3TR',           p_object    TYPE e071-object DEFAULT 'PROG',           p_objnam  TYPE e071-obj_name DEFAULT 'BCALV_EDIT_08',           p_regen AS CHECKBOX DEFAULT 'X'.START-OF-SELECTION.  IF p_object = 'PROG' AND p_regen = 'X'.    SUBMIT saprseui          WITH repname = p_objnam          AND RETURN.  ENDIF.  DATA ls_object     TYPE lcl_dev_cross_ref=>type_s_e071_objkey.  DATA lt_subobject  TYPE lcl_dev_cross_ref=>type_t_e071_key.  FIELD-SYMBOLS 
   
     TYPE lcl_dev_cross_ref=>type_s_e071_objkey.  DATA lt_e071_key TYPE lcl_dev_cross_ref=>type_t_e071_rel.  FIELD-SYMBOLS 
    
      TYPE lcl_dev_cross_ref=>type_s_e071_rel.  ls_object-pgmid = p_pgmid.  ls_object-object = p_object.  ls_object-obj_name = p_objnam.* List of subobjects of the requested object  CALL METHOD lcl_dev_cross_ref=>get_subobj    EXPORTING      is_object    = ls_object    IMPORTING      et_subobject = lt_subobject.  LOOP AT lt_subobject ASSIGNING 
     
      .    WRITE : / 
      
       -pgmid, 
       
        -object, 
        
         -obj_name. ENDLOOP. ULINE.* List of objects used by the requested object CALL METHOD lcl_dev_cross_ref=>get_reqobj EXPORTING is_e071_key = ls_object IMPORTING et_e071_key = lt_e071_key. LOOP AT lt_e071_key ASSIGNING 
         
          . WRITE : / 
          
           -subobject-pgmid, 
           
            -subobject-object, 
            
             -subobject-obj_name. ENDLOOP.
            
           
          
         
        
       
      
     
    
   

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

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