-
MONMSG: Inhalt abfragen
Hallo,
wir haben in zahlreichen CL-Programmen MONMSG-Abfragen, unter anderem fragen wir CPF3773 ab (&1 Objekte zurückgespeichert. &2 nicht in &4 zurückgespeichert).
Gibt es eine Möglichkeit, hier (und in diversen ähnlichen CPF-MONMSG-Konstrukten) eine inhaltliche Prüfung durchzuführen - z.B. um zu prüfen, ob es tatsächlich Objekte gibt, die nicht zurückgespeichert wurden?
Momentan laufen die Programme auch in die Fehlerroutine MONMSG MSGID(CPF3773), wenn die Meldung lautet:
"14 Objekte zurückgespeichert, 0 nicht in Biblitohek zurückgespeichert".
Vielen Dank im Voraus,
Jörg Hamacher
-
Natürlich; man kann mit RCVMSG die Nachricht empfangen und somit auch die Nachrichtendaten. Bei CPF3773 interessiert Dich &2, das ist eine 4 Byte lange Zahl, ab Stelle 5 in den Nachrichtendaten. Wenn Dich die Zahl selber nicht interessiert, kann man die 4 Bytes auch mit der Zeichenfolge x'00000000' vergleichen.
Code:
DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(512)
DCL VAR(&HEX004) TYPE(*CHAR) LEN(4) VALUE(X'00000000')
...
MONMSG MSGID(CPF3773) EXEC(DO)
RCVMSG MSGQ(*PGMQ) MSGTYPE(*LAST) RMV(*NO) +
MSGDTA(&MSGDTA)
IF COND(%SST(&MSGDTA 5 4) *NE &HEX004) THEN(DO)
/* Hier ist klar, dass mind. 1 Objekt nicht zurückgespeichert wurde. */
ENDDO
ENDDO
-
Mit DSPMSGD CPF3773 sieht man die Nachrichtendetails und unter "Felddaten anzeigen" sieht man weitere Informationen zu den einzelnen Feldern der Nachricht.
-
Statt Hex kann man auch %bin(%sst(&msgdta 5 4)) verwenden.
-
Zitat von Fuerchau
Statt Hex kann man auch %bin(%sst(&msgdta 5 4)) verwenden.
... Und mit %INT() oder %UINT() kann man gleich den Integer-Wert ermitteln.
Birgitta
Similar Threads
-
By c.b. in forum NEWSboard Programmierung
Antworten: 23
Letzter Beitrag: 06-01-16, 13:29
-
By TheDevil in forum NEWSboard Programmierung
Antworten: 6
Letzter Beitrag: 05-06-14, 21:47
-
By hs in forum IBM i Hauptforum
Antworten: 6
Letzter Beitrag: 14-08-02, 07:09
-
By delphix in forum IBM i Hauptforum
Antworten: 10
Letzter Beitrag: 23-01-02, 14:02
-
By Schnichels in forum IBM i Hauptforum
Antworten: 5
Letzter Beitrag: 14-11-01, 19:28
Tags for this Thread
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks