5、* text*--------------------------------------------------------------------MODULE GET_DATA OUTPUT. TABLES:ZPARTAPPEND. DATA: F1 LIKE ZPARTAPPEND-F1, F2 LIKE ZPARTAPPEND-F2, W_MATNR TYPE MATNR. IF SY-TCODE = 'MM02' OR SY-TCODE = 'MM03'. GET PARAMETER ID 'MAT' FIELD W
6、_MATNR. SELECT SINGLE * FROM ZPARTAPPEND WHERE MATNR = W_MATNR. F1 = ZPARTAPPEND-F1. F2 = ZPARTAPPEND-F2. ENDIF.ENDMODULE. " GET_DATA OUTPUT*&-------------------------------------------------------------------*& Module ASSIGN_DATA INPUT*&--------------------
7、-----------------------------------------------* text*--------------------------------------------------------------------MODULE ASSIGN_DATA INPUT. ZPARTAPPEND-F1 = F1. ZPARTAPPEND-F2 = F2. EXPORT ZPARTAPPEND TO MEMORY ID 'ZPARTAPPEND'.END