Schlagwort: RS_TRDIR_UPDATE

PARAMETER: p_name TYPE trdir-name.

START-OF-SELECTION.

  DATA: lv_trdir TYPE trdir.

  SELECT SINGLE * FROM trdir INTO @lv_trdir WHERE name = @p_name.

  IF sy-subrc = 0.
    IF lv_trdir-edtx = 'X'.
      lv_trdir-edtx = space.

      CALL FUNCTION 'RS_TRDIR_UPDATE'
        EXPORTING
          trdir_row       = lv_trdir
        EXCEPTIONS
          internal_error  = 1
          parameter_error = 2
          not_found       = 3
          OTHERS          = 4.

      IF sy-subrc EQ 0.
        WRITE:/ 'Editor entsperrt.'.
      ENDIF.

    ELSE.
      WRITE:/ 'Editor ist schon entsperrt.'.
    ENDIF.
  ENDIF.