Frage : iSeries - Warteschlange der geketteten Nachricht überwachen

Ich möchte überwache ununterbrochen mehrfache MSGQ auf den iSeries. Spezifisch möchte ich das QSYSOPR und die QSYSMSGQ Warteschlangen für Messages überwachen. Ich werde den RCVMSG Befehl verwenden.  Wenn eine Mitteilung gefunden, sende ich eine eMail mit den Details und zur Überwachung des queue.

Will dann zurückzugehen muss ich 2 verschiedene CL-Programme haben - eins für Überwachung QSYSOPR und das andere für Überwachung QSYSMSGQ?  Ist zu tun möglich, in einem CL? 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

MONITOR:                                                              
                                                                      
   RCVMSG MSGQ (QSYS/QSYSOPR) MSGTYPE (*INQ) WARTEZEIT (*MAX) +           
                RMV (*NO) MSG (&BODY1) SECLVL (&BODY2)                   
                                                                      
             SNDDST ART (*LMSG) TOINTNET (([email protected] + 
                          *PRI) ([email protected] *CC)) +           
                          DSTD (&SUBJECT) LONGMSG („Problem: “ *CAT +   
                          „: /N“ *CAT &BODY1 *CAT „: /N: /N“ *CAT +     
                          „Problem-Details: “ *CAT „: /N“ *CAT +        
                          &BODY2)                                                                       
   GOTO- CMDLBL (MONITOR)

Antwort : iSeries - Warteschlange der geketteten Nachricht überwachen

Maximal sagt „Block hier, bis eine neue Mitteilung empfangen. “

Fein für die Verarbeitung von einer Warteschlange, aber nicht annehmbar für Wahlmehrfachverbindungsstelle ansteht t.

Für mehrfache Warteschlangen möchten Sie schnell sehen, dass I dort eine Mitteilungaufwartung ist.

Auch merken, dass, wenn eine Mitteilung auf einer gegebenen Warteschlange empfangen, Sie auf dieser Warteschlange schlingen wünschen konnten, bis alle Mitteilungen eher als empfangen, die folgende Warteschlange abstimmend.

Bis no more Mitteilungen tun
    Wartezeit 0 empfangen queue1
Ende
bis no more Mitteilungen tun
   Wartezeit 0 empfangen q2
Ende
usw.
Verzögerung
Goto- Oberseite
während msgid <> '  
Bekannt gegeben über EE-Mobile
Weitere Lösungen  
 
programming4us programming4us