PreviousNext
Help > Development > W-Language Functions for AS/400 > DataQueue functions > ASDataQueueSend > Examples with the new syntax
Examples with the new syntax

 

1) Keyed Dataqueue

sdq_pcml est chaîne =[

       <pcml version="4.0">

       <program name="TESTDQ" >

       <data name="data" type="char" length="200" usage="inputoutput"/>

       <data name="key" type="char" length="10" usage="inputoutput"/>

       </program>

       </pcml>

]

 

 

sClé = SAI_Clé1

 

asdq est une ASDataQueue

asdq.description            = sdq_pcml

asdq.library                = "EASYCOMXMP"

asdq.name                   = "DTAQ_KEY"

asdq.timeout                = 0

 

 

SI PAS ASEcritDataQueue(asdq, SAI_valeur1, sClé) ALORS

       Info(ErreurInfo(errComplet))

SINON

       Info("Ecriture effectuée")

FIN

 

See Example.

 

2) FIFO Dataqueue

sdq_pcml est chaîne =[

       <pcml version="4.0">

       <program name="TESTDQ" >

       <data name="data" type="char" length="50" usage="input"/>

       </program>

       </pcml>

]

 

 

asdq est une ASDataQueue

asdq.description            = sdq_pcml

asdq.library                = "EASYCOMXMP"

asdq.name                   = "DTAQ_FIFO"

asdq.timeout                = 0

 

SI PAS ASEcritDataQueue(asdq, PrinciConnexion,SAI_valeur3) ALORS

       Info(ErreurInfo(errComplet))

SINON

       Info("Ecriture effectuée")

FIN

 

See Example.