Den Baustein hätt ich gern, haste auch den Namen?a-dead-trousers hat geschrieben:All zu viele LIMUs gibts ja zum Glück nicht.
Es gibt aber glaub ich einen eigenen Baustein (oder Klasse) der zwischen LIMU und R3TR "übersetzen" kann. Genauso wie zwischen TADIR und TRDIR (--> ====)
lg ADT
Code: Alles auswählen.
LOOP AT ct_objlist_e071 ASSIGNING <ls_objlist_e071>.
CASE <ls_objlist_e071>-pgmid.
WHEN 'R3TR'.
READ TABLE lt_tadir WITH KEY primary_key
COMPONENTS pgmid = 'R3TR'
object = <ls_objlist_e071>-object
obj_name = <ls_objlist_e071>-obj_name
ASSIGNING <ls_tadir>.
IF sy-subrc = 0.
<ls_objlist_e071>-devclass = <ls_tadir>-devclass.
ENDIF.
WHEN 'LIMU'.
CASE <ls_objlist_e071>-object.
WHEN 'FUNC'.
READ TABLE lt_tfdir WITH KEY primary_key
COMPONENTS funcname = <ls_objlist_e071>-obj_name
ASSIGNING <ls_tfdir>.
IF sy-subrc = 0.
<ls_tfdir>-pname = <ls_tfdir>-pname+9(*).
CONCATENATE '/COMPANY/' <ls_tfdir>-pname INTO <ls_tfdir>-pname.
READ TABLE lt_tadir WITH KEY primary_key
COMPONENTS pgmid = 'R3TR'
object = 'FUGR'
obj_name = <ls_tfdir>-pname
ASSIGNING <ls_tadir>.
IF sy-subrc = 0.
<ls_objlist_e071>-devclass = <ls_tadir>-devclass.
ENDIF.
ENDIF.
WHEN OTHERS.
"Andere Möglichkeit für Limu-Objekte deren Paket herauszufinden?
READ TABLE lt_tadir
WITH KEY pgmid = 'R3TR'
obj_name = <ls_objlist_e071>-obj_name
ASSIGNING <ls_tadir>.
IF sy-subrc = 0.
<ls_objlist_e071>-devclass = <ls_tadir>-devclass.
ENDIF.
ENDCASE.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
AlexeyB
Der Baustein passt, zeigt mir für LIMU-Objekte deren übergeordnete R3TR-Objekte an. Vielen Dank!a-dead-trousers hat geschrieben:[...]TR_CHECK_TYPE sollte laut Google auch sowas ähnliches können, hab ich mir aber nicht weiter angeschaut. [...]