RE: Dynamically change the output text on Sign-on screen

midrange-l-request@xxxxxxxxxxxx wrote:

>   3. RE: Dynamically change the output text on Sign-on screen
>      (ganeshkumar.murugesan@xxxxxxxxx)
>
>But how do I attach the message file to the display file ??

Ganesh:

This reply might take some testing before it makes full sense. You might need to see it work...

The link to the IBM document previously provided will tell you all of the information needed to get this done. I use a technique that is a variation of that. The lines that I insert into the signon display file DDS look generally like this:

  A            COPYRIGHT     40A  O 24 40DSPATR(HI)
  A            UBUFFER      128A  H
  A            MSGLINE      640A  O 12  1MSGID(usr 0001 mylib/mymsgf)

Notice that the MSGLINE is defined as being 640 characters long. In this case, that means that a full eight lines of the display are used. If more lines are needed, the size can be increased as much as needed as long as other fields on the display are not interfered with.

IBM's example required a separate message identifier for each line on the display. This example uses a single msgid for all of those lines.

The "trick" is in how the message description is added to the message file.

In this example, the msgid is USR0001 and you would add it to message file MYLIB/MYMSGF. When adding a msgid to a msgf, you can have first-level and second-level text. Normally _only_ the first-level text gets placed in a display file MSGID() field.

However, if you set the first-level text to be the same as the msgid, then the second-level text will be used instead. Example:

==> addmsgd msgid( USR0001 ) +
msgf( mylib/mymsgf ) +
msg( USR0001 ) +
seclvl( 'Here is some long message that can go on and on and on and on and on ....

The rest of the "trick" is in testing how the second-level text appears on the display so that you insert blanks in the right places. I haven't found any way to cause auto-word-wrap.

Tom Liotta

--
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertech.com

__________________________________________________________________
Switch to Netscape Internet Service.
As low as $9.95 a month -- Sign up today at http://isp.netscape.com/register

Netscape. Just the Net You Need.

New! Netscape Toolbar for Internet Explorer
Search from anywhere on the Web and block those annoying pop-ups.
Download now at http://channels.netscape.com/ns/search/install.jsp
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.