|
$ Set NoOn
$ !
$ !
$ username = f$edit(f$getjpi("","username"),"trim")
$ !
$
$ Define decw$user_defaults sys$login,sys$login_device:[KLINK.decw]
$ Sho log decw$user_defaults
"DECW$USER_DEFAULTS" = "SYS$LOGIN" (LNM$PROCESS_TABLE)
= "SYS$LOGIN_DEVICE:[KLINK.DECW]"
1 "SYS$LOGIN" = "SYS$SYSDEVICE:[KLINK]" (LNM$JOB_80751F40)
"DECW$USER_DEFAULTS" = "SYS$LOGIN:" (DECW$LOGICAL_NAMES)
1 "SYS$LOGIN" = "SYS$SYSDEVICE:[KLINK]" (LNM$JOB_80751F40)
$ !
$ !@sys$login:login.com
$ !
$ exit
$ !
$ ! DECW$STARTSM.COM - Initialize the DECwindows session manager
$ !
$ !****************************************************************************
$ !* *
$ !* COPYRIGHT (c) 1987, 1988, 1989 BY *
$ !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *
$ !* ALL RIGHTS RESERVED. *
$ !* *
$ !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *
$ !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *
$ !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *
$ !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *
$ !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *
$ !* TRANSFERRED. *
$ !* *
$ !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *
$ !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *
$ !* CORPORATION. *
$ !* *
$ !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *
$ !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *
$ !* *
$ !* *
$ !****************************************************************************
$ !
$ ! This command procedure sets up the DECwindows session manager
$ ! development environment.
$ ! It is not advisable to edit this procedure as it may be replaced in
$ ! future software updates.
$ !
$! if no command files executed, then status will be blank
$!
$if $status .EQS. "" then goto do_session
$!
$! if status is ok, no errors in command procedures, so start session manager
$!
$if $status then goto do_session
$do_session:
$define decw$doing_session T
$ws = f$trnlnm("DECW$SM_WSQUOTA")
$if ws .EQS. "" then ws = f$getsyi("PQL_DWSQUOTA")
$set working_set/quota=484/nolog
$run sys$system:decw$session
X error event received from server: BadValue - integer parameter out of range
Failed request major op code 105 (X_ChangePointerControl)
Failed request minor op code 0 (if applicable)
ResourceID 0xfffffff8 in failed request (if applicable)
Serial number of failed request 188
Current serial number in output stream 189
Session Error: %NONAME-E-NOMSG, Message number 02DB822A
$!
$! log out and delete the logical
$!
$do_exit:
$if f$logical("decw$doing_session") .NES. "" then deassign decw$doing_session
$stop/id=0
He is another snapshot from DECW$SM.LOG.
dk
|