从主数据读取一个数，放到表里去

    DATA: wa_result TYPE _ty_s_tg_1 .
    DATA : l_zbaseqty TYPE /bic/pzrouting-/bic/zbaseqty.
    DATA : l_zw1 TYPE /bi0/pmaterial-/bic/zw1.

    LOOP AT result_package INTO wa_result.
      SELECT SINGLE /bic/zbaseqty INTO l_zbaseqty
        FROM /bic/pzrouting
        WHERE calmonth   = wa_result-calmonth
        AND  /bic/zoperat     = wa_result-/bic/zoperat
        AND /bic/zppgrpct    = wa_result-/bic/zppgrpct
        AND /bic/zrouting   = wa_result-/bic/zrouting
        AND objvers   = 'a'.
      SELECT SINGLE /bic/zw1 INTO l_zw1
        FROM /bi0/pmaterial
        WHERE material =  wa_result-material
       AND objvers   = 'A'.
      IF sy-subrc = 0.
        IF wa_result-/bic/zprodlin = 'TG006'
         OR wa_result-/bic/zprodlin = 'TG005'
         OR  wa_result-/bic/zprodlin = 'TG008'.
          l_zbaseqty = l_zbaseqty * l_zw1 .
        ENDIF.
        wa_result-/bic/zpp_bzcn = l_zbaseqty.
      ENDIF.

      MODIFY result_package FROM wa_result.
    ENDLOOP.