Conference bulova::decw_jan-89_to_nov-90

724.0. "Decnet problem" by ENGLES::WALSH () Thu May 04 1989 00:32

    I am trying to run a some of the decwindows programs on another
    system.  I have been able to run these on my system by logging in
    and setting up the display.  When I try to run it from a network
    process I get an error.  Cannot open display.  Any Ideas why this
    is happening?  I've included the netserver.log file.  This program
    used to work in 5.0 but now it does not seem to work in 5.1.  Both
    systems are 5.1. I've also gotten the same problem with a 5.1
    broadcasting to a ultrix 3.0. 
    
       --------------------------------------------------------

        Connect request received at  3-MAY-1989 12:29:08.13
            from remote process JISUZU::"0=WALSH"
            for object "DECW_NET"

        --------------------------------------------------------

$ ON WARNING THEN GOTO end
$ ON CONTROL_Y THEN GOTO end
$ !
$ CLOSE /ERROR=already_closed $net_link
$already_closed:
$ !
$ IF F$MODE() .EQS. "NETWORK" THEN GOTO do_network_part                   
$do_network_part:
$ !
$ sys_net	= F$TRNLNM("SYS$NET")
$ !
$ OPEN /WRITE/READ /ERROR=close_link $net_link SYS$NET
$ READ       /ERROR=close_link $net_link command_line
$ WRITE $net_link "received " + command_line
$ CLOSE      /ERROR=close_link $net_link
$ !
$ if command_line .eqs. "LOGOUT" then goto logout
$ username	= F$ELEMENT(1, "=", F$ELEMENT(0, "/", sys_net))
$ write sys$output "WALSH"
WALSH
$ write sys$output F$GETJPI("", "USERNAME")
WALSH       
$ !IF username .NES. F$EDIT(F$GETJPI("", "USERNAME"), "TRIM") THEN GOTO end
$ !
$ IF F$LENGTH(username) .GT. 11 THEN username = F$EXTRACT(0, 11, username)
$ !
$ suffix	= 0
$suffix_loop:
$ suffix	= suffix + 1
$ SET NOON
$ SET PROCESS /NAME=dw_WALSH_1
$ IF .NOT. $STATUS THEN GOTO suffix_loop
$ SET ON
$ !
$ nodename	= F$ELEMENT(0, ":", sys_net)
$ !
$ !define decw$display 'nodename'::0
$ SET DISPLAY /NODE=JISUZU/CREATE 
$ !
$ RUN SYS$SYSTEM:DECW$CLOCK
X Toolkit Error: Can't Open display
%NONAME-F-NOMSG, Message number 03AB8204
$end:
$ IF verification THEN SET VERIFY
$ IF	 = "IF"
$ THEN	 = "THEN"
$ DELETE = "DELETE"
$ IF F$TYPE(SET)      .NES. "" THEN DELETE/SYMBOL/GLOBAL SET
$ IF F$TYPE(RUN)      .NES. "" THEN DELETE/SYMBOL/GLOBAL RUN
$ IF F$TYPE(GOTO)     .NES. "" THEN DELETE/SYMBOL/GLOBAL GOTO
$ IF F$TYPE(DEFINE)   .NES. "" THEN DELETE/SYMBOL/GLOBAL DEFINE
$ IF F$TYPE(WRITE)    .NES. "" THEN DELETE/SYMBOL/GLOBAL WRITE
$ IF F$TYPE(DEASSIGN) .NES. "" THEN DELETE/SYMBOL/GLOBAL DEASSIGN
$ SET DEFAULT SYS$SYSDEVICE:[WALSH]
$ IF STARTUP_FLAG .EQS. "Y" THEN GOTO STARTUP_NETSERVER
$ IF .NOT. PERMANENT_NETSERVER THEN GOTO LOOP
$LOOP:
$ TEMP = F$SETPRV("ALL")
$ SET PROCESS/PRIORITY=4
$ IF F$USER() .NES. DEFUIC THEN SET UIC [FRISSEL_ERR]
$ TEMP = F$SETPRV(DEFPRV)
$ RUN SYS$SYSTEM:NETSERVER

    .    --------------------------------------------------------

        Connect request received at  3-MAY-1989 12:30:52.15
            from remote process JISUZU::"0=WALSH"
            for object "DECW_NET"

        --------------------------------------------------------

