*&---------------------------------------------------------------------* *& 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'.
