*&---------------------------------------------------------------------*
*& 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
标签：SELECTION,GROUP,PARAMETERS,CHAR1,SCREEN,设计,屏幕,TYPE From： https://www.cnblogs.com/hua900822/p/17327600.html