Beenden eines rekursiven Form - Aufrufes
3 Beiträge
•
Seite 1 von 1
3 Beiträge
Seite 1 von 1
Hi Leute,
hab hier ein kleines Unterprogramm, dass sich immer wieder selbst aufruft. Falls u_is_allowed auf 'X' gesetzt wird, soll nicht nur der aktuelle Form - Aufruf beendet werden, sondern alle (verschachtelten)Aufrufe von check_deputy. Mit EXIT wird leider nur der aktuelle Aufruf beendet.
Muss ich das ausprogrammieren, oder gibt es hierfür eine Anweisung?
Danke für jede Hilfe
hab hier ein kleines Unterprogramm, dass sich immer wieder selbst aufruft. Falls u_is_allowed auf 'X' gesetzt wird, soll nicht nur der aktuelle Form - Aufruf beendet werden, sondern alle (verschachtelten)Aufrufe von check_deputy. Mit EXIT wird leider nur der aktuelle Aufruf beendet.
Muss ich das ausprogrammieren, oder gibt es hierfür eine Anweisung?
Danke für jede Hilfe
Code: Alles auswählen.
DATA: u_is_allowed TYPE confirmed.
DATA: l_hrus_d2 TYPE hrus_d2.
DATA: temp_rep_name TYPE sy-uname.
PARAMETERS: g_akt TYPE sy-uname.
PARAMETERS: akt_user TYPE sy-uname.
temp_rep_name = akt_user.
PERFORM check_deputy CHANGING u_is_allowed.
FORM check_deputy CHANGING u_is_allowed.
SELECT * FROM hrus_d2 INTO l_hrus_d2
WHERE
rep_name EQ temp_rep_name
AND begda <= sy-datum
AND endda >= sy-datum
AND reppr = 'ZCOA'
AND active = 'X'.
IF l_hrus_d2-us_name EQ g_akt.
u_is_allowed = 'X'.
g_akt = sy-uname.
ELSE.
temp_rep_name = l_hrus_d2-us_name.
PERFORM check_deputy CHANGING u_is_allowed.
ENDIF.
ENDSELECT.
ENDFORM.
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Hallo Huma,
wie wäre es mit folgender Änderung:
...
IF l_hrus_d2-us_name EQ g_akt.
u_is_allowed = 'X'.
g_akt = sy-uname.
EXIT.
ELSE.
temp_rep_name = l_hrus_d2-us_name.
PERFORM check_deputy CHANGING u_is_allowed.
IF u_is_allowed = 'X'.
EXIT.
ENDIF.
ENDIF.
...
Sorry, keine Zeit mehr für schöne Formatierung
MfG
Thomas R.
wie wäre es mit folgender Änderung:
...
IF l_hrus_d2-us_name EQ g_akt.
u_is_allowed = 'X'.
g_akt = sy-uname.
EXIT.
ELSE.
temp_rep_name = l_hrus_d2-us_name.
PERFORM check_deputy CHANGING u_is_allowed.
IF u_is_allowed = 'X'.
EXIT.
ENDIF.
ENDIF.
...
Sorry, keine Zeit mehr für schöne Formatierung
MfG
Thomas R.
Seite 1 von 1
Frage die ABAP Experten
Über diesen Beitrag
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.
Vergleichbare Themen
Aktuelle Forenbeiträge
Unbeantwortete Forenbeiträge
Custom logic - Feld wieder initialisieren (BADI CRMS4_SERV_CUST_H_MODIFY)
letzen Monat von JanR 1 / 254406
letzen Monat von JanR 1 / 254406