Sperreintrag prüfen
4 Beiträge
•
Seite 1 von 1
4 Beiträge
Seite 1 von 1
Beitrag
von Frank Schmitt (ForumUser / 10 / 12 /
0
)
»
Guten Tag werte Community,
als blutiger ABAP-Anfänger stehe ich derzeit vor eine Anforderung, die mich relativ ratlos zurücklässt. Ich soll einen Funktionsbaustein entwickeln (ZAL_ARCHIVER), mit dem extern angelieferte Dokumente archiviert werden.
Damit dieser FuBau nicht doppelt aufgerufen werden kann soll ich folgenden Fall abfangen:
In einer Tabelle ZAL_LOCK soll überprüft werden, ob im Feld CALL_PROGRAM (aufrufendes Programm) ein Eintrag ZAL_ARCHIVER vorhanden ist.
Wenn ja, soll ich überprüfen, ob das Feld MAILSENT (CHAR 1) den Wert 'X' hat.
->Wenn ja, soll der FuBau beendet werden.
->Wenn nein, soll der Wert 'X' gesetzt werden
Wenn nein, soll die Sperre gesetzt werden durch folgende Einträge in der Tabelle ZAL_LOCK (Felder: MANDANT, CALL_PROGRAM, SAP_USER, LOCKDATE, LOCKTIME, MAILSENT)
CALL_PROGRAM = ZAL_ARCHIVER
SAP_USER = sy-UNAME
LOCKDATE = sy-DATLO
LOCKTIME = sy-TIMLO
MAILSENT = leer
Derzeit stehe ich wie gesagt ratlos da. Deshalb wäre ich für jede Hilfe oder jedes Stückchen Code sehr, sehr dankbar.
Sollte ich das falsch formuliert haben, oder elementare Infos vergessen haben, verzeiht bitte, ich liefere gerne alle Infos!
Vielen herzlichen Dank vorab,
Frank
als blutiger ABAP-Anfänger stehe ich derzeit vor eine Anforderung, die mich relativ ratlos zurücklässt. Ich soll einen Funktionsbaustein entwickeln (ZAL_ARCHIVER), mit dem extern angelieferte Dokumente archiviert werden.
Damit dieser FuBau nicht doppelt aufgerufen werden kann soll ich folgenden Fall abfangen:
In einer Tabelle ZAL_LOCK soll überprüft werden, ob im Feld CALL_PROGRAM (aufrufendes Programm) ein Eintrag ZAL_ARCHIVER vorhanden ist.
Wenn ja, soll ich überprüfen, ob das Feld MAILSENT (CHAR 1) den Wert 'X' hat.
->Wenn ja, soll der FuBau beendet werden.
->Wenn nein, soll der Wert 'X' gesetzt werden
Wenn nein, soll die Sperre gesetzt werden durch folgende Einträge in der Tabelle ZAL_LOCK (Felder: MANDANT, CALL_PROGRAM, SAP_USER, LOCKDATE, LOCKTIME, MAILSENT)
CALL_PROGRAM = ZAL_ARCHIVER
SAP_USER = sy-UNAME
LOCKDATE = sy-DATLO
LOCKTIME = sy-TIMLO
MAILSENT = leer
Derzeit stehe ich wie gesagt ratlos da. Deshalb wäre ich für jede Hilfe oder jedes Stückchen Code sehr, sehr dankbar.
Sollte ich das falsch formuliert haben, oder elementare Infos vergessen haben, verzeiht bitte, ich liefere gerne alle Infos!
Vielen herzlichen Dank vorab,
Frank
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Hallo,
ich frage mich ob die Anforderung so sinnvoll ist.
Funktionsbaustein (ZAL_ARCHIVER) soll abbrechen wenn schon ein anderer Task läuft, der den selben Funktionsbaustein nutzt?
Variante 1: So wie gefordert, würde ich aber so nicht umsetzen lassen.
Select auf ZAL_LOCK für CALL_PROGRAM = ZAL_ARCHIVER into ls_ZAL_LOCK
Dann hast Du den Eintrag aus ZAL_LOCK .
Wenn ls_ZAL_LOCK-Mail = "X" dann beende Funktionsbaustein (Ausnahme, Fehlermeldung,...)
ansonsten Bau den Eintrag zusammen und modifiziere die Tabelle ZAL_LOCK (vorher Sperreintrag setzen und nachher wieder entsperren)
Commit Work nicht vergessen, damit der andere Aufruf den Eintrag sieht.
am Ende des Funktionsbausteins nochmal die Tabelle ZAL_LOCK für Mail = "" updaten.
Der Haken daran: Wenn Funktionsbaustein (ZAL_ARCHIVER) abbricht, dann bleibt ZAL_LOCK-Mail = "X" stehen und kein nachfolgender Prozess tut noch irgendwas, bis jemand das X von der Datenbank kratzt.
Variante 2: Entsprechenden Sperreintrag auf Tabelle ZAL_LOCK setzen und da den RC abfragen. Wenn schon gesperrt, dann Funktionsbaustein abbrechen ansonsten erst am Ende des Funktionsbausteins die Sperre wieder aufheben. Wenn Funktionsbaustein (ZAL_ARCHIVER) abbricht, dann wird auch die Sperre entfernt.
Als Berater liefere ich keinen Code.
ich frage mich ob die Anforderung so sinnvoll ist.
Funktionsbaustein (ZAL_ARCHIVER) soll abbrechen wenn schon ein anderer Task läuft, der den selben Funktionsbaustein nutzt?
Variante 1: So wie gefordert, würde ich aber so nicht umsetzen lassen.
Select auf ZAL_LOCK für CALL_PROGRAM = ZAL_ARCHIVER into ls_ZAL_LOCK
Dann hast Du den Eintrag aus ZAL_LOCK .
Wenn ls_ZAL_LOCK-Mail = "X" dann beende Funktionsbaustein (Ausnahme, Fehlermeldung,...)
ansonsten Bau den Eintrag zusammen und modifiziere die Tabelle ZAL_LOCK (vorher Sperreintrag setzen und nachher wieder entsperren)
Commit Work nicht vergessen, damit der andere Aufruf den Eintrag sieht.
am Ende des Funktionsbausteins nochmal die Tabelle ZAL_LOCK für Mail = "" updaten.
Der Haken daran: Wenn Funktionsbaustein (ZAL_ARCHIVER) abbricht, dann bleibt ZAL_LOCK-Mail = "X" stehen und kein nachfolgender Prozess tut noch irgendwas, bis jemand das X von der Datenbank kratzt.
Variante 2: Entsprechenden Sperreintrag auf Tabelle ZAL_LOCK setzen und da den RC abfragen. Wenn schon gesperrt, dann Funktionsbaustein abbrechen ansonsten erst am Ende des Funktionsbausteins die Sperre wieder aufheben. Wenn Funktionsbaustein (ZAL_ARCHIVER) abbricht, dann wird auch die Sperre entfernt.
Als Berater liefere ich keinen Code.
Folgende Benutzer bedankten sich beim Autor A6272 für den Beitrag (Insgesamt 2):
ewx • Frank Schmitt
Auf jeden Fall, Variante 2!! Sperreinträge über eine Datenbanktabelle macht man gar nicht!A6272 hat geschrieben: ↑11.10.2022 14:32Variante 2: Entsprechenden Sperreintrag auf Tabelle ZAL_LOCK setzen und da den RC abfragen. Wenn schon gesperrt, dann Funktionsbaustein abbrechen ansonsten erst am Ende des Funktionsbausteins die Sperre wieder aufheben. Wenn Funktionsbaustein (ZAL_ARCHIVER) abbricht, dann wird auch die Sperre entfernt.
also entweder ein eigenes Sperrobjekt definieren oder einen generellen Sperrbaustein nutzen, wie z.B: ENQUEUE_E_TABLE. Als Tabelle kannst du einen beliebigen Namen verwenden, zum Beispiel den des Funktionsbausteins.
Ein weiterer Haken ist der Abbruch des Bausteins. In dem Fall hättest du manchmal nicht archivierte Objekte. Du solltest dich also darum kümmern, dass der Baustein entweder erneut startet oder einfach wartet. so in etwa:
Code: Alles auswählen.
data sperre type c length 1 value 'X'.
while sperre = 'X'.
CALL FUNCTION 'ENQUEUE_E_TABLE'
EXPORTING
tabname = 'EINDEUTIGER_NAME'
...
IF sy-subrc > 0.
wait up to 1 seconds.
else.
sperre = space.
endif.
endwhile.
Folgende Benutzer bedankten sich beim Autor ewx für den Beitrag:
Frank Schmitt
Beitrag
von a-dead-trousers (Top Expert / 4414 / 224 /
1186
)
»
@ewx
Dafür gibts eigentlich den Parameter _WAIT bei jedem ENQUEUE-Baustein.
Wem die im Systemprofil voreingestellte Wartezeit "zuwenig" ist, kann natürlich noch zusätzlich mit WAIT spielen. Nur würde ich hier aber auch nicht empfehlen bis zum St. Nimmerleinstag (Endlosschleife!) auf die Sperre zu warten. Irgendwann ist einfach mal gut und man muss abbrechen. Da hat sich die SAP mit dem Profilparameter schon was dabei gedacht.
Dafür gibts eigentlich den Parameter _WAIT bei jedem ENQUEUE-Baustein.
Wem die im Systemprofil voreingestellte Wartezeit "zuwenig" ist, kann natürlich noch zusätzlich mit WAIT spielen. Nur würde ich hier aber auch nicht empfehlen bis zum St. Nimmerleinstag (Endlosschleife!) auf die Sperre zu warten. Irgendwann ist einfach mal gut und man muss abbrechen. Da hat sich die SAP mit dem Profilparameter schon was dabei gedacht.
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag (Insgesamt 3):
ewx • Tron • Frank Schmitt
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Seite 1 von 1
Vergleichbare Themen
2
Antw.
Antw.
3617
Views
Views
6
Antw.
Antw.
3361
Views
Views
3
Antw.
Antw.
3139
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
CL_GUI_ALV_GRID - Zeilen auf Read-Only / Editierbar schalten
vor 5 Tagen von a-dead-trousers 5 / 2181
vor 5 Tagen von a-dead-trousers 5 / 2181
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.
Aktuelle Forenbeiträge
CL_GUI_ALV_GRID - Zeilen auf Read-Only / Editierbar schalten
vor 5 Tagen von a-dead-trousers 5 / 2181
vor 5 Tagen von a-dead-trousers 5 / 2181