sdq_pcml is string =
<pcml version="4.0">
<program name=" ExampleDQK " >
<data name="data" type="char" length="200" usage="input"/>
<data name="key" type="char" length="10" usage="input"/>
</program>
</pcml>
]
IF NOT ASDataQueueSend(sdq_pcml, "*LIBL/DTAQ_KEY", cnxConnection, sData, sKey) THEN
Error("Write failed")
END