转 SELECTION-SCREEN

SELECTION-SCREEN

1.产生空白列

语法:

      SELECTION-SCREEN SKIP [<n>]

          Example:

                   SELECTION-SCREEN SKIP 2.

                   产生两列空白列

    2.产生底线

语法:

      SELECTION-SCREEN ULINE / <pos>(length)

          Example:

                   SELECTION-SCREEN ULINE /10(30).

                   自第10格开始产生长度30的底线

   3.印出备注说明

     语法:

      SELECTION-SCREEN COMMENT / <pos>(length) <name>

          Example:

                   REMARK = ‘Pls enter your name’.

                   SELECTION-SCREEN COMMENT /10(30) REMARK.

    4. 同一列中输入数个资料项

语法:

      SELECTION-SCREEN BEGIN OF LINE.

         ……

      SELECTION-SCREEN END OF LINE.

      Example:

              SELECTION-SCREEN BEGIN OF LINE.

                  SELECTION-SCREEN POSITION 20.

                  PARAMETERS NAME(10).

                  SELECTION-SCREEN POSITION 40.

                  PARAMETERS BIRTH TYPE D.

              SELECTION-SCREEN END OF LINE.

              在20格输入NAME内容, 40格输入 BIRTH的内容

 

    5. 绘出BLOCK PANEL

语法:

      SELECTION-SCREEN BEGIN OF BLOCK <block>

                      [WITH FRAME [TITLE <title>].

           …….

      SELECTION-SCREEN END OF BLOCK <block>.

      Example:

               SELECTION-SCREEN BEGIN OF BLOCK RADIO

                           WITH FRAME .

                  PARAMETER R1 RADIOBUTTON GROUP GR1.

                  PARAMETER R2 RADIOBUTTON GROUP GR1.

                  PARAMETER R3 RADIOBUTTON GROUP GR1.

               SELECTION-SCREEN END OF BLOCK RADIO.