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