Transaktionshistorie manipulieren
Das folgende Programm demonstriert die Manipulation der OK-Code-Historie mittels ABAP. Hierfür werden Registry-Einträge auf dem Frontend manipuliert.
Kurzbeschreibung
Beim Aufruf des Programms wird die Historie aus der Registry eingelesen und direkt in der Select-Option OK_CODE angezeigt, hier können die Codes bearbeitet werden (Einfügen/Ändern/Löschen) nach dem Start und der Sicherheitsabfrage werden die neuen Werte in die Registry geschrieben, ein neuer Modus gestartet, damit die neuen Codes aktiviert werden und der aktuelle Modus beendet.
Wichtig: vor dem Zurückschreiben wird versucht die Anzahl offener Modi zu
ermitteln. Das beschränkt sich aber nur auf die Modi in einem System! Sind noch Modi in anderen Systemen offen (Produktion/Integration) müssen diese vorher
geschlossen werden, sonst wird die Historie unter Umständen aus diesen
Modi wieder überschrieben.
Getestet mit SAP R6.20(4.70), Sap-Gui 6.20/6.40
Quelltext
Bitte im Quelltext die “Slashes” durch “Backslashes” ersetzen!!!
*&———————————————————————*
*& Report Z_SET_OK_CODE_HIST *
*& FREEWARE *
*&———————————————————————*
*& (c) Edwin Leippi Software-Entwicklung *
*& Email : info@leippi.de *
*& Datum : 01.05.2005 *
*& *
*& *
*& Der Autor übernimmt keine Haftung für Schäden, *
*& die durch den Einsatz dieses Programmes entstehen können *
*&———————————————————————*
*& Beschreibung: *
*& *
*& Bearbeiten der OK-Code-History in der Registry *
*& ROOT : HKEY_CURRRENT_USER *
*& KEY :’Software/SAP/SAPGUI Front/SAP Frontend Server/Code’ *
*& VALUE: Code0,Code1,Code2,…. *
*& *
*& In das Select-option Feld OK_CODE werden alle aktuellen Werte *
*& aus der Registry übertragen und können hier bearbeitet werden *
*& Löschen/Ändern/Einfügen *
*& Nur Einzelwerte (I) sind erlaubt *
*& *
*& Diese Tabelle der neuen Werte wird mit der aktuellen abgeglichen, *
*& geänderte Einträge werden modifiziert, neue Einträge werden *
*& eingefügt und nicht mehr vorhandene Einträge werden gelöscht *
*& danach wird ein neuer Modus erzeugt und der in dem das Programm *
*& gestartet wurde beendet, um die neuen Einträge aus der Registry *
*& zu laden *
*& *
*& Achtung: *
*& es sollte alle SAP-Modi bis auf den rufenden geschlossen sein *
*&———————————————————————*
REPORT z_set_ok_code_hist MESSAGE-ID z000.
*&——————————————————————–*
*& SELECT-OPTIONS
*&——————————————————————–*
SELECT-OPTIONS ok_code FOR sy-ucomm NO INTERVALS LOWER CASE.
*&——————————————————————–*
*& TYPES
*&——————————————————————–*
TYPES: BEGIN OF t_value,
value_nr(4) TYPE n,
value_name TYPE string,
value TYPE string.
TYPES: END OF t_value.
*&——————————————————————–*
*& DATA
*&——————————————————————–*
* Tabelle der gefunden Registry Einträge
DATA it_values TYPE STANDARD TABLE OF t_value.
FIELD-SYMBOLS <fs_values> TYPE t_value.
DATA wa_values TYPE t_value.
DATA reg_value TYPE string.
DATA value TYPE string.
DATA rc TYPE i.
DATA num_char(4) TYPE c.
*&——————————————————————–*
*& INITIALIZATION
*&——————————————————————–*
INITIALIZATION.
PERFORM get_ok_code_history.
*&——————————————————————–*
*& START-OF-SELECTION
*&——————————————————————–*
START-OF-SELECTION.
* Prüfung ist dies der letzte SAP-Modus
PERFORM check_session_count CHANGING rc.
IF rc NE 0. EXIT. ENDIF.
PERFORM set_ok_code_history.
END-OF-SELECTION.
*&——————————————————————–*
*& Form close_all_sessions
*&——————————————————————–*
* Öffne neuen Modus, schliesse akttuellen
*———————————————————————*
FORM close_session.
* Neuen Modus erzeugen, dieser bekommt die neue History
CALL FUNCTION ‘TH_CREATE_MODE’.
* Warte, warte nur ein Weilchen
* ohne, gab es schon Probleme, der neue Modus wurde nicht
* erzeugt
WAIT UP TO 2 SECONDS.
* Schliesse den eigenen Modus
CALL FUNCTION ‘TH_DELETE_MODE’.
ENDFORM. “close_all_sessions
*&——————————————————————–*
*& Form check_session_number
*&——————————————————————–*
* Prüfe Anzahl offene Modi im System
*———————————————————————*
FORM check_session_count CHANGING p_rc.
DATA user_info TYPE STANDARD TABLE OF uinfo2.
DATA sess_count TYPE i.
DATA antwort.
p_rc = 0.
REFRESH user_info.
* Hole alle SAP-Modi dieses Systems
CALL FUNCTION ‘TH_LONG_USR_INFO’
TABLES
user_info = user_info.
DESCRIBE TABLE user_info LINES sess_count.
* Falls noch mehrere Modi offen nichts tun
IF sess_count > 1.
MESSAGE i000 WITH ‘Bitte bis auf diesen alle SAP-Modi schliessen’.
p_rc = 1.
EXIT.
ENDIF.
* Sicherheitsabfrage
CALL FUNCTION ‘POPUP_TO_CONFIRM’
EXPORTING
text_question =
‘Wirklich alle Ok Code Einträge überschreiben ?’
text_button_1 = ‘Ja'(001)
text_button_2 = ‘Nein'(002)
display_cancel_button = ‘ ‘
IMPORTING
answer = antwort
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
p_rc = 2.
EXIT.
ENDIF.
IF antwort NE ‘1’.
p_rc = 2.
ENDIF.
ENDFORM. “check_session_number
*&———————————————————————*
*& Form get_ok_code_history
*&———————————————————————*
* Lese Ok_Code Histrory aus der Registry
*———————————————————————-*
FORM get_ok_code_history .
num_char = ‘0’.
REFRESH it_values.
* Alle Registry Werte holen
wa_values-value_nr = 0.
DO 30 TIMES.
SHIFT num_char LEFT DELETING LEADING ‘ 0’.
IF num_char IS INITIAL. num_char = ‘0’. ENDIF.
CONCATENATE ‘Code’ num_char INTO value.
cl_gui_frontend_services=>registry_get_value(
EXPORTING
root = cl_gui_frontend_services=>hkey_current_user
key = ‘Software/SAP/SAPGUI Front/SAP Frontend Server/Code’
value = value
IMPORTING
reg_value = reg_value
EXCEPTIONS
get_regvalue_failed = 1
cntl_error = 2
error_no_gui = 3
not_supported_by_gui = 4
OTHERS = 5 ).
cl_gui_cfw=>flush( ).
IF sy-subrc <> 0. EXIT. ENDIF.
* Eintrag in Selektion
IF NOT reg_value IS INITIAL.
ok_code-low = reg_value.
ok_code-sign = ‘I’.
ok_code-option = ‘EQ’.
APPEND ok_code.
ENDIF.
* Eintrag in interne Tabelle der Werte
wa_values-value = reg_value.
wa_values-value_name = value.
APPEND wa_values TO it_values.
num_char = sy-index.
wa_values-value_nr = sy-index.
ENDDO.
SORT it_values BY value_nr.
ENDFORM. “get_ok_code_history
*&——————————————————————–*
*& Form set_ok_code_history
*&——————————————————————–*
* setze eingegebene Werte in die Registry
*———————————————————————*
FORM set_ok_code_history.
DATA indx TYPE i.
DATA indx_nr(4) TYPE n.
* Überarbeiten der OK_CODE Tabelle nur ‘I’ ‘EQ’ sind erlaubt.
LOOP AT ok_code.
* Leerer Ok-Code nicht zulassen
IF ok_code-low IS INITIAL.
DELETE ok_code.
CONTINUE.
ENDIF.
* Nur Include kein Ausschliessen
IF ok_code-sign NE ‘I’.
DELETE ok_code.
CONTINUE.
ENDIF.
* Nur Einzelwerte erlaubt
IF ok_code-option NE ‘EQ’.
DELETE ok_code.
CONTINUE.
ENDIF.
ENDLOOP.
* Jetzt noch die Ok_CODES mit der eingelesene Tabelle abgleichen
LOOP AT ok_code.
* Codes fangen mit 0 an Code0,Code1,….
indx_nr = sy-tabix – 1.
READ TABLE it_values ASSIGNING <fs_values>
WITH KEY value_nr = indx_nr.
* Keinen Eintrag gefunden -> erzeuge neuen
IF sy-subrc NE 0.
num_char = indx_nr.
SHIFT num_char LEFT DELETING LEADING ‘ 0’.
IF num_char IS INITIAL. num_char = ‘0’. ENDIF.
CONCATENATE ‘Code’ num_char INTO value.
wa_values-value_nr = indx_nr.
wa_values-value = ok_code-low.
wa_values-value_name = value.
APPEND wa_values TO it_values.
ENDIF.
ENDLOOP.
* Einträge vornehmen
LOOP AT it_values INTO wa_values.
indx = wa_values-value_nr + 1.
* Lese OK_CODE aus Select-options
READ TABLE ok_code INDEX indx.
* Falls nicht gefunden -> Lösche
IF sy-subrc NE 0.
cl_gui_frontend_services=>registry_delete_value(
EXPORTING
root = cl_gui_frontend_services=>hkey_current_user
key =
‘Software/SAP/SAPGUI Front/SAP Frontend Server/Code’
value = wa_values-value_name
IMPORTING
rc = rc
EXCEPTIONS
cntl_error = 1
registry_delete_value_failed = 2
error_no_gui = 3
not_supported_by_gui = 4
OTHERS = 5 ).
* Flush nicht vergessen
cl_gui_cfw=>flush( ).
ELSE.
* Setze neuen Code aus der Select-Option
wa_values-value = ok_code-low.
IF NOT ok_code-low IS INITIAL.
cl_gui_frontend_services=>registry_set_value(
EXPORTING
root =
cl_gui_frontend_services=>hkey_current_user
key =
‘Software/SAP/SAPGUI Front/SAP Frontend Server/Code’
value_name = wa_values-value_name
value = wa_values-value
IMPORTING
rc = rc
EXCEPTIONS
registry_error = 1
cntl_error = 2
error_no_gui = 3
not_supported_by_gui = 4
OTHERS = 5 ).
ENDIF.
* Flush nicht vergessen
cl_gui_cfw=>flush( ).
ENDIF.
ENDLOOP.
* Einen neuen Modus öffnen und den eigenen beenden
PERFORM close_session.
ENDFORM. “set_ok_code_history
- 7. December: Excel Racing Simulation – Root Vole Race - 7. Dezember 2024
- 5. December: ABAPConf - 5. Dezember 2024
- 4. December: Only a lazy developer is a good developer - 4. Dezember 2024
