parameters: bukrs type bukrs modif id BUK.

AT SELECTION-SCREEN OUTPUT.

  loop at screen.
    if screen-group1 = 'BUK'.
      screen-input = 0.
      modify screen.
    endif.
  endloop.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR bukrs.

  data: lt_rettab type table of DDSHRETVAL with header line.

  CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
    EXPORTING
      TABNAME                   = 'T001'
      FIELDNAME                 = 'BUKRS'
*     SEARCHHELP                = ' '
*     SHLPPARAM                 = ' '
*     DYNPPROG                  = ' '
*     DYNPNR                    = ' '
*     DYNPROFIELD               = ' '
*     STEPL                     = 0
*     VALUE                     = ' '
*     MULTIPLE_CHOICE           = ' '
*     DISPLAY                   = ' '
*     SUPPRESS_RECORDLIST       = ' '
*     CALLBACK_PROGRAM          = ' '
*     CALLBACK_FORM             = ' '
    TABLES
      RETURN_TAB                = lt_rettab[]
*   EXCEPTIONS
*     FIELD_NOT_FOUND           = 1
*     NO_HELP_FOR_FIELD         = 2
*     INCONSISTENT_HELP         = 3
*     NO_VALUES_FOUND           = 4
*     OTHERS                    = 5
            .
  check not lt_rettab[] is initial.

  read table lt_rettab with key fieldname = 'BUKRS'.
  check sy-subrc = 0.

  bukrs = lt_rettab-fieldval.

  data: DYNPFIELDS type table of DYNPREAD with header line.
  refresh DYNPFIELDS.
  DYNPFIELDS-FIELDNAME = 'BUKRS'.
  DYNPFIELDS-FIELDVALUE = lt_rettab-fieldval.
  append DYNPFIELDS.

  CALL FUNCTION 'DYNP_VALUES_UPDATE'
    EXPORTING
      DYNAME                     = sy-repid
      DYNUMB                     = sy-dynnr
    TABLES
      DYNPFIELDS                 = DYNPFIELDS
*   EXCEPTIONS
*     INVALID_ABAPWORKAREA       = 1
*     INVALID_DYNPROFIELD        = 2
*     INVALID_DYNPRONAME         = 3
*     INVALID_DYNPRONUMMER       = 4
*     INVALID_REQUEST            = 5
*     NO_FIELDDESCRIPTION        = 6
*     UNDEFIND_ERROR             = 7
*     OTHERS                     = 8
            .
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.