*&———————————————————————*
*& Report ZDTEST_014
*&
*&———————————————————————*
*& 选择屏幕程序示例
*&
*&———————————————————————*
REPORT ZDTEST_014.
*定义选择屏幕
selection-screen begin of block F with frame .
*空格两行
selection-screen skip 2.
selection-screen comment 47(20) screen1.
selection-screen skip 2.
*定义姓名输入编辑行
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(10) NAME.
PARAMETERS A1(10) TYPE C.
SELECTION-SCREEN END OF LINE.
selection-screen skip 1.
*定义年龄输入编辑行
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(10) AGE.
PARAMETERS A2 TYPE I.
SELECTION-SCREEN END OF LINE.
selection-screen skip 1.
*定义家庭住址输入编辑行
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(10) ADDRESS.
PARAMETERS A3(70) TYPE C.
SELECTION-SCREEN END OF LINE.
selection-screen skip 1.
*定义对话框填充单选按钮
selection-screen begin of block RADIO with frame title screen2 .
parameters man radiobutton group rg1.
parameters woman radiobutton group rg1.
selection-screen end of block RADIO.
selection-screen skip.
*定义对话框填充复选按钮
selection-screen begin of block chk with frame title screen3 .
parameters:English AS CHECKBOX ,Japanese AS CHECKBOX ,French AS CHECKBOX ,German AS CHECKBOX , Other as CHECKBOX .
selection-screen end of block chk.
selection-screen skip.
selection-screen skip.
selection-screen end of block F.
initialization .
NAME = ‘输入姓名：’.
AGE = ‘输入年龄：’.
ADDRESS = ‘家庭住址:’.
screen1 =’个人信息注册登记表’.
screen2 = ‘选择性别’.
screen3 = ‘选择您所学过的外语’.
原创文章，作者：奋斗，如若转载，请注明出处：https://blog.ytso.com/18258.html