PreviousNext
Help > Développement > Fonctions W-Langage pour AS/400 > Fonctions DataQueue > ASEcritDataQueue >
Exemples avec la nouvelle syntaxe

 

1) Dataqueue avec clé

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

 

Voir Exemple.

 

2) Dataqueue FIFO

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

 

Voir Exemple.