$ ON WARNING THEN GOTO end
$ ON CONTROL_Y THEN GOTO end
$ !
$ CLOSE /ERROR=already_closed $net_link
$already_closed:
$ !
$ IF F$MODE() .EQS. "NETWORK" THEN GOTO do_network_part                   
$do_network_part:
$ !
$ sys_net	= F$TRNLNM("SYS$NET")
$ !
$ OPEN /WRITE/READ /ERROR=close_link $net_link SYS$NET
$ READ       /ERROR=close_link $net_link command_line
$ WRITE $net_link "received " + command_line
$ CLOSE      /ERROR=close_link $net_link
$ !
$ if command_line .eqs. "LOGOUT" then goto logout
$ username	= F$ELEMENT(1, "=", F$ELEMENT(0, "/", sys_net))
$ write sys$output "WALSH"
WALSH
$ write sys$output F$GETJPI("", "USERNAME")
WALSH       
$ !IF username .NES. F$EDIT(F$GETJPI("", "USERNAME"), "TRIM") THEN GOTO end
$ !
$ IF F$LENGTH(username) .GT. 11 THEN username = F$EXTRACT(0, 11, username)
$ !
$ suffix	= 0
$suffix_loop:
$ suffix	= suffix + 1
$ SET NOON
$ SET PROCESS /NAME=dw_WALSH_1
$ IF .NOT. $STATUS THEN GOTO suffix_loop
$ SET ON
$ !
$ nodename	= F$ELEMENT(0, ":", sys_net)
$ !
$ !define decw$display 'nodename'::0
$ SET DISPLAY /NODE=JISUZU/CREATE 
$ !
$ RUN SYS$SYSTEM:DECW$CLOCK
X Toolkit Error: Can't Open display
%NONAME-F-NOMSG, Message number 03AB8204
$end:
$ IF verification THEN SET VERIFY
$ IF	 = "IF"
$ THEN	 = "THEN"
$ DELETE = "DELETE"
$ IF F$TYPE(SET)      .NES. "" THEN DELETE/SYMBOL/GLOBAL SET
$ IF F$TYPE(RUN)      .NES. "" THEN DELETE/SYMBOL/GLOBAL RUN
$ IF F$TYPE(GOTO)     .NES. "" THEN DELETE/SYMBOL/GLOBAL GOTO
$ IF F$TYPE(DEFINE)   .NES. "" THEN DELETE/SYMBOL/GLOBAL DEFINE
$ IF F$TYPE(WRITE)    .NES. "" THEN DELETE/SYMBOL/GLOBAL WRITE
$ IF F$TYPE(DEASSIGN) .NES. "" THEN DELETE/SYMBOL/GLOBAL DEASSIGN
$ SET DEFAULT SYS$SYSDEVICE:[WALSH]
$ IF STARTUP_FLAG .EQS. "Y" THEN GOTO STARTUP_NETSERVER
$ IF .NOT. PERMANENT_NETSERVER THEN GOTO LOOP
$LOOP:
$ TEMP = F$SETPRV("ALL")
$ SET PROCESS/PRIORITY=4
$ IF F$USER() .NES. DEFUIC THEN SET UIC [FRISSEL_ERR]
$ TEMP = F$SETPRV(DEFPRV)
$ RUN SYS$SYSTEM:NETSERVER
  WALSH        job terminated at  3-MAY-1989 12:35:58.39

  Accounting information:
  Buffered I/O count:          228      Peak working set size:   512
  Direct I/O count:            126      Peak page file size:    4403
  Page faults:                4095      Mounted volumes:           0
  Charged CPU time:     0 00:00:05.77   Elapsed time:     0 00:14:38.00
    
    

I'm pretty sure your problem lies with this statement:

	$ SET DISPLAY /NODE=JISUZU/CREATE 

Try:
	$ SET DISPLAY /NODE=JISUZU::0/CREATE

instead.  The "0" is the screen number or something like that.

--PSW

[Using VMS 5.2] The "::0" isn't necessary.

instead of /NODE=NODE::0 try /NODE=NODE/SERVER=0

Your SET DISPLAY command looks OK, the relevant stuff defaults.

The message %NONAME-F-NOMSG, Message number 03AB8204
means %DWT-F-DWTABORT, xtoolkit fatal error

helpful, isn't it!	:-(

Double check that the node::username of the network process is 
enabled in the server's customize security database.  Failing that,
try using XLIDDY.  It helped diagnose a similar problem I was having
many baselevels ago.

    see note 677.4.  The mysteries of DECwindows will astound you...

    turned out to be a lack of network links.  I increased this parameter
    and everything started working ok again.