× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.