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