SAP STUDY

FORM GET_START_STOCK USING    P_V_WERKS
                              P_S_DATE
                              P_V_MATNR
                     CHANGING P_V_STOCK.

  DATA: v_year(4), v_mon(2).

  v_year = p_s_date(4).
  v_mon  = p_s_date+4(2).

  CLEAR: p_v_stock.

  SELECT * FROM mbew WHERE ( ( lfgja < v_year ) OR
                             ( lfgja = v_year AND lfmon <= v_mon ) )
                       AND matnr = p_v_matnr
                       AND bwkey = p_v_werks.
    p_v_stock = mbew-lbkum.
    EXIT.
  ENDSELECT.

  IF sy-subrc <> 0.
    SELECT SINGLE lbkum INTO p_v_stock
                        FROM mbewh
                       WHERE lfgja = v_year
                         AND lfmon = v_mon
                         AND matnr = p_v_matnr
                         AND bwkey = p_v_werks.
    IF SY-SUBRC <> 0.
      SELECT * FROM mbewh WHERE ( lfgja = v_year AND lfmon > v_mon )
                            AND matnr = p_v_matnr
                            AND bwkey = p_v_werks.
        p_v_stock = mbew-lbkum.
        EXIT.
      ENDSELECT.

      IF sy-subrc <> 0.
        SELECT * FROM mbewh WHERE ( lfgja > v_year )
                              AND matnr = p_v_matnr
                              AND bwkey = p_v_werks.
          p_v_stock = mbew-lbkum.
          EXIT.
        ENDSELECT.
      ENDIF.
    ENDIF.
  ENDIF.

ENDFORM.                    " GET_START_STOCK