Here's some pseudo-code. You can dig around here and find examples of Perl programs that use the perl MQ API, that you can then reapply to this pseudo-code.
If you're asking for real working code, then you probably need to hire someone... This is not a hard thing to do. Really.
Code:
Open a queue manager
Open a queue for browsing
While there are more messages to browse in the queue and the queue manager isn't failing
browse a message
if the message Put Time is older than time to archive then
get the message using it's MessageID
archive the message
end if
end while
This is a basic queue filter operation.
You are likely a lot better off simply using message expiration, and reporting with full data on expiration. Then you can archive the report message. _________________ I am *not* the model of the modern major general.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum