1、ASSIGN
DATA : BEGIN OF lt_result OCCURS 0,
type TYPE string,
result TYPE string,
END OF lt_result.
DATA go_data TYPE REF TO data.
DATA go_data1 TYPE REF TO data.
FIELD-SYMBOLS:<dyn_wa1> TYPE any,
<dyn_table1> TYPE table .
FIELD-SYMBOLS:<dyn_field> TYPE any .
FIELD-SYMBOLS:<dyn_wa> TYPE any.
DATA: dy_line1 TYPE REF TO data.
FIELD-SYMBOLS: <result> TYPE any.
IF go_data IS NOT INITIAL.
ASSIGN go_data->* TO <dyn_table1> .
IF <dyn_table1> IS ASSIGNED .
"建立一个与动态内表结构相同的数据对象,且数据对象是一个结构
CREATE DATA dy_line1 LIKE LINE OF <dyn_table1>.
"用<DYN_WA>指针指向该结构
ASSIGN dy_line1->* TO <dyn_wa1>.
LOOP AT <dyn_table1> ASSIGNING <dyn_wa1> .
CLEAR lt_result.
ASSIGN ('<DYN_WA1>->TYPE->*') TO <result> .
IF sy-subrc = 0.
lt_result-type = <result> .UNASSIGN <result> .
ENDIF.
ASSIGN ('<DYN_WA1>->PREVIEW->*') TO <result> .
IF sy-subrc = 0.
lt_result-result = <result> .UNASSIGN <result> .
ENDIF.
* CLEAR lt_result.
* ASSIGN <dyn_wa1>->* TO <dyn_wa>.
* ASSIGN COMPONENT 'PREVIEW' OF STRUCTURE <dyn_wa> TO <dyn_field> .
* IF sy-subrc = 0.
* ASSIGN <dyn_field>->* TO <result> .
* IF sy-subrc = 0.
* lt_result-result = <result> .UNASSIGN <result> .
* ENDIF.
* UNASSIGN <dyn_field> .
* ENDIF.
* ASSIGN COMPONENT 'TYPE' OF STRUCTURE <dyn_wa> TO <dyn_field> .
* IF sy-subrc = 0.
* ASSIGN <dyn_field>->* TO <result> .
* IF sy-subrc = 0.
* lt_result-type = <result> .UNASSIGN <result> .
* ENDIF.
* UNASSIGN <dyn_field> .
* ENDIF.
TRANSLATE lt_result-type TO UPPER CASE.
IF lt_result-type = 'PDF' OR lt_result-type = 'JPG' OR lt_result-type = 'JPEG' .
APPEND lt_result .
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
2 弹窗debug文本
[Function]
Command=/H
Type=SystemCommand