显示企业用到的IMG

------------------------------------------------------------------**& Report  ZMYTEST009*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*REPORT  ZMYTEST009.Tables:TTREE,TTREET .Data :begin of ZTypeIMG ,         id like TTREE-ID,         text like TTREET-TEXT,       end of ZTypeIMG .Data:ZitabIMG like ZTypeIMG occurs 0 with header line,     ZLinIMG  like ZTypeIMG.Data: ZFLDNAME  like DD01L-DOMNAME,      ZFLDVALUE like TTREET-TEXT.*** Read IMG Strucutre IDRefresh ZitabIMG.select a~ID b~Text  into table  ZitabIMG  from TTREE as a  LEFT OUTER JOIN TTREET as b on a~ID = b~ID  and b~SPRAS = SY-LANGU  Where a~TYPE = 'IMG' .*** Write Struture ID to Screenuline at /1(79).Loop at ZitabIMG.  write :/1  '|',ZitabIMG-TEXT,'|'.  uline at /1(79).endloop.uline at /1(79).AT LINE-SELECTION.  clear:ZlinIMG,ZFLDNAME, ZFLDVALUE .  GET CURSOR FIELD ZFLDNAME VALUE ZFLDVALUE .  if ZFLDNAME = 'ZITABIMG-TEXT' .    Perform. EXEIMG .  endif.Form. EXEIMG.***Display IMG Structure  READ TABLE ZitabIMG into ZlinIMG WITH KEY TEXT = ZFLDVALUE.  CALL FUNCTION 'STREE_EXTERNAL_DISPLAY'       EXPORTING            STRUCTURE_ID = ZlinIMG-ID            LANGUAGE     = SY-LANGU.ENDFORM.