*&---------------------------------------------------------------------* *& Report Z007 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT Z007. TABLES ZUSER. SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE TEXT-001. PARAMETERS P1 TYPE CHAR50 VISIBLE LENGTH 30. PARAMETERS P2 TYPE CHAR50 VISIBLE LENGTH 30. SELECTION-SCREEN END OF BLOCK BK1. SELECTION-SCREEN BEGIN OF BLOCK BK2 WITH FRAME TITLE TEXT-002. PARAMETERS P3 TYPE INT2. PARAMETERS P4 TYPE INT2. PARAMETERS P5 TYPE INT2. SELECTION-SCREEN END OF BLOCK BK2. SELECTION-SCREEN BEGIN OF BLOCK BK3 WITH FRAME TITLE TEXT-003. SELECTION-SCREEN BEGIN OF LINE. PARAMETERS E1 TYPE CHAR1 RADIOBUTTON GROUP GP1. SELECTION-SCREEN COMMENT (10) TEXT-E01 FOR FIELD E1. PARAMETERS E2 TYPE CHAR1 RADIOBUTTON GROUP GP1. SELECTION-SCREEN COMMENT (10) TEXT-E02 FOR FIELD E2. PARAMETERS E3 TYPE CHAR1 RADIOBUTTON GROUP GP1. SELECTION-SCREEN COMMENT (10) TEXT-E03 FOR FIELD E3. PARAMETERS E4 TYPE CHAR1 RADIOBUTTON GROUP GP1. SELECTION-SCREEN COMMENT (10) TEXT-E04 FOR FIELD E4. PARAMETERS E5 TYPE CHAR1 RADIOBUTTON GROUP GP1. SELECTION-SCREEN COMMENT (10) TEXT-E05 FOR FIELD E5. SELECTION-SCREEN END OF LINE. SELECTION-SCREEN END OF BLOCK BK3. PARAMETERS C1 TYPE CHAR1 AS CHECKBOX USER-COMMAND HIDE. PARAMETERS C2 TYPE CHAR20 OBLIGATORY MODIF ID F1. INITIALIZATION. C1 = ''. AT SELECTION-SCREEN. AT SELECTION-SCREEN OUTPUT. LOOP AT SCREEN. IF C1 = ' '. IF SCREEN-GROUP1 = 'F1'. SCREEN-ACTIVE = 0. SCREEN-REQUIRED = '1'. MODIFY SCREEN. ENDIF. ENDIF. ENDLOOP. START-OF-SELECTION. END-OF-SELECTION.