RE: Sending status messages to program message queue using QMHSNDPM

Hi Brian

Do you know, I wasn't even aware there was 2nd level text on CPF9898. On
the odd occasion I've used it I've just passed in the message data and be
done. Generally though, and in this case, I use an application specific
message file with the message pre-entered.

Thanks

Jonathan

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Brian Johnson
Sent: 05 July 2007 18:34
To: Midrange Systems Technical Discussion
Subject: Re: Sending status messages to program message queue using QMHSNDPM

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.