Comments on: Multiple message subfiles – one in a window

By: tomliotta

tomliotta — Tue, 20 Oct 2009 05:28:47 +0000

Without seeing what this does:

call 'QMHSNDPM' P$sndm

...it's going to be guesswork. First guess is that messages aren't sent correctly. Tom

By: tabbycat

tabbycat — Wed, 16 Mar 2005 11:23:09 +0000

Here’s the logic for my ClrMsg subrtn. I pass it the pgmq
and key for the window msgsfl and it always occurs AFTER
the write of the screen:
ClrMsg begsr
call ‘QMHRMVPM’ P$clrm
endsr

By: askdave

askdave — Wed, 16 Mar 2005 11:11:12 +0000

Does your ClrMsg routine by any chance do a write the message control record on the main screen? After the EXFMT for the window, you must be careful to only refer to formats that are within the window. I have a separate clear routine that I use for each different window that contains a message subfile.

By: tabbycat

tabbycat — Wed, 16 Mar 2005 10:32:59 +0000

Yes it’s there. I may have missed it when copying things. The window’s keywords are
WINDOW(3 20 17 35)
CF03
CF12
OVERLAY
RMVWDW

By: thequigs

thequigs — Tue, 15 Mar 2005 20:35:02 +0000

I don’t see it in your post, but do you have an ‘OVERLAY’ keyword on the STATICW record? If not, the message subfile will be erased from the screen with your EXFMT STATICW.

By: tabbycat

tabbycat — Tue, 15 Mar 2005 10:08:09 +0000

My window STATICW contain the static data and the function keys. It’s also the window that the msgsfl is “based on”.
These are the steps I take to display –
Write staticw
Write msgctlw
exftm staticw

Am I missing something?

By: scubablue

scubablue — Tue, 15 Mar 2005 04:49:02 +0000

Sorry…didn’t see it there before..I’m blind to non-green!
OK..just reminded myself of how I achieve it.
Do you have a skeleton or based on window..if so:
I write the skeleton window first, followed by function keys format, followed by the message subfile, followed by an EXFMT to the window data as follows;
Write Scr02w (skeleton window format)
Write Keys04 (function keys)
Write Messages2 (message subfile in window)
Exfmt ConfrmA (window static data..)
Exsr SR_Clr_Msgqw
This works fine for me.