*&---------------------------------------------------------------------* *& Report YCX_001 *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT ycx_001. DATA: datub LIKE rc29l-datub, datuv LIKE rc29l-datuv. DATA: lt_wultb TYPE TABLE OF stpov, lt_equicat TYPE TABLE OF cscequi, lt_kndcat TYPE TABLE OF cscknd, lt_matcat TYPE TABLE OF cscmat, lt_stdcat TYPE TABLE OF cscstd, lt_tplcat TYPE TABLE OF csctpl. SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME. PARAMETERS: p_werks LIKE marc-werks. PARAMETERS: p_matnr LIKE marc-matnr. SELECTION-SCREEN END OF BLOCK bk1. START-OF-SELECTION. "单层反查BOM CALL FUNCTION 'CS_WHERE_USED_MAT' EXPORTING datub = sy-datum datuv = sy-datum matnr = p_matnr " 物料 stlan = '1' " 物料清单用途 werks = p_werks " 工厂 TABLES wultb = lt_wultb equicat = lt_equicat kndcat = lt_kndcat matcat = lt_matcat stdcat = lt_stdcat tplcat = lt_tplcat EXCEPTIONS call_invalid = 1 material_not_found = 2 no_where_used_rec_found = 3 no_where_used_rec_selected = 4 no_where_used_rec_valid = 5 OTHERS = 6. READ TABLE lt_wultb INTO DATA(ls_wultb) INDEX 1. IF sy-subrc EQ 0. DATA(LV_MJ) = ls_wultb-matnr. ENDIF. WRITE:LV_MJ.