Cet exemple illustre l'écriture et la lecture (directe ou temporisée) dans deux dataqueues (FIFO et KEYED) décrites depuis l'utilitaire "Constructeur RPC-DTAQ".
Ecriture :
HAjoute(DTAQ_FIFO)
Lecture FIFO :
HLitRecherchePremier(DTAQ_FIFO,Timeout,valeurTimeout)
Lecture KEYED :
HLitRecherchePremier(DTAQ_KEY,DTAQ_KEY,cléco)
Extrait du code
// lecture temporisée sur la valeur en secondes de timeout
Cléco, Timeout, filer, order, key, sData sont des chaînes
timeout=Val(SAI_TIMEOUTK)
filer=" "
order=Gauche(COMBO_OP[COMBO_OP],2)+" " // opérateur EQ, GT, GE, LT ou LE
key=SAI_CLE
cléco=HConstruitValClé(DTAQ_KEY,DTAQ_KEY,timeout, filer, order, key)
HLitRecherche(DTAQ_KEY,DTAQ_KEY,cléco)
SI HTrouve ALORS
SAI_MSG2=DTAQ_KEY.Data
SINON
Info("Pas trouvé")
FIN