Re: message text from message subfile does not appear in window

[Alan Campin <alan0307d@xxxxxxxxx>]

How about this. Write to display of subfile messages goes first.

 DoW cTRUE;

   // Display subfile messages.
   DisplaySubfileEndOnSubfileMessageQueue = cTrue;
   SFM_C_PGMQ = '*';
   Write SFMSG_CTL;

   If g_RecordsLoadedInSubfile > 0;
     DisplaySubFile = cTrue;
   Else;
     DisplaySubfile = cFalse;
     Write RD01_01B;                     // Blank screen

   EndIf;
   DisplaySubFileControl = cTrue;

   Write RD01_01O;                       // Overlay

   ExFmt RD01_01C;



On Thu, Jul 9, 2015 at 1:59 PM, Gary Thompson <gthompson@xxxxxxxxxxx> wrote:

> I have an RPGLE program that displays a window where the user is to be
> able to update a file we use
> to store parameters which control a local application.
>
> The subfile for parameter records currently works as expected.
>
> My problem is when the program detects an invalid value and calls QMHSNDPM
> to send error text to
> the message subfile, the message does >not< appear on the screen.
>
> I see the error text in the job log, and don't see device errors so I
> guess I have an error with screen IO:
>
> WRITE "window rec"
> EXFMT "subfile control rec"
> WRITE "message control rec"
>
> The "message subfile rec" specifies SFLMSGRCD(17) which I selected because
> I want messages to show
> on line 17 of the window, just below text for F keys and above the bottom
> window border.
>
> Thanks for any suggestions!
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.