选择屏幕程序示例

*&---------------------------------------------------------------------*
*& 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 = '选择您所学过的外语'.