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.
Kategorien
-
Neueste Beiträge
- [ABAP] Testen, ob per RFC ein Funktionsbaustein im Zielsystem vorhanden ist
- [SAP] LSMW: Materialstammdaten per Dateiupload pflegen
- [ABAP] Editierbares SALV-Grid (IF_SALV_GUI_OM_EXTEND_GRID_API, IF_SALV_GUI_OM_EDIT_RESTRICTED)
- [ABAP] Neues SAP-Fenster (Modus) öffnen und wieder schließen
- [ABAP] Infos zu Datenelementen und Domänen lesen
- [ABAP] Informationen zu einem Dynpro ermitteln
- [ABAP] Installierte Softwarekomponenten ermitteln
- [SAP] Ändern des SAP Easy Access Anmeldebildes (Einstiegsbild)
- [ABAP] Eigenschaften einer Klasse prüfen
- [ABAP] Element des Selektionsbiles über RadioButtons ein-/ausblenden