Operating System - OpenVMS
1830165 Members
6032 Online
109999 Solutions
New Discussion

Re: DCL script for displaying current directory after SET DEF

 
SOLVED
Go to solution
John A.  Beard
Regular Advisor

DCL script for displaying current directory after SET DEF

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.
Glacann fear críonna comhairle.
9 REPLIES 9
EdgarZamora
Trusted Contributor

Re: DCL script for displaying current directory after SET DEF

Do you mean something like this:

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

Re: DCL script for displaying current directory after SET DEF

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
Trusted Contributor
Solution

Re: DCL script for displaying current directory after SET DEF

I peeked at Freeware 8.0 and I think Hunter Goatley's HGSD will do it for you.
John A.  Beard
Regular Advisor

Re: DCL script for displaying current directory after SET DEF

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
Glacann fear críonna comhairle.
EdgarZamora
Trusted Contributor

Re: DCL script for displaying current directory after SET DEF

You can access the freeware CD kits online:

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

EdgarZamora
Trusted Contributor

Re: DCL script for displaying current directory after SET DEF

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
Regular Advisor

Re: DCL script for displaying current directory after SET DEF

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
Glacann fear críonna comhairle.
John A.  Beard
Regular Advisor

Re: DCL script for displaying current directory after SET DEF

Thanks... I'll work my way through the notes and set it up.
Glacann fear críonna comhairle.
EdgarZamora
Trusted Contributor

Re: DCL script for displaying current directory after SET DEF

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/