Interactive Sign-on Screen

Here is an easy way to allow dynamic changes to your sign-on screens:

In this example, two messages were created in QCPFMSG (you can create and use your own message file, if wanted).
 

ADDMSGD MSGID(PAW0001) MSGF(QCPFMSG) MSG('To err is human') SECLVL('Our Company Dynamic message')

ADDMSGD MSGID(PAW0002) MSGF(QCPFMSG) MSG('...To forgive is canine.') SECLVL('Our Company Dynamic message')

Whenever you need to update the message text, issue the CHGMSGD command for the two message IDs.

Do not forget to change the subsystem sign-on display file to reflect your change. The subsystem must be ended to reflect the updates. You might want to do your testing on a different interactive subsystem in order not to disrupt QINTER.

It is not recommended to change the IBM-supplied QDSIGNON file; therefore, you should either copy and change the supplied file or create your own sign-on file. Do not forget to compile it after you are finished.

The result is as follows:




Example Source Code QDSIGNON2(for QPWDLVL 2 & 3)

     A*%%TS  SD  20210521  041104              REL-V7R3M0  5770-WDS
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A*  START OF SPECIFICATIONS   ******************************
     A*                                                         *
     A* PHYSICAL FILE MEMBER NAME:  QDSIGNON2                   *
     A*                                                         *
     A*  END OF SPECIFICATIONS   ********************************
     A*
     A*
     A**************************************************************************
     A*                                Sign On                                 *
     A*                                       System  . . . . . :   XXXXXXXX   *
     A*                                       Subsystem . . . . :   XXXXXXXXXX *
     A*                                       Display . . . . . :   XXXXXXXXXX *
     A*                                                                        *
     A*            User  . . . . . . . . . . . . . .   ___________             *
     A*            Password  . . . . . . . . . . . .                           *
     A*                                                                        *
     A*                                                                        *
     A*            Program/procedure . . . . . . . .   ___________             *
     A*            Menu  . . . . . . . . . . . . . .   ___________             *
     A*            Current library . . . . . . . . .   ___________             *
     A*                                                                        *
     A*                                                                        *
     A*                                                                        *
     A*                                                                        *
     A*                                                                        *
     A*                                                                        *
     A*                                                                        *
     A*                                     (C) COPYRIGHT IBM CORP. 19XX, 20YY.*
     A**************************************************************************
     A*
     A* |--------|---------|---------|---------|---------|---------|---------|--
     A*  1       10        20        30        40        50        60        70
     A*
     A***********************************************************
     A*                                                         *
     A*  RECORD FORMAT -- NAME: SIGNON                          *
     A*               FUNCTION: SIGN ON DISPLAY                 *
     A*               INDICATORS USED: 01 02                    *
     A*               FUNCTION KEYS USED: NONE                  *
     A*               NUMBER OF I/O FIELDS:  11                 *
     A*               KEYWORDS USED: DSPATR CHGINPDFT CLEAR     *
     A*                              CHECK                      *
     A*                                                         *
     A***********************************************************
     A*
     A          R SIGNON
     A                                      CLEAR
     A                                      BLINK
     A                                  1 23'             Sign On             '
     A                                      DSPATR(HI)
     A                                  2 48'System  . . . . . :'
     A            SYSNAME        8A  O  2 70
     A                                  3 48'Subsystem . . . . :'
     A            SBSNAME       10A  O  3 70
     A                                  4 48'Display . . . . . :'
     A            DEVNAME       10A  O  4 70
     A                                  6 17'User  . . . . . . . . . . . . . .'
     A            USERID        10A  B  6 53
     A  01                              7 17'Password  . . . . . . . . . . . .'
     A  01        PASSWRD      128A  I  7 53CHECK(LC)
     A                                      DSPATR(ND)
     A                                 10 17'Program/procedure . . . . . . . .'
     A            PROGRAM       10A  B 10 53CHECK(LC)
     A                                 11 17'Menu  . . . . . . . . . . . . . .'
     A            MENU          10A  B 11 53CHECK(LC)
     A                                 12 17'Current library . . . . . . . . .'
     A            CURLIB        10A  B 12 53CHECK(LC)
     A  02        QSNERROR      80A  O 24  1DSPATR(HI)
     A            COPYRIGHT     40A  O 24 40DSPATR(HI)
     A            UBUFFER      128A  H
     A            PAW0001       40   O 18 40MSGID(PAW0001 QCPFMSG)
     A            PAW0002       40   O 19 40MSGID(PAW0002 QCPFMSG)                       

Note: On the lines:
0072.00      A            PAW0001       40   O 18 40MSGID(PAW0001 QCPFMSG)                                                      
0073.00      A            PAW0002       40   O 19 40MSGID(PAW0002 QCPFMSG)  
(40 characters long, O=output only field, 18 = row on the screen, 40 = column on the screen where 01 is all the way over on the left.)

ADDITIONAL KEYWORDS: SIGNON, add text or message, customize, QDSIGNON