sap 双击文本字段链接到tTCODE

CALL SCREEN 100.

*定义屏幕游标结构类型
TYPES:BEGIN OF t_cursor,
        fname LIKE d021s-fnam,
        pos   LIKE sy-stepl,
        value LIKE d021s-fnam,
        tc    LIKE dd04l-rollname,
        tcsec LIKE dd04l-rollname,
        line  LIKE sy-stepl,
      END OF t_cursor.

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'GUI01'.
*  SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  DATA: l_cursor TYPE t_cursor.   "定义游标类型

  CASE sy-ucomm.
    WHEN 'CLICK'.
      "获取当前屏幕游标所在对象参数值
      GET CURSOR FIELD l_cursor-fname LINE l_cursor-pos
       AREA l_cursor-tc VALUE l_cursor-value.
      "传递料号调用 TCode:MM03
      SET PARAMETER ID: 'MAT' FIELD l_cursor-value.
      CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
  ENDCASE.