Technical data

Managing User Accounts
7.7 Maintaining User Accounts
Example 7–1 Sample Systemwide SYS$MANAGER:SYLOGIN.COM Login Command Procedure
$ V = F$VERIFY(0)
$START:
$!
$ SET NOCONTROL=Y ! Do not allow Ctrl/Y to exit procedure
$ SET NOON
$!
$ ! Allow network jobs to start faster
$!
$ IF F$MODE() .EQS. "NETWORK" THEN GOTO EXIT
$!
$ ! Enable Ctrl/T handling by DCL
$!
$ SET CONTROL=T
$!
$ ! Define Foreign Commands For Installed Utilities
$!
$ USERS == "SHOW USERS"
$ DISPLAY == "MONITOR PROCESSES/TOPCPU"
$ INFO == "SHOW PROCESS/CONTINUOUS"
$ SUSPEND == "SET PROCESS/SUSPEND"
$ RESUME == "SET PROCESS/RESUME"
$ SETNAME == "SET PROCESS/NAME"
$!
$ ! Define a symbol indicating whether the terminal
$ ! is on a dialup port
$!
$ TT == F$GETDVI("TT","DEVNAM")-"_"
$ DIALUP == ((TT .GES. "TTG0:" .AND. TT .LES. "TTG4:") -
.OR. (TT .GES. "TTH1:" .AND. TT .LES. "TTH4:") -
.OR. (TT .EQS. "TTI5:"))
$ IF DIALUP THEN SET TERMINAL/INQUIRE
$!
$EXIT:
$ IF V THEN SET VERIFY
.
.
.
$ SET CONTROL=Y
$ EXIT
As the example shows, you can disable the Ctrl/Y function (which suspends
execution of the current image and invokes the command interpreter) to force
execution of the complete login command procedure whenever the user logs in.
Do this with the DCL command SET NOCONTROL=Y. Before the login command
procedure exits, add the DCL command that resets the Ctrl/Y function (SET
CONTROL=Y).
Example 7–2 shows typical abbreviations and symbols that a user might define in
a login file.
Managing User Accounts 7–21