Re: QMAXSGNACN and QMAXSIGN

[Rick Rauterkus <ricker@xxxxxxxxxxxxx>]

> I'd be interested in seeing the code too.

Here is the modified signon screen source. Change the user id and
password as needed. Be sure to compile it with MAXDEV(256). As someone
else mentioned also, you need a separate subsystem for the terminals
using this signon. And you'll want to limit what this user profile can
do. We use an Initial program for the specific function this terminal
is for, and an Initial menu of *SIGNOFF.

     A          R SIGNON
     A                                      CLEAR
     A                                      BLINK
     A                                 01 23'             Sign On             '
     A                                      DSPATR(HI)
     A                                 02 48'System  . . . . . :'
     A            SYSNAME        8   O 02 70
     A                                 03 48'Subsystem . . . . :'
     A            SBSNAME       10   O 03 70
     A                                 04 48'Display . . . . . :'
     A            DEVNAME       10   O 04 70
     A                                 06 17'User  . . . . . . . . . . . . . .'
     A                                      DSPATR(ND)
     A            USERIDO       10   O 06 53
     A            USERID        10   I 06 64DFT('TESTUSER')
     A                                      DSPATR(PR ND)
     A  01                             07 17'Password  . . . . . . . . . . . .'
     A                                      DSPATR(ND)
     A  01        PASSWRD       10   I 07 53DFT('TESTUSER')
     A                                      DSPATR(PR ND)
     A                                 08 17'Program/procedure . . . . . . . .'
     A                                      DSPATR(ND)
     A            PROGRAM       10   B 08 53CHECK(LC)
     A                                      DSPATR(PR ND)
     A                                 09 17'Menu  . . . . . . . . . . . . . .'
     A                                      DSPATR(ND)
     A            MENU          10   B 09 53CHECK(LC)
     A                                      DSPATR(PR ND)
     A                                 10 17'Current library . . . . . . . . .'
     A                                      DSPATR(ND)
     A            CURLIB        10   B 10 53CHECK(LC)
     A                                      DSPATR(PR ND)
     A                                 12 31'Hit Enter to begin.'
     A  02        QSNERROR      80   O 24 01DSPATR(HI)
     A            COPYRIGHT     40   O 24 40DSPATR(HI)
     A            UBUFFER      128   H