QMHSNDPM in a RPGLE Program

["Eric Wolf" <eric_a_wolf@xxxxxxxxxxx>]

[ Converted text/html to text/plain ]

To the group,

This is almost like the user with the service program problem.  Here is my
problem:

Pgm A calls Pgm B (which handles all Error checking).  When an error is found,
the QMHSNDPM pgm is called in Pgm B with the following parms - MSGTYPE=*DIAG,
MSGQUE=*, and MSGSTACK=1 (I have tried 1-6).

I can see the issued message using WRKUSRJOB-Display Joblog, but the message
does not display in the message subfile for the display format.  The funny
thing is this - prior to converting these programs to RPGLE, it work fine as
RPG programs.

Any help would be greatly appreciated...

Eric A. Wolf

Midrange Implementation Specialists
>From: MWalter@hanoverwire.com
>Reply-To: rpg400-l@midrange.com
>To: rpg400-l@midrange.com
>Subject: QMHSNDPM in a Service Program
>Date: Tue, 23 Apr 2002 13:58:38 -0400
>
>hello all,
>
>I am trying to clean up some old code by replacing /copys to QMHSNDPM with
>a service program. I use a '*' in the sflpgmq field. I'm getting a 'Call
>stack entry not found' error when writing the message subfile control
>record. What am I missing?
>
>
>Thanks,
>
>Mark
>
>
>Mark Walter
>Sr. Programmer/Analyst
>Hanover Wire Cloth a div of CCX, Inc.
>mwalter@hanoverwire.com
>http://www.hanoverwire.com
>717.637.3795 Ext.3040
>
>_______________________________________________
>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
>To post a message email: RPG400-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
>or email: RPG400-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/rpg400-l.
>

------------------------------------------------------------------------------
Join the world’s largest e-mail service with MSN Hotmail. Click Here[1]

===References:===
  1. http://g.msn.com/1HM105401/47