双击文本输入字段链接到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