ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 显示企业用到的IMG

显示企业用到的IMG

原创 Linux操作系统 作者:shangchongtian 时间:2009-01-13 12:32:22 0 删除 编辑
 
------------------------------------------------------------------*
*& 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 ID
Refresh 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 Screen
uline 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.

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/9633129/viewspace-536597/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 内表写入EXCEL
下一篇: 动态生成ABAP程序
请登录后发表评论 登录
全部评论

注册时间:2009-01-13

  • 博文量
    18
  • 访问量
    31450