Massenkopie von Repository Objekten
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
9 Beiträge
•
Seite 1 von 1
9 Beiträge
Seite 1 von 1
Beitrag
von der_neuling (ForumUser / 86 / 17 /
3
)
»
Hallo,
ich möchte für Schulungen viele Objekte in neue kopieren.
Beispiel:
Die Klasse ZCL_TEST_01 soll kopiert werden in ZCL_TEST_02 usw.
Gibt es aus dem Standard eine Möglichkeit Objekte zu kopieren? Da eine Massenkopie nach meiner Recherche nicht möglich ist wäre es mein Ziel dafür eine eigene Funktionalität zu entwickeln, existieren dafür Klassen/FuBas um ABAP Objekte zu kopieren?
ich möchte für Schulungen viele Objekte in neue kopieren.
Beispiel:
Die Klasse ZCL_TEST_01 soll kopiert werden in ZCL_TEST_02 usw.
Gibt es aus dem Standard eine Möglichkeit Objekte zu kopieren? Da eine Massenkopie nach meiner Recherche nicht möglich ist wäre es mein Ziel dafür eine eigene Funktionalität zu entwickeln, existieren dafür Klassen/FuBas um ABAP Objekte zu kopieren?
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Für Klassen kannst du bspw. SEO_CLASS_COPY verwenden und hinterher SEO_CLASS_ACTIVATE.
Beitrag
von der_neuling (ForumUser / 86 / 17 /
3
)
»
Danke für die Antwort!
Nun bin ich an einem Punkt wo ich nicht weiterkomme, ich hoffe du kannst mir helfen. Ich möchte auch kopieren, wenn die Klasse schon existiert, also quasi überschreiben.
Stand jetzt versuche ich also die Klasse zu löschen, wenn diese existiert und dann neu zu kopieren.
Leider bekomme ich dabei einen Laufzeitfehler mit der Meldung "Die Klasse existiert bereits".
Es gibt aber keine Einträge zu der Klasse mehr in den Tabellen TADIR UND SEOCLASS, der Existenz Check vorher ist auch immer negativ.
Hier mein aktueller Code:
Nun bin ich an einem Punkt wo ich nicht weiterkomme, ich hoffe du kannst mir helfen. Ich möchte auch kopieren, wenn die Klasse schon existiert, also quasi überschreiben.
Stand jetzt versuche ich also die Klasse zu löschen, wenn diese existiert und dann neu zu kopieren.
Leider bekomme ich dabei einen Laufzeitfehler mit der Meldung "Die Klasse existiert bereits".
Es gibt aber keine Einträge zu der Klasse mehr in den Tabellen TADIR UND SEOCLASS, der Existenz Check vorher ist auch immer negativ.
Hier mein aktueller Code:
Code: Alles auswählen.
clkey = 'ZCL_TEST_01'.
clkey_new = 'ZCL_TEST_03'.
devclass = '$Z_ROOT'.
devclass_new = '$Z_SUB'.
CALL FUNCTION 'SEO_CLASS_EXISTENCE_CHECK'
EXPORTING
clskey = clkey_new
EXCEPTIONS
not_specified = 1
not_existing = 2
is_interface = 3
no_text = 4
inconsistent = 5
others = 6.
IF sy-subrc = 0.
CALL FUNCTION 'SEO_CLASS_DELETE'
EXPORTING
clskeys = VALUE seoc_class_keys( ( clkey_new ) )
EXCEPTIONS
not_specified = 1
not_existing = 2
others = 3.
IF sy-subrc = 3.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'SEO_CLASS_DELETE_GARBAGE'
EXPORTING
clskey = clkey_new.
COMMIT WORK AND WAIT.
ENDIF.
CALL FUNCTION 'SEO_CLASS_COPY'
EXPORTING
clskey = clkey
new_clskey = clkey_new
* access_permission = " Access Permission wird aufgerufen
* save =
* suppress_corr =
suppress_dialog = abap_false
* authority_check =
* lifecycle_manager =
* lock_handle =
* suppress_commit =
* IMPORTING
* new_class =
CHANGING
* corrnr = " Auftrag/Aufgabe
devclass = devclass_new " Paket
EXCEPTIONS
not_existing = 1
deleted = 2
is_interface = 3
not_copied = 4
db_error = 5
no_access = 6
others = 7
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ROLLBACK WORK.
RETURN.
ENDIF.
CALL FUNCTION 'SEO_CLASS_ACTIVATE'
EXPORTING
clskeys = VALUE seoc_class_keys( ( clkey_new ) )
EXCEPTIONS
not_specified = 1
not_existing = 2
inconsistent = 3
others = 4
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
SEO_CLASS_DELETE vorher aufrufen.
Beitrag
von der_neuling (ForumUser / 86 / 17 /
3
)
»
Habe ich bereits gemacht, der Laufzeitfehler tritt immer noch auf.
Auch probiert habe ich es mit dem FuBa ''OO_CLASS_DELETE" und --force Parameter. Leider wird auch hier gemeldet, die Klasse existiere nicht und dumpt dann später beim Kopierversuch
Auch probiert habe ich es mit dem FuBa ''OO_CLASS_DELETE" und --force Parameter. Leider wird auch hier gemeldet, die Klasse existiere nicht und dumpt dann später beim Kopierversuch
Ich kann den Fehler nachvollziehen.
Die Klasse ist gelöscht? In der SE24 sagt mir das System "Class does not exist".
Mit OO_CLASS_DELETE und Parameter COMMIT = X und FORCE = X hat es bei mir funktioniert. Der Baustein SEO_CLASS_COPY bricht nun nicht mehr ab.
Die Klasse ist gelöscht? In der SE24 sagt mir das System "Class does not exist".
Mit OO_CLASS_DELETE und Parameter COMMIT = X und FORCE = X hat es bei mir funktioniert. Der Baustein SEO_CLASS_COPY bricht nun nicht mehr ab.
Beitrag
von der_neuling (ForumUser / 86 / 17 /
3
)
»
Okay, habe es jetzt nochmal probiert mit einer neuen Klassen zum hinein kopieren (ZCL_TEST_05), hier funktioniert es nun. Scheinbar ist bei den vorherigen Versuchen irgendetwas kaputtgegangen.
Funktioniert bei dir der FuBa 'SEO_CLASS_ACTIVATE'? In meinen Durchläufen beendet er mit sy-subrc = 0, die Klassen bleiben aber inaktiv.
COMMIT WORK habe ich testweise auch dahinter gesetzt, Ergebnis bleibt gleich...
Funktioniert bei dir der FuBa 'SEO_CLASS_ACTIVATE'? In meinen Durchläufen beendet er mit sy-subrc = 0, die Klassen bleiben aber inaktiv.
COMMIT WORK habe ich testweise auch dahinter gesetzt, Ergebnis bleibt gleich...
Ist mir beim Testen auch aufgefallen, dass das Aktivieren nicht geht. Ich bin mir jedoch einigermaßen sicher, dass es mal funktioniert hat... :/
Vielleicht funktioniert FUBA CLAS_OBJECT_ACTIVATE?
Vielleicht funktioniert FUBA CLAS_OBJECT_ACTIVATE?
Folgende Benutzer bedankten sich beim Autor ewx für den Beitrag:
der_neuling
Beitrag
von der_neuling (ForumUser / 86 / 17 /
3
)
»
Danke für den Tipp! Die FuBas 'XXX_OBJECT_ACTICVATE' funktionieren ohne Probleme
Seite 1 von 1
Vergleichbare Themen
3
Antw.
Antw.
1210
Views
Views
3
Antw.
Antw.
2178
Views
Views
2
Antw.
Antw.
2130
Views
Views
2
Antw.
Antw.
1093
Views
Views
1
Antw.
Antw.
2633
Views
Views
Unterschied zw. Repository und Dictionary
von bohne » 24.11.2005 10:02 • Verfasst in ABAP® für Anfänger
von bohne » 24.11.2005 10:02 • Verfasst in ABAP® für Anfänger
Frage die ABAP Experten
Über diesen Beitrag
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.