DATA:
BEGIN OF str_cr,
requestid TYPE trkorr,
END OF str_cr.
DATA:
l_cr TYPE trkorr.
DATA:
i_requestlist LIKE TABLE OF str_cr WITH HEADER LINE.
DATA:
BEGIN OF str_object,
requestid TYPE trkorr , " 请求/任务
taskid TYPE trkorr , " 请求/任务
as4pos TYPE ddposition , " 字典:行项
pgmid TYPE pgmid , " 请求和任务中的程序标识
object TYPE trobjtype , " 对象类型
obj_name TYPE trobj_name , " 对象清单中的对象名
objfunc TYPE objfunc , " 对象功能
lockflag TYPE lockflag , " 对象条目的锁定状态或输入状态
gennum TYPE trgennum , " 传输组织器中对象条目的语种信息
lang TYPE spras , " 语言代码
activity TYPE tractivity , "
as4text TYPE as4text , " 描述 R/3 资源库对象的短文本
text TYPE ddtext , " 说明简要文字
END OF str_object.
DATA:
o_devobjlist LIKE TABLE OF str_object WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:
s_cr FOR l_cr NO INTERVALS. "CR号
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
LOOP AT s_cr.
i_requestlist-requestid = s_cr-low.
APPEND i_requestlist.
ENDLOOP.
DATA: li_e070 TYPE STANDARD TABLE OF e070 WITH KEY trkorr WITH HEADER LINE,
li_e071 TYPE STANDARD TABLE OF e071 WITH KEY trkorr as4pos WITH HEADER LINE,
li_e07t TYPE STANDARD TABLE OF e07t WITH KEY trkorr WITH HEADER LINE,
lt_object_table TYPE STANDARD TABLE OF ko100 WITH KEY pgmid object WITH HEADER LINE.
DATA: li_requestlist_rec TYPE STANDARD TABLE OF zbs00s_requestlist WITH HEADER LINE,
li_devobjlist TYPE STANDARD TABLE OF zbs00s_devobjlist WITH KEY requestid taskid as4pos WITH HEADER LINE,
li_devobjlist_rec TYPE STANDARD TABLE OF zbs00s_devobjlist WITH KEY requestid taskid as4pos.
DATA: l_trkorr_rec TYPE trkorr,
l_tempstr TYPE string.
CHECK i_requestlist[] IS NOT INITIAL.
SORT i_requestlist BY requestid ASCENDING.
DELETE ADJACENT DUPLICATES FROM i_requestlist COMPARING ALL FIELDS.
CALL FUNCTION 'TR_OBJECT_TABLE'
TABLES
wt_object_text = lt_object_table.
SELECT *
FROM e070
INTO TABLE li_e070
WHERE trkorr IN s_cr OR strkorr IN s_cr.
SELECT *
FROM e07t
INTO TABLE li_e07t
WHERE trkorr IN s_cr AND langu = '1'.
IF li_e070[] IS NOT INITIAL.
SELECT *
FROM e071
INTO TABLE li_e071
FOR ALL ENTRIES IN li_e070
WHERE trkorr = li_e070-trkorr.
ENDIF.
DELETE li_e071 WHERE objfunc = 'D'.
**
LOOP AT li_e071.
CLEAR li_devobjlist.
MOVE-CORRESPONDING li_e071 TO li_devobjlist.
READ TABLE i_requestlist WITH KEY requestid = li_e071-trkorr TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
li_devobjlist-requestid = li_e071-trkorr.
ELSE.
li_devobjlist-taskid = li_e071-trkorr.
READ TABLE li_e070 WITH KEY trkorr = li_e071-trkorr.
IF sy-subrc = 0.
li_devobjlist-requestid = li_e070-strkorr.
ENDIF.
ENDIF.
READ TABLE li_e07t WITH KEY trkorr = li_devobjlist-requestid.
IF sy-subrc = 0.
li_devobjlist-as4text = li_e07t-as4text.
ENDIF.
READ TABLE lt_object_table WITH KEY pgmid = li_e071-pgmid object = li_e071-object.
IF sy-subrc = 0.
li_devobjlist-text = lt_object_table-text.
ENDIF.
APPEND li_devobjlist.
ENDLOOP.
**
LOOP AT li_e071 WHERE pgmid = 'CORR' AND object = 'MERG'.
CLEAR l_trkorr_rec.
SPLIT li_e071-obj_name AT space INTO l_trkorr_rec l_tempstr.
li_requestlist_rec-requestid = l_trkorr_rec.
APPEND li_requestlist_rec.
ENDLOOP.
IF li_requestlist_rec[] IS NOT INITIAL.
SORT li_requestlist_rec BY requestid ASCENDING.
DELETE ADJACENT DUPLICATES FROM li_requestlist_rec COMPARING ALL FIELDS.
CALL FUNCTION 'ZBS00_FM_GETDEVOBJ'
TABLES
i_requestlist = li_requestlist_rec[]
o_devobjlist = li_devobjlist_rec[].
APPEND LINES OF li_devobjlist_rec[] TO li_devobjlist[].
ENDIF.
SORT li_devobjlist[] BY requestid ASCENDING taskid ASCENDING as4pos ASCENDING.
DELETE ADJACENT DUPLICATES FROM li_devobjlist[] COMPARING requestid taskid as4pos.
o_devobjlist[] = li_devobjlist[].
"展示
CALL SCREEN 8001.html
最后对象信息保存在 内表o_devobjlist[]，用table control进行了展示url
