FORM FRM_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
data LV_ID(20).
CASE R_UCOMM.
WHEN '&F03' .
LEAVE TO SCREEN 0.
WHEN '&F05' .
LEAVE TO SCREEN 0.
WHEN '&F12' .
LEAVE SCREEN.
WHEN '&IC1'.
CASE rs_selfield-fieldname.
WHEN 'ZPROBNUM'."热点字段
*跳转事务代码
SET PARAMETER ID: 'AN1' FIELD rs_selfield-value.
READ TABLE gt_inventory INTO gs_inventory INDEX rs_selfield-tabindex.
IF sy-subrc = 0.
SET PARAMETER ID: 'BUK' FIELD gs_inventory-bukrs.
ENDIF.
CALL TRANSACTION 'AS03' AND SKIP FIRST SCREEN .
ENDCASE.
ENDCASE.
ENDFORM.
FORM FRM_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
data LV_ID(20).
CASE R_UCOMM.
WHEN '&F03' .
LEAVE TO SCREEN 0.
WHEN '&F05' .
LEAVE TO SCREEN 0.
WHEN '&F12' .
LEAVE SCREEN.
WHEN '&IC1'.
READ TABLE GT_PRO INTO GS_PRO INDEX rs_selfield-tabindex.
ENDCASE.
ENDCASE.
ENDFORM.
