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

 

 

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>

]

 

 

data est chaîne sur 50

 

asdq est une ASDataQueue

asdq.description            = sdq_pcml

asdq.library                = "EASYCOMXMP"

asdq.name                   = "DTAQ_FIFO"

asdq.timeout                = 0

asdq.remove                 = true

 

 

SI PAS ASLitDataQueue(asdq, data) ALORS

       Info(ErreurInfo(errComplet))

SINON

       Info(data)

FIN

 

Voir Exemple.