$!
$!  This command file sets up the TCP service entry for
$!  the uu-sample server and clients.  It is a required
$!  step.
$!
$!  You will need to edit it to match your runtime environment.
$!  You will also need to remove the following two lines.
$ write sys$output "%ERROR -- You need to edit this command procedure."
$ exit
$!=============================================================
$! Leave the tcp uu-sample service inactive.
$! We are only interested in taking the port number from the TCP service database.
$!!! tcpip disable service "uu-sample"
$!
$!  First delete the existing service
$!
$! tcpip set noservice "uu-sample" y
$!
$!  Then create it again using your specific user account and directory information
$!  If you were letting TCPIP start the server (this one does not work well that way)
$!  you would need to provide a startup file (uu_server.com).  Since this service
$!  is disabled, the port number is the only thing that we are going after.
$!
$!  Note that the log file will be created in the sys$login directory
$!  of the /user_name.  This file tells what happens when a client
$!  makes a request for the uu-sample service, and the OS tries to
$!  start it up.
$!
$!  In this case, once we have registered the port number,
$!  all we do is manually start the server and the client.
$!  They both query the TCPIP service database and communicate
$!  over that port number.
$!
$ cur_dir = F$ENVIRONMENT ("DEFAULT")
$tcpip set service "uu-sample" -
/user_name=<username> -
/process_name=uu_sample -
/port=2040 -
/protocol=tcp -
/log=all -
/file='cur_dir'uu_sample_service.com;
$!
$! Leave the tcp uu-sample service inactive.
$! We are only interested in taking the port number from the TCP service database.
$! tcpip enable service "uu-sample".
$!
$tcpip show service "uu-sample"/full