选择屏幕

*---------------单值检索--------------------------
*PARAMETERS : A1(10) TYPE C,
*             A2     TYPE I.
* WRITE: / A1 ,/ A2.
*---------------单值检索--------------------------
*DATA DATA1(20) TYPE C.
*SELECT-OPTIONS  D1 FOR DATA1.
*LOOP AT D1 .
*WRITE: / 'SIGN', D1-SIGN ,
*         'OPTION',D1-OPTION,
*         'LOW',D1-LOW,
*        'HIGH',D1-HIGH.
*ENDLOOP.
*------------定义选择屏幕-------------------------
*SELECTION-SCREEN BEGIN OF SCREEN 500.
*PARAMETERS DATA1(20)  TYPE C.
*SELECTION-SCREEN END OF SCREEN 500.
*CALL SELECTION-SCREEN 500.
*------------定义多个输入字段一行输出------------
*SELECTION-SCREEN BEGIN OF LINE.
*SELECTION-SCREEN COMMENT 1(10) E4.
*PARAMETERS : E1(1) TYPE C,
*             E2(4) TYPE C,
*             E3(9) TYPE C.
*SELECTION-SCREEN END OF LINE.
*INITIALIZATION.
*E4 = '测试输入' .
*WRITE : / E1 , E2 .
*---------------系统F1出来的结果--------------------
*SELECTION-SCREEN COMMENT /1(50) comm1 MODIF ID mg1.
*SELECTION-SCREEN ULINE.
*SELECTION-SCREEN SKIP.
*
*SELECTION-SCREEN COMMENT /1(30) comm2.
*SELECTION-SCREEN ULINE /1(50).
*PARAMETERS: r1 RADIOBUTTON GROUP rad1,
*            r2 RADIOBUTTON GROUP rad1,
*            r3 RADIOBUTTON GROUP rad1.
*SELECTION-SCREEN ULINE /1(50).
*
*AT SELECTION-SCREEN OUTPUT.
*  comm1 ='Selection Screen'.
*  comm2 ='Select one'.
*  LOOP AT SCREEN.
*    IF screen-group1 = 'MG1'.
*       screen-intensified = '1'.
*      MODIFY SCREEN.
*    ENDIF.
*  ENDLOOP.
*--------------单选框-----------------------------
*SELECTION-SCREEN BEGIN OF BLOCK RDG1 WITH FRAME TITLE S2.
*PARAMETERS A1 RADIOBUTTON GROUP RG1.
*PARAMETERS A2 RADIOBUTTON GROUP RG1.
*PARAMETERS A3 RADIOBUTTON GROUP RG1.
*SELECTION-SCREEN END OF BLOCK RDG1.
*INITIALIZATION.
*S2 = '请选择'.