DATA: lv_stgrd TYPE vbrk-stgrd.

  DATA: dyname LIKE d020s-prog VALUE 'SAPMV60A',
        dynumb LIKE d020s-dnum VALUE '0102'.

  DATA: BEGIN OF dynpfields OCCURS 3.
    INCLUDE STRUCTURE dynpread.
  DATA: END OF dynpfields.

  MOVE 'VBRK-STGRD' TO dynpfields-fieldname.
  APPEND dynpfields.

  IF sy-tcode = 'VF11'.

  DATA: lrt_stgrd TYPE RANGE OF t041c-stgrd.
   SELECT stgrd AS low
          FROM t041c
          INTO CORRESPONDING FIELDS OF TABLE lrt_stgrd.

   LOOP AT lrt_stgrd ASSIGNING FIELD-SYMBOL(<fs_stgrd>).
     <fs_stgrd>-sign   = 'I'.
     <fs_stgrd>-option = 'EQ'.
   ENDLOOP.

    CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = dyname
      dynumb               = dynumb
    TABLES
      dynpfields           = dynpfields
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield  = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription  = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.

    READ TABLE dynpfields WITH KEY fieldname = 'VBRK-STGRD'.
    IF sy-subrc EQ 0.
      IF dynpfields-fieldvalue NOT IN lrt_stgrd.
        MESSAGE e000(zsd).
      ENDIF.
    ENDIF.
  ENDIF.