1) "DTAQ_KEY" fait partie de *LIBL
asdqi est un ASDataQueueInfo
SI PAS ASDataQueueInfo(asdqi,PrinciConnexion,"DTAQ_KEY") ALORS
Info(ErreurInfo(errComplet))
SINON
SAI_DQK = "LIBRARY = " + asdqi.dataQueueLib + RC + "Type = " + asdqi.sequenceDesc + RC + "Description = " + asdqi.dataQueueDescription +
RC + "Number of messages = " + asdqi.nbMessage + RC + "Key length = " + asdqi.keyLength
FIN
2) Spécification de la bibliothèque contenant la dataqueue
asdqi est un ASDataQueueInfo
SI PAS ASDataQueueInfo(asdqi,PrinciConnexion,SAI_DQname, SAI_DQlib) ALORS
Info(ErreurInfo(errComplet))
SINON
SAI_DQK2 = "LIBRARY = " + asdqi.dataQueueLib + RC + "Type = " + asdqi.sequenceDesc + RC + "Description = " + asdqi.dataQueueDescription +
RC + "Number of messages = " + asdqi.nbMessage
FIN