MVSFORUMS.com

flatearther

Hi,

Does anyone know if it's possible to turn on the Long Message in Pop-up from a rexx exec? (rather than manually doing it from Settings).

warp5 · Posted: Wed Jan 16, 2008 1:58 am Post subject:

Like this?
lmsg = "Der Fahrplan System wird",
"von "spuser" in "spmach" ver

Bill Dennis · Posted: Wed Jan 16, 2008 9:25 am Post subject:

You want to modify a user's options from within your REXX routine to ensure "Long message in pop-up" is selected?
_________________
Regards,
Bill Dennis

Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity.

flatearther · Posted: Wed Jan 16, 2008 9:52 am Post subject:

Yes that's right. I have a bunch of rexx screens that produce messages designed to be read in pop-ups. Unfortunately the default "Long Message in pop-up" setting is "Off". I'd like to set it "under the covers".

I thought I'd solved it with the below statement. But it gives me a return code of 20.

Address ISPEXEC "ISPFVAR LMSG(ON)"

flatearther · Posted: Wed Jan 16, 2008 9:57 am Post subject:

Warp55,

Yes that's pretty much how I use the long message pop-up. But it won't actually display as a popup unless you have the "Long Message in pop-up" setting (in your Settings screen - Option 0) to "On".

Bill Dennis · Posted: Wed Jan 16, 2008 11:37 am Post subject:

Check out option .WINDOW=NORESP in the message definition to force it into a pop-up even if the user setting is not enabled.
_________________
Regards,
Bill Dennis

Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity.

flatearther · Posted: Wed Jan 16, 2008 12:11 pm Post subject:

Bill, thanks.

I'm not familar with message definitions.

I code messages as follows (example):

zedLmsg = "Screen Display Error. Rc "Rc
Address ISPEXEC "SETMSG MSG(ISRZ001)"

Would I need to track down the message definition for ISRZ001 and add the .WINDOW=NORESP option?

Thanks,
Scott.

flatearther · Posted: Wed Jan 16, 2008 12:40 pm Post subject:

Success!

You can use the ISPFVAR command as follows :

popCmd = 'ISPFVAR LMSG(ON)'
Address ISPEXEC 'DISPLAY panel(panid) COMMAND(popCmd)'

This sets the "Long Message in pop-up" setting to "On".

Thanks for everyone's help!

warp5 · Posted: Thu Jan 17, 2008 2:16 am Post subject:

It occured to me that you might need the message part of that message handling:
BASL100A '&SMSG' .WINDOW=NORESP .TYPE=ACTION
'&LMSG'
BASL100C '&SMSG' .WINDOW=RESP .TYPE=CRITICAL
'&LMSG'
BASL100N '&SMSG' .WINDOW=NORESP .TYPE=NOTIFY
'&LMSG'
BASL100W '&SMSG' .WINDOW=NORESP .TYPE=WARNING
'&LMSG'

Bill Dennis · Posted: Thu Jan 17, 2008 9:01 am Post subject:

flatearther · Posted: Thu Jan 17, 2008 6:42 pm Post subject:

Thanks Bill,

That works well too.