topic Re: DCL script for displaying current directory after SET DEF in Operating System - OpenVMS

DCL script for displaying current directory after SET DEF

John A. Beard — Wed, 28 Mar 2007 13:06:04 GMT

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.

Re: DCL script for displaying current directory after SET DEF

EdgarZamora — Wed, 28 Mar 2007 13:19:36 GMT

Do you mean something like this:

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

Re: DCL script for displaying current directory after SET DEF

EdgarZamora — Wed, 28 Mar 2007 13:21:39 GMT

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.

Re: DCL script for displaying current directory after SET DEF

EdgarZamora — Wed, 28 Mar 2007 13:28:52 GMT

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

Re: DCL script for displaying current directory after SET DEF

John A. Beard — Wed, 28 Mar 2007 13:43:34 GMT

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

Re: DCL script for displaying current directory after SET DEF

EdgarZamora — Wed, 28 Mar 2007 14:03:58 GMT

You can access the freeware CD kits online:

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

Re: DCL script for displaying current directory after SET DEF

EdgarZamora — Wed, 28 Mar 2007 14:20:48 GMT

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.

Re: DCL script for displaying current directory after SET DEF

John A. Beard — Wed, 28 Mar 2007 14:29:49 GMT

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

Re: DCL script for displaying current directory after SET DEF

John A. Beard — Wed, 28 Mar 2007 15:19:28 GMT

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

Re: DCL script for displaying current directory after SET DEF

EdgarZamora — Wed, 28 Mar 2007 15:30:35 GMT

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/