[comp.os.vms] getting current directory in dcl prompt

SEDAYAO@sc.intel.COM (Jeff Sedayao - Intel Santa Clara Postmaster) (01/30/88)

Here is what I do in a command procedure called cd.com to 
put the node name and current directory into the prompt.
I trim the directory name so my prompt does not take up the
whole line.

Jeff Sedayao

-----------------------CD.COM Cut Here------------------------

$ ON WARNING THEN EXIT
$ NODE=F$GETSYI("NODENAME")
$ IF P1.EQS."" THEN GOTO A2
$ SET DEF 'P1'
$ P1=F$ENVIRONMENT("DEFAULT")
$ IF F$LENGTH(P1) .LE. 23 THEN GOTO A1
$ PR1=F$EXTRACT(0,23,P1)
$ P1=PR1
$ A1:
$ TEMP="SET PROMPT="+NODE+"::"+P1+">"
$ TEMP
$ EXIT
$ A2:
$ SET DEF SYS$LOGIN
$ P1=F$ENVIRONMENT("DEFAULT")
$ TEMP="SET PROMPT="+NODE+"::"+P1+">"
$ TEMP
$ EXIT	

-------