PL/I declaration
dcl
1 MQPMO based,
3 StrucId char(4), /* Structure identifier */
3 Version fixed bin(31), /* Structure version number */
3 Options fixed bin(31), /* Options that control the action
of MQPUT and MQPUT1 */
3 Timeout fixed bin(31), /* Reserved */
3 Context fixed bin(31), /* Object handle of input queue */
3 KnownDestCount fixed bin(31), /* Number of messages sent
successfully to local queues */
3 UnknownDestCount fixed bin(31), /* Number of messages sent
successfully to remote queues */
3 InvalidDestCount fixed bin(31), /* Number of messages that could
not be sent */
3 ResolvedQName char(48), /* Resolved name of destination
queue */
3 ResolvedQMgrName char(48), /* Resolved name of destination
queue manager */
3 RecsPresent fixed bin(31), /* Number of put message records or
response records present */
3 PutMsgRecFields fixed bin(31), /* Flags indicating which MQPMR
fields are present */
3 PutMsgRecOffset fixed bin(31), /* Offset of first put message
record from start of MQPMO */
3 ResponseRecOffset fixed bin(31), /* Offset of first response record
from start of MQPMO */
3 PutMsgRecPtr pointer, /* Address of first put message
record */
3 ResponseRecPtr pointer; /* Address of first response
record */