selection-screen的示例

最新推荐文章于 2024-09-28 23:14:15 发布

原创最新推荐文章于 2024-09-28 23:14:15 发布 · 687 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#structure #user #table #c

SAP-ABAP 专栏收录该内容

16 篇文章

订阅专栏

该ABAP程序用于显示在线用户信息，并允许通过选择屏幕输入用户名来检索特定用户的详细信息。程序还提供了两个按钮选项，分别对应不同的用户命令，用于进一步处理选定用户的数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

TABLES: v_username, sscrfields.

DATA: BEGIN OF usr_tabl OCCURS 10.
INCLUDE STRUCTURE uinfo.
DATA: END OF usr_tabl.

DATA: opcode TYPE x,
slave_mode TYPE x,
loc_utid LIKE usr_tabl-tid.

CONSTANTS: c_fcode_slon LIKE sy-ucomm VALUE 'SLON',
c_fcode_slof LIKE sy-ucomm VALUE 'SLOF'.

SELECTION-SCREEN BEGIN OF BLOCK userid WITH FRAME title frTitle.
PARAMETERS: p_userid LIKE uinfo-bname.
SELECTION-SCREEN END OF BLOCK userid.
SELECTION-SCREEN BEGIN OF BLOCK show WITH FRAME.
SELECTION-SCREEN PUSHBUTTON /10(25) slon USER-COMMAND slon.
SELECTION-SCREEN PUSHBUTTON 45(25) slof USER-COMMAND slof.
SELECTION-SCREEN END OF BLOCK show.

INITIALIZATION.
MOVE 'On Screen Flow Show' TO slon.
MOVE 'Off Screen Flow Show' TO slof.
move 'Enter an online user.' to frTitle.

AT SELECTION-SCREEN ON p_userid.
IF NOT p_userid IS INITIAL.
SELECT SINGLE bname
INTO v_username-bname
FROM v_username
WHERE bname = p_userid.
IF sy-subrc <> 0.
MESSAGE e999 WITH 'User not logged on'.
ENDIF.
ELSE.
"MESSAGE E000 WITH 'UserID' display like 'E'.
message id 'ZMSGCZW' type 'E' NUMBER '000' WITH 'UserID' display like 'E'.
ENDIF.

AT SELECTION-SCREEN.
refresh usr_tabl.
FREE usr_tabl.
opcode = 2.
CALL 'ThUsrInfo' ID 'OPCODE' FIELD opcode ID 'TAB' FIELD
usr_tabl-*sys*.

READ TABLE usr_tabl WITH KEY bname = p_userid TRANSPORTING tid.
IF sy-subrc <> 0.
MESSAGE e999 WITH 'Requested User Id is not available'.
ENDIF.

loc_utid = usr_tabl-tid.
slave_mode = 5.

IF sscrfields-ucomm = c_fcode_slon.
opcode = 14.
CALL 'ThUsrInfo' ID 'OPCODE' FIELD opcode ID 'S_TID' FIELD loc_utid
ID 'S_MODE' FIELD slave_mode.
ELSEIF sscrfields-ucomm = c_fcode_slof.
opcode = 15.
CALL 'ThUsrInfo' ID 'OPCODE' FIELD opcode ID 'S_TID' FIELD loc_utid.
ENDIF.