*&---------------------------------------------------------------------*
*& Report  Z_TEST001
*&
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z_TEST001.

TABLES: SSCRFIELDS.

PARAMETERS: p_matnr TYPE mara-matnr MODIF ID MAR,
            p_mtart TYPE mara-mtart MODIF ID MAR.

AT SELECTION-SCREEN OUTPUT.
SET PF-STATUS 'SSCR'.
LOOP AT SCREEN.
IF screen-group1 = 'MAR'.
  screen-required = '2'.
  MODIFY SCREEN.
ENDIF.
ENDLOOP.
IF sy-ucomm = 'ONLI'.
LOOP AT SCREEN.
IF screen-group1 = 'MAR'.
  screen-required = '1'.
  MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.

AT SELECTION-SCREEN.

IF sy-ucomm = '&F03'.
LEAVE TO SCREEN 0.
ENDIF.
IF sy-ucomm = '&F12'.
LEAVE TO SCREEN 0.
ENDIF.
IF sy-ucomm = 'ONLI'.
LEAVE TO SCREEN 1000.
ENDIF.
IF sy-ucomm = 'GO'.
CALL TRANSACTION 'MB51' AND SKIP FIRST SCREEN.
ENDIF.