RE: QMHRCVPM & v7r3

Scott,

You are absolutely correct! The reason it was 3 is because I noticed it worked in the past so I just went with the flow and because I didn't fully understand the details of QMHSNDPM and my bad assumption about the call stack entries, I guess I set my self-up for this one. I'm learning the hard way. :-)

Thanks for your help!

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Klement
Sent: Tuesday, June 19, 2018 2:18 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: QMHRCVPM & v7r3

Larenzo,

You are sending this to 3 call stack entries earlier than the program that's calling QMHSNDPM.  I wonder why you picked "3"? How do you know it will always be 3, never more, and never less?

My guess is that 3 entries back is QDBPUT, and that's why you're getting this back.  Obviously, since your program is called by an IBM routine, they can choose to use any number of call stack entries, and change it whenever they want.  You'll need to troubleshoot your program to find out exactly what's going on, here... and look at the call stack at the appropriate time to see if I'm right.  But, it seems dangerous to me to "just assume" it'll always be 3 calls stack entries.

-SK


On 6/19/2018 1:03 PM, Larenzo Alexander wrote:

We recently upgraded from v7r1 to v7r3 and then my applications using QMHRCVPM to retrieve the program that cause the database to fire the trigger stop working. Any ideas why and the solution? Or if there is a better way to retrieve the program name that cause the trigger to fire? My variable is getting set to 'QDBPUT '


// ---Receive Pgm Message Format RCVM0200 data Layout---------------
D RCVM0200 DS
D RcvPgmNam 10a overlay(rcvm0200:111)
D TestNpgm 1a overlay(RcvPgmNam:2)

// ---aou error return code-----------------------------------------
D vApiErrDs DS
D vbytpv 10i 0 inz(%size(vApiErrDs))
D vbytav 10i 0 inz(0)
D vmsgid 7a
D vresvd 1a
D vrpldta 50a

// ---Send messages------------------------------------------------
D qmhsndpm PR ExtPgm('QMHSNDPM')
D 7a const
D 20a const
D 65a const
D 10i 0 const
D 10a const
D 10a const
D 10i 0 const
D 4a
Db like(vApiErrDS)

// ---Receive messages----------------------------------------------
D qmhrcvpm PR ExtPgm('QMHRCVPM')
Db like(rcvm0200)
D 10i 0 const
D 8a const
D 10a const
D 10i 0 const
D 10a const
D 4a
D 10i 0 const
D 10a const
Db like(vApiErrDS)


// ---------------------------------------------
// Get program's name that is updating the file.
// Send message to 3rd job in stack.
// Program name that replies, fired the trigger.
// ---------------------------------------------
callp QMHSNDPM(' ':'QCPFMSG QSYS ':
'Message Data':65:'*INFO ':'* ': 3:MsgKey:vApiErrDS);

callp QMHRCVPM(rcvm0200:%size(rcvm0200):'RCVM0200':'*':0:'*INFO '
MsgKey:0:'*REMOVE ':vApiErrDS);

ProcedureName1 = %proc();


// Only run for ATV Units Offline program if RcvPgmNam = 'VIN020R';

--
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: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD