HP OpenVMS Systems

ask the wizard
Content starts here

DCL Task-to-Task?

» close window

The Question is:

 
I want to run remote-task on remote node over network.
On manual the following command is written :
$ type node"user password"::"task=command_procedure"
 
But, the command occurs error:
%TYPE-W-OPENIN,error opening node"user password"::"task=command_procedure" as input
-RMS-E-ACC, ACP file access failed
-SYSTEM-F-LINKEXIT, network parter exited
 
Let me know how to run remote task and how to setup environments.
 
 


The Answer is :

 
  Check the NETSERVER.LOG on the remote system for clues to what
  happened when the remote end exited -- that there are problems
  in the DCL executing on the remote end is what the error you
  received means...
 
  The Ask The Wizard topics of interest here include (5409), (159)
  -- this topic, (798), (1910) and various others.
 
  Here is an example of an application that is both a DECnet
  client, and a server, based on F$Mode():
 
 
$!  XQTYPE.COM
$!
$   Set NoOn
$   Set NoVerif
$   vers = "0000|XQTYPE"
$   Goto 'F$Mode()'
$!
$!  Copyright 2002 Hewlett-Packard Company
$!  Copyright 1989 Digital Equipment Corporation
$!  Written: S Hoffman, 21-Jan-1989
$!
$!  Uses DCL DECnet task-to-task to check the device type of the XQA0:
$!  controller on the remote system.  Can return <unknown>, <none>,
$!  <DELQA> or <DEQNA>.  Requires VMS V5.0 or better as the procedure
$!  uses block-structured IF DCL syntax.
$!
$!  Calling:
$!	@XQTYPE node
$!
$!  Procedure must be named XQTYPE.COM and must reside in the default
$!  login directory on both the local and the remote nodes.  Note that
$!  the remote login may occur either in the directory specified by a
$!  proxy, if one exists, or in the DECNET directory.  If you're not
$!  sure the default directory can be found by entering the command
$!  "DIRECTORY node::".  Requires access to the DECNET TASK object on
$!  the remote end; either by the default DECNET username/password or
$!  via a proxy.
$!
$INTERACTIVE:
$DO_P1:
$   p1 = F$Edit(p1,"COLLAPSE,UPCASE") - "::"
$   If F$Leng(p1) .eq. 0
$   Then
$	msg = "Error reading input"
$	Read/Prompt="Node? "/Error=DONE Sys$Command p1
$	Goto DO_P1
$   EndIf
$!
$   msg = "Error creating network connection"
$   Open/Read/Write/Error=DONE net 'p1'::"task=XQTYPE"
$   Read net remvers
$   Write net vers
$   Read net XQType
$   Close net
$   Write Sys$Output "XQA0: Device type on node ''p1':: is ''XQType'"
$   msg = ""
$   Goto DONE
 
$NETWORK:
$   msg = "Error receiving network connection"
$   Open/Read/Write/Error=DONE net Sys$Net
$   Write net vers
$   Read net remvers
$   If F$GetDVI("XQA0:","EXISTS")
$   Then
$	DEVType = F$GetDVI("XQA0:","DEVTYPE")
$	XQType = "<unknown>"
$	If DEVType .eq. 33 Then XQType = "DELQA"
$	If DEVType .eq. 22 Then XQType = "DEQNA"
$   Else
$	XQType = "<none>"
$   EndIf
$   Write net XQType
$   Close net
 
$BATCH:
$OTHER:
$   msg = "Unsupported F$MODE()"
 
$DONE:
$   If F$Length(msg) .ne. 0 Then Write Sys$Output msg
$   Stop
$   Exit
 
 

answer written or last revised on ( 7-MAR-2005 )

» close window