Re: Sending status messages to program message queue using QMHSNDPM

["Brian Johnson" <brian.johnson.mn@xxxxxxxxx>]

You might prefer CPF9897 if you don't like the 2nd-level text you get with
CPF9898.


On 7/5/07, Wayne McAlpine <wayne.mcalpine@xxxxxxxxxxxxxxxxx> wrote:
> You have to send a predefined message of type *STATUS to the *EXT
> message queue.  Message CPF9898 is reserved for this use.
>
> Jonathan Mason wrote:
> > I have an ILE program running that performs variable amounts of work
> over a
> > number of libraries and want to send progress messages to a program
> message
> > queue while the job is running.
> >
> > The setup I have is:
> >
> >       PGM_A consists of two modules MOD_1 and MOD_2 and two service
> > programs SRV_1 and SRV_2
> >
> >       MOD_1 has a display file defined which includes a message subfile
> >
> >       MOD_1 calls MOD_2 to do the work
> >
> >       MOD_2 calls sub-procedure PROGRESS which is found in SRV_1
> >
> >       Sub-procedure PROGRESS in turn calls the SNDPGMMSG sub-procedure
> > which is in SRV_2
> >
> >       Sub-procedure SNDPGMMSG calls the QMHSNDPM system API
> >
> > I have tried various combinations of setting the call stack entry
> parameter
> > for the API to "*" and "*EXT" as well as passing in the program, object
> and
> > module, and the most success I have is passing in the appropriate values
> for
> > PGM_A and MOD_1.  However, the messages don't appear on the display
> until
> > the process completes and the message subfile control is rewritten.
> >
> > Does anybody know if it is possible to have the status messages pop up
> on
> > the display while the job is running and what I need to do to achieve
> it.
> >
> > Thanks
> >
> > Jonathan
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.