ABAP 动态SQL

*---------------------------------------动态SQL
          DATA where_tab(100) OCCURS 10 WITH HEADER LINE.
          DATA where_tabc1(100) OCCURS 10 WITH HEADER LINE.
          DATA where_tabc2(100) OCCURS 10 WITH HEADER LINE.
          DATA where_tabc3(100) OCCURS 10 WITH HEADER LINE.
          DATA where_tabc4(100) OCCURS 10 WITH HEADER LINE.
          DATA where_tabc5(100) OCCURS 10 WITH HEADER LINE.

          CLEAR where_tab[] .
          CLEAR where_tab .
          CLEAR where_tabc1[] .
          CLEAR where_tabc1 .
          CLEAR where_tabc2[] .
          CLEAR where_tabc2 .
          CLEAR where_tabc3[] .
          CLEAR where_tabc3 .
          CLEAR where_tabc4[] .
          CLEAR where_tabc4 .
          CLEAR where_tabc5[] .
          CLEAR where_tabc5 .

          IF it_tab-old_mat_no IS NOT INITIAL.
            where_tabc1 = 'a~bismt = it_tab-old_mat_no OR '.
          ENDIF.
          where_tabc2 = '  b~zgg = it_tab-zgg  '.
          IF it_tab-zcz IS NOT INITIAL.
            CONCATENATE where_tabc2 ' AND b~zcz = it_tab-zcz' INTO where_tabc3 .
          ELSE .
            where_tabc3 = where_tabc2 .
          ENDIF.
          CONCATENATE ' (  ' where_tabc3 ' )' INTO where_tabc4 .
          CONCATENATE where_tabc1 where_tabc4 INTO where_tabc5.
          CONCATENATE '(  ' where_tabc5 ' )' INTO where_tab .
          APPEND where_tab.
          CLEAR where_tab.
          where_tab = 'AND a~matnr <> it_tab-matnr' .
          APPEND where_tab.
          CLEAR where_tab.

          CLEAR it_tab_check2[] .
          SELECT a~bismt
                 a~matnr
                 b~zpm
                 b~zgg
                 b~zcz
                 b~zpp
            INTO CORRESPONDING FIELDS OF TABLE it_tab_check2
            FROM mara AS a
           INNER JOIN zpartappend AS b ON a~matnr = b~matnr
            WHERE (where_tab) .