by noggin » Tue Nov 02, 2010 10:32 pm
For 4GLs ie. Cobol, PL/1, Natural etc. you can get the trigger information programmatically by calling the MQINQ API passing the appropriate attribute selectors -
attribute selector MQIA-TRIGGER-TYPE (integer value 24) will return 1 for First, 2 for Every, 3 for Depth
attribute selector MQIA-TRIGGER-CONTROL (integer value 28) will return 0 for trigger OFF, 1 for trigger ON
You should be able to do something similar in REXX using RXMQINQ but only one attribute can be inquired upon at a time.
Either way you will have to first open the queue manager for inquiry by calling MQOPEN (RXMQOPEN in REXX) to get an object handle.