-
Cl zur Beantwortung von MSGW's
Hallo,
hat jemand eine Idee, wie ein Programm zur automatischen Beantwortung von bestimmten MSGW's aussehen kann.
Ich möchte auf spezielle Nachrichten verschieden reagieren und MSGW's über das PGM dann auch beantworten lassen, nachdem ich meine Aktionen per PGM durchgeführt habe.
Mir geht es hier speziell um das Filtern der zur Beantwortung anstehenden Fehlermeldungen und die entsprechende Beantwortung dieser.
Danke für Eure Hilfe und Euer Input
Gruss
Andy
-
wir haben hier einen monitorjob, der überwacht die qsysopr meldungen und wenn was ist, gibts eine meldung an die it
automatisch beantworten wäre da auch drin, aber das machen wir hier nicht.
der job arbeitet extrem gruselig
der macht ein "dspmsg qsysopr *print" und arbeitet den spool durch.
ich bin momentan dabei den job auf apis umzubauen, da das konzept vor 15 jahren als das programm geschrieben wurde evtl. mal schön war, mittlerweile aber eher nimmer.
ich denke nur mit CL wirst du das eh nicht hinkriegen.
da programmierst du dich zu tode mit den ganzen substrings und api aufrufen
Gruß
Martin
-
Genau sowas habe ich auch, war nicht so schlimm.
Nur wie kann ich dann die Fehlermeldungen aus dem CL beantworten?
Wenn Du das mit dem API hast, wäre nett das zu verteilen!!
Danke
-
also,
das mit dem API QUSLJOB habe ich hinbekommen. Allse MSGW werden mir angezeigt/zurück gegeben.
Nur will ich ja auf verschiedene Fehlermeldungen unterschiedlich reagieren.
Woher bekomm ich denn nun den MSGKEY her um per SNDRPY die Nachricht zu beantworten?
Danke für Eure Hilfe
Andy
-
ich denke du solltest die nachrichten mit
http://publib.boulder.ibm.com/infoce...s/QMHLJOBL.htm
durchlesen.
die api gibt dir alles zurück, was du brauchst zum beantworten
midrange.com -- MIDRANGE-L -- Re: QMHLJOBL API Example?
auf den ersten blick, ist das hier n passendes beispiel
Gruß
Martin
-
Schaut Euch mal STRWCH an
der hilft Euch (ab V5R4)
Robi
-
Danke für die Tips. Ich werde mich dann mal durch das iSeries Information Center, Version 5 Release 4 kämpfen.
Wenn ich was brauchbares draus gemacht habe, dann kann ich es ja mal hier posten.
Schönes Wochenende.
-
Auto reply from CL
Du kannst diese in CL nutzen, es klappt wundäboar. Das Auto-Reply wird nach Program lauf gelöscht.
Code:
DCL VAR(&SYSRPYCRT) TYPE(*LGL) LEN(1) VALUE('0')
DCL VAR(&JOBRPY) TYPE(*CHAR) LEN(10)
DCL VAR(&RPLYSEQ) TYPE(*DEC) LEN(4 0) VALUE(5555)
...
RTVJOBA INQMSGRPY(&JOBRPY)
CHGJOB INQMSGRPY(*SYSRPYL)
A32B2RETRY: CHGVAR VAR(&RPLYSEQ) VALUE(&RPLYSEQ + 1)
ADDRPYLE SEQNBR(&RPLYSEQ) MSGID(CPA32B2) RPY('I')
MONMSG MSGID(CPF2555) EXEC(GOTO CMDLBL(A32B2RETRY))
CHGVAR VAR(&SYSRPYCRT) VALUE('1')
...
do stuff
...
IF COND(&SYSRPYCRT *EQ '1') THEN(DO)
RMVRPYLE SEQNBR(&RPLYSEQ)
MONMSG MSGID(CPF0000)
CHGJOB INQMSGRPY(&JOBRPY)
ENDDO
Similar Threads
-
By Sony in forum IBM i Hauptforum
Antworten: 27
Letzter Beitrag: 20-07-09, 21:48
-
By schatte in forum NEWSboard Programmierung
Antworten: 19
Letzter Beitrag: 10-01-07, 11:32
-
By RLPforum in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 22-09-06, 09:39
-
By kuempi von stein in forum NEWSboard Programmierung
Antworten: 2
Letzter Beitrag: 19-07-06, 14:34
-
By bo1 in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 23-06-06, 15:00
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