DCL script for displaying current directory after SET DEF

[John A. Beard]

Hi folks,

Somewhere in the dark murky past, I seem to remember seeing a DCL script that would display your current volume and directory info at the DCL prompt, including your location if you changed volume and/or directory. If someone has such a script I would be very grateful.

[EdgarZamora]

Do you mean something like this:

$ SET PROMPT="''F$ENV("DEFAULT")'>"
SYS$USERS:[EZAMORA]>

[EdgarZamora]

Now that I've read your post more carefully, I think there's a few utilities in the freeware kits that would apply. I think one of them is named CD. It shouldn't be too hard to write a short one.

[EdgarZamora · Accepted solution]

I peeked at Freeware 8.0 and I think Hunter Goatley's HGSD will do it for you.

[John A. Beard]

Thanks for the quick reply Edgar

Unfortunately I am not located anywhere near the actual hardware, and at the moment, I have nobody who can go in search for the possible existance of a Freeware CD.

I'm not sure who you or what you were refering to with Hunter Goatley's HGSD, but if it's something that you can cut-and-paste (or e-mail), then that would be fantastic

[EdgarZamora]

You can access the freeware CD kits online:

http://h71000.www7.hp.com/openvms/freeware/

[EdgarZamora]

Here's a brutally basic script:

CLCC1> type sd.com
$ loop:
$ if p1 .nes. ""
$ then set def 'p1
$ else
$ inquire p1 "_Directory"
$ goto loop
$ endif
$ set prompt="''f$env("default")'> "
CLCC1>

then just put in your LOGIN.COM something like:

$ SD :== @SYS$LOGIN:SD


and you should be able to do SD DEV:[DIR] instead of SET DEF DEV:[DIR]

Hope that helps.

[John A. Beard]

Thanks... you wouldn't happen to know which of the three zip files this utility might be in would you. The first one is taking ages to download and I'm afraid that I'll end up having to download all three... As a footnote, I'm running 7.3-2

[John A. Beard]

Thanks... I'll work my way through the notes and set it up.

[EdgarZamora]

You don't need to download the entire CDs (unless you want to, of course). If you just want to get to the HGSD, click on this:

http://h71000.www7.hp.com/freeware/freeware80/hgsd/