用ABAP代碼調用Netweaver裡的where used list功能

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

     is_e071_key = ls_object

     et_e071_key = lt_e071_key.

 LOOP AT lt_e071_key ASSIGNING .

   WRITE : / -subobject-pgmid, -subobject-object,

         -subobject-obj_name.