RE: Sending status messages to program message queue using QMHSNDPM

Hi Wayne,

Thanks for that, I had tried using *STATUS messages and the *EXT message
queue but it hadn't worked. In the end I hard coded the call to QMHSNDPM
directly within the PROGRESS procedure instead of calling the SNDPGMMSG
procedure and using *EXT worked.

I don't know why it didn't work using the extra level in the call stack, but
I'm happy it's working now.

Thanks again.

Jonathan

-----Original Message-----
From: midrange-l-bounces+jonathan.mason=astradyne-uk.com@xxxxxxxxxxxx
[mailto:midrange-l-bounces+jonathan.mason=astradyne-uk.com@xxxxxxxxxxxx] On
Behalf Of Wayne McAlpine
Sent: 05 July 2007 17:50
To: midrange-l@xxxxxxxxxxxx
Subject: Re: Sending status messages to program message queue using QMHSNDPM

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