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