Vraag : iSeries - veelvoudige het berichtrij van de Monitor

Ik zou veelvoudige MSGQ op iSeries willen onophoudelijk controleren. Specifiek zou ik QSYSOPR en de Qsysmsgq- berichtrijen willen controleren. Ik ga het bevel gebruiken RCVMSG.  Als een bericht wordt gevonden, zal ik een e-mail met de details en dan terugkeer naar de controle van queue.

Will verzenden ik 2 afzonderlijke cl- programma's moet hebben - voor controle QSYSOPR en andere voor controle QSYSMSGQ?  Is het mogelijk om in één cl te doen?
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

MONITOR:                                                              
                                                                      
   (QSYS/QSYSOPR) MSGTYPE (*INQ) WACHTTIJD RCVMSG MSGQ (*MAX) +           
                RMV (*NO) MSG (&BODY1) SECLVL (&BODY2)                   
                                                                      
             TYPE SNDDST (*LMSG) TOINTNET (([email protected] + 
                          *PRI) ([email protected] *CC)) +           
                          DSTD (&SUBJECT) LONGMSG („Probleem: “ *CAT +   
                          „: /N“ *CAT &BODY1 *CAT „: /N: /N“ *CAT +     
                          De „details van het probleem: “ *CAT „: /N“ *CAT +        
                          &BODY2)                                                                       
   GOTO CMDLBL (MONITOR)

Antwoord : iSeries - veelvoudige het berichtrij van de Monitor

Maximum zegt hier „blok tot een nieuw bericht wordt ontvangen. “

Boete voor verwerking één rij, maar niet aanvaardbaar voor opiniepeilings veelvoudige rijen.

Voor veelvoudige rijen wilt u snel zien I er een berichtwachten is.

Merk ook op dat als een bericht op een bepaalde rij wordt ontvangen u op die rij zou kunnen willen van een lus voorzien tot alle berichten eerder dan het krijgen van de volgende rij worden ontvangen.

Doe tot niet meer berichten
    Ontvang queue1 wachttijd 0
eind
doe tot niet meer berichten
   Ontvang q2 wachttijd 0
eind
enz.
vertraging
goto bovenkant
terwijl msgid <> '  
Gepost via Mobiel EE
Andere oplossingen  
 
programming4us programming4us