屏幕设计

*&---------------------------------------------------------------------*
*& Report  Z006
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z006.


DATA LIST TYPE TABLE OF ZUSER.
DATA WA TYPE ZUSER.
TABLES ZUSER.

SELECTION-SCREEN BEGIN OF BLOCK XX WITH FRAME TITLE TEXT-001.
  PARAMETERS P_ID TYPE INT2.
  SELECT-OPTIONS P_NAME FOR ZUSER-ZNAME.
SELECTION-SCREEN END OF BLOCK XX.


SELECTION-SCREEN BEGIN OF BLOCK XXX WITH FRAME TITLE TEXT-002.
  SELECTION-SCREEN BEGIN OF LINE.
  PARAMETERS P_BOY  TYPE CHAR1 RADIOBUTTON GROUP GP1.
  SELECTION-SCREEN COMMENT (10) TEXT-T01 FOR FIELD P_BOY.
  SELECTION-SCREEN POSITION 20.
  PARAMETERS P_GIRL TYPE CHAR1 RADIOBUTTON GROUP GP1.
  SELECTION-SCREEN COMMENT (10) TEXT-T02 FOR FIELD P_GIRL.
  SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK XXX.

SELECTION-SCREEN SKIP 4.

PARAMETERS P_DEPT TYPE CHAR1 AS CHECKBOX.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN BEGIN OF BLOCK XXXX WITH FRAME TITLE TEXT-003.
  PARAMETERS P_SALES TYPE CHAR1 RADIOBUTTON GROUP GP2.
  PARAMETERS P_EDU   TYPE CHAR1 RADIOBUTTON GROUP GP2.
  PARAMETERS P_ACC   TYPE CHAR1 RADIOBUTTON GROUP GP2.
  PARAMETERS P_HR    TYPE CHAR1 RADIOBUTTON GROUP GP2.
SELECTION-SCREEN END OF BLOCK XXXX.


INITIALIZATION.
  P_ID = '5'.

AT SELECTION-SCREEN.

START-OF-SELECTION.
  PERFORM GET_DATA.






END-OF-SELECTION.
  PERFORM DISPLAY.



*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM GET_DATA .
  SELECT *
  INTO CORRESPONDING FIELDS OF TABLE LIST
  FROM ZUSER
  WHERE ZUID = P_ID
  AND ZNAME IN P_NAME.
ENDFORM.                    " GET_DATA

*&---------------------------------------------------------------------*
*&      Form  DISPLAY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM DISPLAY .
  LOOP AT LIST INTO WA.
    WRITE:/ WA-ZUID,WA-ZNAME.
  ENDLOOP.
ENDFORM.                    " DISPLAY