$ !						SYS$MANAGER:SYLOGIN.COM
$ SET NOVERIFY	
$ EXIT						! end of SYLOGIN.COM
$ !							[JEH]LOGIN.COM
$ SET NOVERIFY
$ EXIT							! end of LOGIN.COM
$! MAKEPATHS.COM
$! -------------
$!
$! Execute pathalias and pathproc on the UUCP map.
$!
$! Usage: MAKEPATHS map_directory path_directory [recall] [hostname]
$!
$!	The parameters default to UUCP_PATH_DATA and UUCP_DATA, 
$!	respectively.  The latter directory is also used for scratch files.
$!
$!	The third and fourth parameters should not be specified - they are
$!	used to allow this command procedure to call back to itself.
$!
$! Command symbols and overrides for user replacements
$!
$	define = ""
$	delete = ""
$	pathalias = "$uucp_bin:pathalias"
$	pathproc  = "$uucp_bin:pathproc"
$
$!
$! Jump ahead on a call back
$!
$	if (p3 .nes. "") then goto 
$
$!
$!----------
$! Normal run. Startup PathProc who in turn will spawn a subprocess
$! running Pathalias.
$!
$! Make sure that we have parameters
$!
$	if (p1 .eqs. "") then p1 = "uucp_path_data:"
$	if (p2 .eqs. "") then p2 = "uucp_data:"
$
$	host = f$trnlnm("UUCP_HOST_NAME","LNM$SYSTEM_TABLE",,"EXECUTIVE")
$	if (host .eqs. "") then inquire/nopun host "Host name? "
$!
$! Invoke the path processor
$!
$	pathproc -o uucp_data:paths.new -
	 -p "@DISK$WORK1:[UUCP.BIN]MAKEPATHS.COM;19 uucp_path_data: uucp_data: run_pathalias simpact"
$! MAKEPATHS.COM
$! -------------
$!
$! Execute pathalias and pathproc on the UUCP map.
$!
$! Usage: MAKEPATHS map_directory path_directory [recall] [hostname]
$!
$!	The parameters default to UUCP_PATH_DATA and UUCP_DATA, 
$!	respectively.  The latter directory is also used for scratch files.
$!
$!	The third and fourth parameters should not be specified - they are
$!	used to allow this command procedure to call back to itself.
$!
$! Command symbols and overrides for user replacements
$!
$	define = ""
$	delete = ""
$	pathalias = "$uucp_bin:pathalias"
$	pathproc  = "$uucp_bin:pathproc"
$
$!
$! Jump ahead on a call back
$!
$	if (p3 .nes. "") then goto RUN_PATHALIAS
$run_pathalias:
$	parent = "%X" + f$getjpi(0,"OWNER")
$	mailbox = "FSPAWNMBX_" + f$fao("!ZL",%X00000733) + ":"
$	define/user sys$output FSPAWNMBX_1843:
$	
$!
$! Split SYS$ERROR to somewhere other than where SYS$OUTPUT is going. (Else,
$! writes to SYS$ERROR will end up in the path data :-()
$!
$	define/user sys$error  vmsnet_log:pathalias.log
$!
$! Generate routing data for this host
$!
$	pathalias -fi -l SIMPACT UUCP_PATH_DATA:d.* UUCP_PATH_DATA:u.*
$	exit
$!
$! If all went well, remove the old copy and make the path file readable
$!
$	set noon
$	rename uucp_data:paths.new uucp_data:paths.
$	purge uucp_data:paths.
$	set file uucp_data:paths./prot=(g:r,w:r)
$	exit
  JEH          job terminated at 21-MAY-1989 16:56:49.92

  Accounting information:
  Buffered I/O count:        18148      Peak working set size:  4096
  Direct I/O count:           2047      Peak page file size:   10059
  Page faults:              344009      Mounted volumes:           0
  Charged CPU time:     0 00:15:21.25   Elapsed time:     0 00:55:30.47