Put dynamic text on your sign-on screen -- Add tool to change text easily

Complement the excellent tip (Put dynamic text on your iSeries sign-on screen) provided by Sauvageot Jean-Marie with the following program: Copy the screen Qdsignon elaborated in the previous tip and change it according to code listed to create the new file of screen SIGNONTXT. Then create the program CL SIGNONTXT and enjoy this tool.


    A                                      DSPSIZ(24 80 *DS3)
     A                                      CHGINPDFT
     A          R SIGNON
     A                                      CLEAR
     A                                      CF03(03) CF05(05)     A                                  1 23'             Sign On             '
     A                                      DSPATR(HI)
A            SNDMSG1       55A  B  6  4MSGID(SND 0001 SIGNONMSG)
     A                                      DSPATR(HI)
     A                                      COLOR(RED)
     A            SNDMSG2       55A  B  7  4MSGID(SND 0002 SIGNONMSG)
     A                                      DSPATR(HI)
     A                                      COLOR(RED)
     A            SNDMSG3       55A  B  8  4MSGID(SND 0003 SIGNONMSG)
     A                                      DSPATR(HI)CHECK(LC)
     A                                      COLOR(RED)
     A            SNDMSG4       55A  B  9  4MSGID(SND 0004 SIGNONMSG)
     A                                      DSPATR(HI)CHECK(LC)
     A                                      COLOR(RED)
     A            SNDMSG5       55A  B 10  4MSGID(SND 0005 SIGNONMSG)
     A                                      DSPATR(HI)CHECK(LC)
     A                                      COLOR(RED)
     A            SHT0001       40A  B 18 40MSGID(SHT 0001 SIGNONMSG)
A                                      CHECK(LC)
     A            SHT0002       40A  B 19 40MSGID(SHT 0002 SIGNONMSG)
A                                      CHECK(LC)


    100 PGM                                                                                                             28/06/96
    200              DCLF       FILE(QGPL/SIGNONTXT) RCDFMT(SIGNON)                                                     05/02/03
    300 READ:        SNDRCVF                                                                                            05/02/03
    400              IF         COND(&IN03) THEN(GOTO CMDLBL(EXIT))                                                    05/02/03
    500              IF         COND(&IN05) THEN(DO)                                                                    05/02/03
    600              CHGMSGD    MSGID(SND0001) MSGF(QGPL/SIGNONMSG) +                                                   05/02/03
    700                           MSG(&SNDMSG1)                                                                         05/02/03
    800              CHGMSGD    MSGID(SND0002) MSGF(QGPL/SIGNONMSG) +                                                   05/02/03
    900                           MSG(&SNDMSG2)                                                                         05/02/03
   1000              CHGMSGD    MSGID(SND0003) MSGF(QGPL/SIGNONMSG) +                                                   05/02/03
   1100                           MSG(&SNDMSG3)                                                                         05/02/03
   1200              CHGMSGD    MSGID(SND0004) MSGF(QGPL/SIGNONMSG) +                                                   05/02/03
   1300                           MSG(&SNDMSG4)                                                                         05/02/03
   1400              CHGMSGD    MSGID(SND0005) MSGF(QGPL/SIGNONMSG) +                                                   05/02/03
   1500                           MSG(&SNDMSG5)                                                                         05/02/03
   1600              CHGMSGD    MSGID(SHT0001) MSGF(QGPL/SIGNONMSG) +                                                   05/02/03
   1700                           MSG(&SHT0001)                                                                         05/02/03
   1800              CHGMSGD    MSGID(SHT0002) MSGF(QGPL/SIGNONMSG) +                                                   05/02/03
   1900                           MSG(&SHT0002)                                                                         05/02/03
   2000              ENDDO                                                                                              05/02/03
   2100              GOTO READ                                                                                          05/02/03
   2200 EXIT:                                                                                                          05/02/03
   2300 ENDPGM                                                                                                          05/02/03


The Best Web Links: Tips, tutorials and more.

Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.

Read this Search400.com Featured Topic: Managing your iSeries.

This was first published in February 2003

There are Comments. Add yours.

TIP: Want to include a code block in your comment? Use <pre> or <code> tags around the desired text. Ex: <code>insert code</code>

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
Sort by: OldestNewest

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

Disclaimer: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.