× 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.



1- Consider making a format just for the messages. Then, on that format, use the LOCK keyword and the FRCDTA keyword.

2- On occasion I have used a Progress Bar.
http://www.martinvt.com/Older_Code/Progress_Bar/progress_bar.html

3- Have you considered using an ERRSFL for your display and dealing with the messages in the display file instead of the RPG program?




On 11/23/2012 4:34 AM, Jonathan Mason wrote:
I have a simple home-grown menu program written in RPG that uses a message subfile to display errors to the user. I would like to extend the use of the subfile to display a "job is processing" status message to the user after the Enter key has been pressed and that will disappear when the menu is redisplayed.

An extract of the program is shown below:

DoW Cmd_F3 = Not Pressed;

// Display the subfile to the user...
MsgSflDsp = Yes;
MsgSflDspCtl = Yes;

Write(e) FOOTER;
Write(e) MSGCTL01;
Write(e) SFLCTL02;
ExFmt(e) SELECTION;

// Clear the error message subfile...
CallP(e) RmvPgmMsg ('*' : 0 : *Blanks : '*ALL' : MsgErr);

...
...

// Display "Processing" message...
CallP(e) SndPgmMsg('CPF9898' : MsgFile : %Trim(aMsg(6)) :
%Len(%Trim(aMsg(6))) : '*DIAG' : sdsProc : 0 :
MsgKey : MsgErr);
Write(e) MSGCTL01;

// Run the menu option...
CallP(e) QCAPCMD (%Trim(MDTARGET) : %Len(%Trim(MDTARGET)) :
CPOP0100 : %Size(CPOP0100) : 'CPOP0100' : wRtnCmd :
%Size(wRtnCmd) : wRtnCmdLen : ApiError);

...
...
EndDo;

The program uses the QMHSNDPM System API and works fine sending *DIAG messages to the display. I have tried using *STATUS, *INFO and *DIAG to try and achieve the desired effect, but the best I can do is for the "processing" message to be displayed after the option has completed.

I have tried all combinations of the three message types as well as writing the MSGSFLCTL format (or not) immediately after sending the message, but to no avail. Status messages from the called programs/commands do appear, so it must be possible.

Any ideas?

Thanks

Jonathan


________________________________
Proud partner of The Ageas Bowl and the Ageas Salisbury International Arts Festival.

Registered Address: Ageas House Tollgate Eastleigh Hampshire SO53 3YA Registered Number: 354568 England
Authorised and regulated by the Financial Services Authority

This e-mail together with any attachments are intended for the addressee only and may be private and confidential. If you are not the intended recipient, or the person responsible for delivering it to the intended recipient, you must not open any attachments, or copy, disclose, distribute, retain or use this e-mail, including any attachments, in any way whatsoever; please return it to us immediately using the reply facility on e-mail.

Consider the environment and think before you print this email.



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.