写一个abap function函数用于调用库存

以下是一个简单的 ABAP 函数，用于调用库存信息：

FUNCTION get_stock_info. *"---------------------------------------------------------------------- ""Local Interface: *" IMPORTING *" VALUE(material) TYPE matnr *" EXPORTING *" VALUE(stock) TYPE mard-labst *" VALUE(unit) TYPE mard-meins *"----------------------------------------------------------------------

DATA: lv_matnr TYPE matnr, lv_werks TYPE werks_d, lv_lgort TYPE lgort, lv_mard TYPE mard.

lv_matnr = material. SELECT SINGLE * FROM mard INTO lv_mard WHERE matnr = lv_matnr. IF sy-subrc = 0. stock = lv_mard-labst. unit = lv_mard-meins. ENDIF.

ENDFUNCTION.

此函数接收一个物料号作为输入参数，并将库存数量和计量单位作为输出参数返回。它使用 MARD 表来获取相应的库存信息，并通过 SELECT SINGLE 语句仅返回一行数据。如果找到了相应的库存信息，则将库存数量和计量单位存储在输出参数中。