双击文本输入字段链接到T-CODE

CALL SCREEN 0100.

*---定义屏幕游标结构类型
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'.

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.
      SET PARAMETER ID 'MAT' FIELD L_CURSOR-VALUE.
      CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
    WHEN '&F03' OR '&F15' OR '&F12'.
      LEAVE PROGRAM.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0100  INPUT