From: Tom Linden [tom@kednos.com]
Sent: Tuesday, July 06, 2004 12:53 PM
To: Info-VAX@Mvb.Saic.Com
Subject: RE: Changing a Unix path to a VMS file specification

Something like the following should do it, and you can put
that inside something like
http://h18000.www1.hp.com/support/asktima/appl_tools/0091A38D-9C725560-1C01E
7.html

i = index(in,'.');
i = i + index(substr(in,i+1),'.');
substr(in,i,1) = ';' ;
out = substr(in,2);
i = index(out,'/');
out = substr(out,1,i-1)||':['substr(out,i);
/* find last slash */
i = index(out,'/');
do while ( i ^= 0);
	if index(substr(out,i+1),'/') = 0 then leave;
      else i =   index(substr(out,i+1),'/');
	end;
substr(out,i,1)= ']';
out = translate(out,'.','/');

  -----Original Message-----
  From: David Harrold [mailto:DHarrold@wi.rr.com]
  Sent: Tuesday, July 06, 2004 7:09 AM
  To: Info-VAX@Mvb.Saic.Com
  Subject: Changing a Unix path to a VMS file specification


  I have an application that generates all file specifications in a
  Unix path
  format.  I need to process the files that are generated by the
  application in
  a DCL process and need a way to change the path to a VMS file
  specification.

  The application generates a path like the following:

  /DSA1/DIR1/DIR2/DIR3/FILENAME.EXTENSION.1

  And I need a specification like:

  DSA1:[DIR1.DIR2.DIR3]FILENAME.ESTENSION;1

  Has anyone done this in DCL?  I have found a sample in PERL, but
  I don't know
  perl or how to modify the sample to put the result in a symbol.

  Thanks,

  Dave Harrold


  ..................................................................
  ............
  David Harrold                              E-Mail: David.Harrold
  at aurora.org
  Lead Software Systems Engineer              Phone:          (414) 647-6204
                                              Pager:          (414) 941-4634
  Aurora Health Care                            Fax:          (414) 647-4999
  3031 W. Montana Street
  Milwaukee, WI 53215

  ---
  Incoming mail is certified Virus Free.
  Checked by AVG anti-virus system (http://www.grisoft.com).
  Version: 6.0.710 / Virus Database: 466 - Release Date: 6/23/2004

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.710 / Virus Database: 466 - Release Date: 6/23/2004