選擇螢幕中，選擇一個引數，按回車後在旁邊文字顯示相關資訊。主要是先定義一個SELECTION-SCREEN COMMENT，然後 在AT SELECTION-SCREEN OUTPUT裡寫取要顯示的資料邏輯。

</pre><p></p><p></p><pre code_snippet_id="1562034" snippet_file_name="blog_20160122_2_7287851" name="code" class="plain">REPORT ZPROJECT_SELEMP.
*&---------------------------------------------------------------------*
*&INCLUDE 部分
*&---------------------------------------------------------------------*

TABLES: prps.

DATA: OK_CODE LIKE SY-UCOMM.
DATA: projectName LIKE PRPS-POST1,
      projectManager LIKE prps-ASTNA.
------------------------------------------------------------------*
*&選擇螢幕的定義
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK blk0 WITH FRAME TITLE text-001.

PARAMETERS: project TYPE PRPS-POSID DEFAULT '' OBLIGATORY.
*SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN COMMENT 60(60) v_text."用於顯示專案名
SELECT-OPTIONS: s_date FOR sy-datum MODIF ID PP.
SELECTION-SCREEN END OF BLOCK blk0.


AT SELECTION-SCREEN OUTPUT .
  IF project <> ''.
    SELECT SINGLE POST1 "專案簡介
                  ASTNA "專案經理，自定義欄位 申請人
      INTO (projectName , projectManager)
      FROM prps
      WHERE POSID = project.

    CONCATENATE projectName '  專案經理：' projectManager INTO v_text.
    MODIFY SCREEN.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'PP'.
        screen-REQUIRED = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.

*&---------------------------------------------------------------------*
*&AT SELECTION-SCREEN
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN.

*&---------------------------------------------------------------------*
*&START-OF-SELECTION 程式開始
*&---------------------------------------------------------------------*
START-OF-SELECTION.
call SCREEN 9000.


MODULE USER_COMMAND_2000 INPUT.
  ok_code = sy-ucomm.
  CLEAR sy-ucomm.
  CASE ok_code.
    WHEN 'BACK'.
      LEAVE TO SCREEN 1000.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_2000  INPUT
 

AT SELECTION-SCREEN OUTPUT .