d $	Verify :=='F$Verify(0)'
È $	!**************************************************************
,$	!
$	!	DLOGIN.COM	Development Login Procedure
ô$	!			Skeleton Sample Procedure
X$	!
¼$	!	   Date     Initials   Description
 $	!
„$	!	20 Aug 81     BLJ	Initial Implementation
è$	!	25 Aug 81     BLJ	Expanded COMMANDS no old LOGIN
L$	!	26 Aug 81     BLJ	Source and Test Directories
°$	!				Assigned at Startup by SYSTARTUP.COM
$	!	 4 Sep 81     BLJ	Assign Development Default Proctection
x$	! 				Software Development Process Assignments
Ü$	!	07 Sep 81     LYK,BLJ   Add set protection and change system
@$	!				message to Disk$system[sysmgr]
¤$	!	23 Feb 82	BLJ	Check SYS$STATE Status Code
$	!	01 Aug 82	BLJ	VMS 3.0 Update
l$	!	10 Nov 82	BLJ	EXIT if Network Job
Ð$	!	24 Jan 83 	BLJ	Set Control_Y
4$	!	16 May 83	BLJ	Set Terminal Width to 132
˜$	!
ü$	!	__________  ________   _____________________________
`	$	!
Ä	$	!**************************************************************
(
$	!
Œ
$	!	This procedure is specified in the User Authorization
ð
$	!	File specification for every INMOS Development User.
T$	!	The procedure validates system status according to the
¸$	!	logical assignment of SYS$STATE and if system is not
$	!	available to interactive users displays reason, else
€$	!	the procedure displays the Messages of the Day,
ä$	!	invokes software development logical assignments for 
H$	!	device/directory specifications, invokes common
¬$	!	login command definitions and invokes the individual
$	!	user's LOGIN.COM.
t$	!
Ø$	!**************************************************************
<$	!
 $	!	SYS$STATE Codes :  0 - System Available
$	!			   1 - Month-end Processing in Progress
h$	!		 	   2 - System under hardware maintenance
Ì$	!			   3 - System software testing
0$	!                          4 - Future Use
”$	!			   5 - Future Use
ø$	!
\$	!**************************************************************
À$	!
$$	SET PROTECTION=(SYSTEM:RWED,OWNER:RWED,GROUP:RWE,WORLD)/DEFAULT
ˆ$	!
ì$	@Sys$Manager:ASSIGNDEV/Output=NLA0:
P$	!
´$	!	Identify Process Mode / Branch if BATCH
$	!
|$	Mode := 'f$mode()'
à$	IF Mode .EQS. "BATCH" THEN Goto BMODE
D$	IF Mode .EQS. "NETWORK" THEN Exit
¨$	Set Control_Y
$	!
p$Chekstat:
Ô$	Set Terminal/Width=132
8$	Clear :==@Disk$System:[SYSMGR]CLEAR "Dummy"
œ$	!
 $	!	System Available - Procedure Continues
d$	!
È$	!
,$	!	Continue Procedure on any error
$	!
ô$	On Severe_Error Then CONTINUE
X$	!
¼$	!	Display System Message of the Day
 $	!
„$	@Sscom:Msg
è$	!
L$	!	Display Software Development Message of the Day
°$	!
$	Type SSCOM:SOFTWARE.MSG
x$	!
Ü$	!	Invoke Development Users Logical Assignments
@$	!
¤$	! @LOGICAL/OUTPUT=NLA0:
 $	!
l $	!	Invoke Software Development Login Commands
Ð $	!
4!$	@SSCOM:COMMANDS
˜!$	!
ü!$	!	Invoke Individual User's LOGIN.COM
`"$	!
Ä"$	@LOGIN
(#$	!
Œ#$	!
ð#$	!	Check System Availability Status
T$$	!
¸$$	State := 'F$Logical("SYS$STATE")'
%$	Goto State'State'
€%$	!
ä%$	!	System Unavailability Messages
H&$	!
¬&$State1:
'$	Clear
t'$	Write Sys$Output " Month-end Processing In Progress     "
Ø'$	Write Sys$Output " Normal Processing Resumes  9:00 a.m. "
<($	Write Sys$Output " Please logoff if not performing month-end processing"
 ($	Goto Finis
)$State2:
h)$	Clear
Ì)$	Write Sys$Output " System Under Hardware Maintenance    "
0*$	Write Sys$Output " Normal Processing Resumes  6:00 p.m. "
”*$	Write Sys$Output " Please Logoff !!"
ø*$	Goto Finis
\+$State3:
À+$	Clear
$,$	Write Sys$Output " System Software Testing In Progress  "
ˆ,$	Write Sys$Output " You will be notified when system is available "
ì,$	Write Sys$Output " Please Logoff !!"
P-$	Goto Finis
´-$State4:
.$	Clear
|.$	Write Sys$Output " System Unavailable !                 "
à.$	Write Sys$Output " You will be notified when system is available "
D/$	Write Sys$Output " Please Logoff !!"
¨/$	Goto Finis
0$State5:
p0$	Clear
Ô0$	Write Sys$Output " System Unavailable !                 "
81$	Write Sys$Output " You will be notified when system is available "
œ1$	Write Sys$Output " Please Logoff !!"
 2$	Goto Finis
d2$	!
È2$	!	Batch Mode Branch
,3$	!
3$Bmode:
ô3$	ON Severe_Error THEN Continue
X4$	@LOGICAL/Output=NLA0:
¼4$	@SSCOM:COMMANDS/Output=NLA0:
 5$	@LOGIN
„5$	Continue
è5$State0:
L6$Finis:
°6$	!
7$	!----------------------- end of procedure --------------------