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] SALV-Grid: Eventhandler für Doppelklick auf eine Zelle (double_click)
- [SAP] ABAP-Code nachgenerieren bzw. aktivieren
- [ABAP] Feldkatalog aus Tabellendefinition erstellen
- [ABAP] XML in interne Tabelle wandeln
- [ABAP] Inhalt eines Spoolauftrages auslesen
- [ABAP] User-Exits und BAdIs zu einem Programm oder einer Transaktion auflisten
- [ABAP] UTC-long-Zeitstempel nach POSIX-Standard in Datum und Zeit splitten
- [ABAP] Verwendung von Common Table Expressions (CTE)
- [ABAP] Leistungsverzeichnis lesen (MS_READ_SERVICES_FOR_BAPI)
- [ABAP] SAPConnect: Kommunikationsknoten, Routing und Parameter auslesen