RE: [possible spam] Re: Sending Escape messages

Alan,
My apologies, I left for lunch and had some little twit blow a red light
and took out the car - and I didn't make it back to work so I missed a
proper follow up.

I will make sure in the future that I respond appropriately, and I
completely agree that responding with the solution helps us all, including
myself when I go searching for the same solution a year from now.

Dutch

It is helpful to the list if you share your resolution to the issue, what
worked or didn't.

If the solution was outside the suggestions, comments or questions on the
thread, someone else could benefit. (Even you, two years from now when you
come across the same thing, lost track of your solution, and have the same
issue).

If someone suggested a solution, we get the same effect.

Even if it's some stupid typo or a head-slapping "How did I miss that?!",
a good chance we all have done it. The only perfect first-time every-time
coders are not on this list. (Or any others)

--Alan


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of CRPence
Sent: Friday, November 08, 2013 12:10 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: [possible spam] Re: Sending Escape messages
Importance: Low

On 08-Nov-2013 06:57 -0800, RPGLIST wrote:

<<SNIP>>

0066.01 *** Escape Message Prototype Declaration
0066.02 D SendEscMsg pr extpgm('QMHSNDPM')
0066.03 D MsgId 7 const
0066.04 D MsgFile 20 const
0066.05 D MsgDta 80 const
0066.06 D MsgDtaLen 10i 0 const
0066.07 D MsgType 10 const
0066.08 D MsgQ 10 const
0066.09 D MsgQNbr 10i 0 const
0066.10 D MsgKey 4 const
0066.11 D ErrorDs 16 const

I realize the issue was resolved already, as noted in a reply; though
with no explanation of what was changed. Regardless, FWiW...

From the docs, the last two (8th and 9th) parameters are:

8 Message key Output Char(4)
9 Error code I/O Char(*)

Thus the /const/ specification on each, seems amiss.

<<SNIP>>

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


--------------------------------------------------------------------------------
Confidentiality Notice: This email may contain confidential information or
information covered under the Privacy Act, 5 USC 552(a), and/or the Health
Insurance Portability and Accountability Act (PL 104-191) and its various
implementing regulations and must be protected in accordance with those
provisions. It contains information that is legally privileged,
confidential or otherwise protected from use or disclosure. This e-mail
message, including any attachments, is for the sole use of the intended
recipient(s). Any unauthorized review, use, disclosure or distribution is
prohibited. You, the recipient, are obligated to maintain it in a safe,
secure and confidential manner. If you are not the intended recipient,
please contact the sender by reply e-mail and destroy all copies of the
original message. Thank you.
--------------------------------------------------------------------------------


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