MQseries :: Wachtrij MQSERIES :: Wachtrij is een OO-interface naar de MQSERIES-wachtrij-objecten.
Download nu

MQseries :: Wachtrij Rangschikking & Samenvatting

MQseries :: Wachtrij Tags

Perl-module koppel Mqseries Oo OO-interface Mqseries-objecten

MQseries :: Wachtrij Beschrijving

MQSERIES :: Wachtrij is een OO-interface naar de MEQSERIES-wachtrij-objecten. MQSERIES :: Wachtrij is een OO-interface naar de MQseries-wachtrij Objects.Synopsis Gebruik MQseries; Gebruik MQseries :: Wachtrij; Gebruik mqseries :: bericht; # # Open een wachtrij voor output, loop berichten ontvangen, wat #-database bijwerken met de gegevens. # Mijn $ in de wachtrij = MQSERIES :: wachtrij-> NIEUW (QUEUEMANAGER => 'Sommige.QUEUE.MANAGER', QUEUE => 'Sommige.queue', modus => 'Input_exclusive',) of sterven ("Kan de wachtrij niet openen. N"); TERWIJL (1) {MY $ GETMESSAGE = MQSERIES :: MESSAGE-> NIEUW; $ in de wachtrij-> Krijg (bericht => $ GetMessage, synchronisatie => 1,) of sterven ("Kan Messagen niet krijgen". "Compcode =". $ wachtrij-> Compcode (). "N". "Reden =". $ wachtrij-> reden (). "N"); If (UpdateMedatabase ($ GetMessage-> DATA ())) {$ queue-> queuemanager () -> commit () of sterven ("Kan geen wijzigingen in Queue.n". "Compcode =". $ wachtrij-> Compcode (). "N". "Reden =". $ wachtrij-> reden (). "N"); } else {$ queue-> queumeanager () -> Back-out () of sterven ("Niet in staat om aan te wisselen naar wachtrij.n". "Compcode =". $ wachtrij-> Compcode (). "N". "Reden =" . $ wachtrij-> reden (). "N"); }} # # Plaats een bericht in de wachtrij, met het vastberaden om het gebruik van # referenties als berichtgegevens toe te staan. (Opmerking: dit gebeurt voor u als u de # MQSERIES :: Message :: Storable Class.) # Gebruik opbergen; Mijn $ wachtrij = MQseries :: Queue-> NIEUW (QUEUMEMANAGER => 'Sommige.QUEUE.MANAGER', QUEUE => 'Sommige.queue', modus => 'Output', putconvert => Storable :: Nfreeze, GetConvert => Opslagbaar :: Thaw,) of sterven ("Kan Queue niet openen"); My $ PutMessage = MQseries :: Message-> NIEUW (gegevens => {A => , E => {f => "huh?", G => "WOW!",}, h = > 42,},); $ wachtrij-> Put (bericht => $ putmessage) of sterven ("Kan geen bericht plaatsen op wachtrij.n". "Compcode =". $ wachtrij-> Compcode (). "N". "Reden =". $ wachtrij -> Reden (). "N"); # # Alternatief mechanisme voor het opgeven van de conversieroutines. # Mijn $ wachtrij = MQseries :: wachtrij-> NIEUW (QUEUEMANAGER => 'Sommige.queue.Manager', wachtrij => 'Sommige.quue', modus => 'output',) of sterven ("Kan de wachtrij niet openen. N"); My $ PutMessage = MQseries :: Message-> NIEUW (gegevens => {A => , E => {f => "huh?", G => "WOW!",}, h = > 42,},); $ wachtrij-> Put (bericht => $ putmessage putconvert => bewaarbaar :: bevriezen,) of sterven ("Kan geen bericht plaatsen op wachtrij.n". "Compcode =". $ wachtrij-> Compcode (). "N" . "Reden =". $ Wachtrij-> reden (). "N"); Vereisten: · Perl

MQseries :: Wachtrij Gerelateerde software