*&---------------------------------------------------------------------*
*& Report  ZTEST                                                       *
*&---------------------------------------------------------------------*
REPORT  ztest.
DATA:
  BEGIN OF fs_vbeln,
    vbeln TYPE vbeln_va,
    posnr TYPE posnr_va,
  END OF fs_vbeln,
  t_vbeln LIKE STANDARD TABLE OF fs_vbeln.
*
DATA: lt_tab LIKE ddshretval OCCURS 0 WITH HEADER LINE.
*
PARAMETERS: p1(10).
*
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.
*
PARAMETERS: p2 AS CHECKBOX MODIF ID sc1.
*
PARAMETERS: p3 AS CHECKBOX MODIF ID sc2.
*
SELECTION-SCREEN END OF BLOCK b2.
*
AT SELECTION-SCREEN OUTPUT.
*
  LOOP AT SCREEN.
    IF screen-group1 = 'SC1'.
      IF p1 EQ '100000005'.
        screen-active = 1.
      ELSE.
        screen-active = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
*
    IF screen-group1 = 'SC2'.
      IF p1 EQ '100000047'.
        screen-active = 1.
      ELSE.
        screen-active = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p1.
  SELECT vbeln posnr
    INTO TABLE t_vbeln
    UP TO 20 ROWS
    FROM vbap.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield         = 'VBELN'
      dynpprog         = sy-cprog
      dynpnr           = sy-dynnr
      value_org        = 'S'
      callback_program = sy-cprog
    TABLES
      value_tab        = t_vbeln
      return_tab       = lt_tab
    EXCEPTIONS
      parameter_error  = 1
      no_values_found  = 2.
*
  IF sy-subrc EQ 0.
    LOOP AT lt_tab.
      CLEAR p1.
      p1 = lt_tab-fieldval.
    ENDLOOP.
  ENDIF.
*
  CALL FUNCTION 'SAPGUI_SET_FUNCTIONCODE'.

    CALL FUNCTION 'SAPGUI_SET_FUNCTIONCODE'
      EXPORT
       FUNCTIONCODE = '/00'
      EXCEPTIONS
        FUNCTION_NOT_SUPPORTED = 1.