记录几个代码写法

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