PreviousNext
Help > Développement > Fonctions W-Langage pour AS/400 > Fonctions DataQueue > Exemples >
1) Ecriture et lecture – Data Queue 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>

]

 

HOuvreConnexion(MaConnexionpower8)

 

sClé = SAI_Clé1

 

asdq est une ASDataQueue

asdq.description            = sdq_pcml

asdq.library                = "EASYCOMXMP"

asdq.name                   = "DTAQ_KEY"

asdq.timeout                = 0

asdq.remove                 = true

 

 

 

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

       Info(ErreurInfo(errComplet))

SINON

       Info("Ecriture effectuée")

FIN

 

//Read

data est chaîne sur 50

 

SI PAS ASLitDataQueueCle(asdq, "EQ", data, SAI_Clé1) ALORS

       Info(ErreurInfo(errComplet))

SINON

       Info(data)

FIN