选择界面1

*&---------------------------------------------------------------------*
*& Report  ZHQ_01_03
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZHQ_01_03.

TABLES ZSTUDENT.

DATA GT_STUDENT TYPE TABLE OF ZSTUDENT.
DATA GS_STUDENT TYPE ZSTUDENT.




SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
    PARAMETERS PID TYPE ZSTUDENT-ZID VISIBLE LENGTH 10 DEFAULT '100'.
    SELECT-OPTIONS PAGE FOR ZSTUDENT-ZAGE.
SELECTION-SCREEN END OF BLOCK B1.




SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
    SELECTION-SCREEN BEGIN OF LINE.

        PARAMETERS R_BOY   TYPE C RADIOBUTTON GROUP GP1.
        SELECTION-SCREEN COMMENT (2) TEXT-S01 FOR FIELD R_BOY.

        SELECTION-SCREEN POSITION 10.

        PARAMETERS R_GRIL  TYPE C RADIOBUTTON GROUP GP1.
        SELECTION-SCREEN COMMENT (2) TEXT-S02 FOR FIELD R_GRIL.


    SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.



PARAMETERS P_DEPT TYPE C AS CHECKBOX.

SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
    PARAMETERS P_SALES TYPE C RADIOBUTTON GROUP GP2.
    PARAMETERS P_EDU   TYPE C RADIOBUTTON GROUP GP2.
    PARAMETERS P_ACC   TYPE C RADIOBUTTON GROUP GP2.
    PARAMETERS P_HR    TYPE C RADIOBUTTON GROUP GP2.
SELECTION-SCREEN END OF BLOCK B3.



IF PID IS INITIAL.
SELECT *
  INTO CORRESPONDING FIELDS OF TABLE GT_STUDENT
  FROM ZSTUDENT
  WHERE ZAGE IN PAGE.
ELSE.

SELECT *
  INTO CORRESPONDING FIELDS OF TABLE GT_STUDENT
  FROM ZSTUDENT
  WHERE ZID = PID
  AND ZAGE IN PAGE.
ENDIF.

BREAK-POINT.
WRITE 'xx'.