Re: QMHSNDM

CPG9898 or CPF9897 can be used for this.


Op 23-11-2020 om 17:45 schreef Jay Vaughn:

D SndMsgQueue PR EXTPGM('QMHSNDM')
D MsgId 7a const
D MsgFile 20a const
D MsgData const like(AuditText)
D MsgDataLen 10i 0 const
D MsgType 10a const
D MsgQueue 20a const
D MsgQueue# 10i 0 const
D MsgQueueRpy 20a const
D MsgKey 4a
D MsgError like(qerrc0100_t)

So this api is designed to send a message to a message queue.
My understanding is...

If a MsgID is specified then that message text is pulled from
msgfile/msglib parms.
Additionally, if there is text in MsgData then it will append that data
into any & substitution vars defined in the msgID/msgtext.

If a MsgID is not specified, then the message in MsgData is passed to the
message queue as-is.

In my program what I am wanting to do is be sure a particular valid msgID
is referenced when you view the message details in the message queue,

but I

want to put my own dynamically built message with that msgId. I know

that

sounds rather odd, but that is the mission.

I do not want to mess with any of the existing msgId's in the message

file

to allow my dynamic message info to be appended to them via
substitution variables.

Is there a way with this API or another API to accomplish what I want?

tia

Jay

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com