--- "James B. Byrne" <[log in to unmask]> wrote:

> This means that an STD (I just love that initialism!) store set
> actually consists of the HFS files /ACCT/GROUP/FILENAME((.([2-9]|[1-
> 9][0-9]+))?)? all of which I have to move to the repository.  Now,
> my backup job file is a MPE file and uses MPE file naming
> conventions throughout.  What I want to do is to parse the STORE
> filename descriptor (passed as a parameter via a system variable)
> and convert it into its HFS equivalent so that I can then do this:
>
> XEQ LS.HPBIN.SYS "-lpR <MPE filename in HFS form>*"

you can also use 'listfile' -- just 'reverse' your file-naming notation
(listfile /ACCT/GRP/FILENAME@).  i'd recommend using ',6' on your
listfile to get just the file names.  i'd also suggest routing your
listfile output to a file for manipulation for ftp....

> and this:
>
> FTP
> OPEN AAA.BBB.CCC.DDD
> USER ANONYMOUS
> BINARY
> PROMPT
> MPUT <MPE filename in HFS form>((.([2-9]|[1-9][0-9]+))?)?
> QUIT

(donna *strongly* recommends NOT putting passwords into ftp scripts!!
use secured (altsec) netrc files or better yet, get the latest ftp
patch to get netrc files that need execute-only access!!)

> So, is there a readily available means to transform an MPE file
> name into its HFS equivalent or do I have to write a parsing
> routine myself?

you should have this (perhaps in the posix udc file?) already but in
case you don't, here's the mpe2px script:

PARM mpename rtnvar=pxname
# Converts an MPE name to an absolute POSIX pathname and returns the
# POSIX name in the "rtnvar" argument.  Syntax checking is done.
# Note: posix names are simply qualified.
# Required MPE5.5pp6 or later
setvar !rtnvar ""

if word(setvar(_mpe2_name,fsyntax("!mpename"))) = "ERROR" then
   echo Invalid filename, error: ![word(_mpe2_name,,-1)]

elseif pos('$FILE',_mpe2_name) > 0 then
   echo System-defined names cannot be converted to POSIX

elseif pos('FEQ',_mpe2_name) > 0 then
   echo File equations cannot be converted to POSIX

elseif pos('LOCK',_mpe2_name) > 0 then
   echo MPE names with lockwords cannot be converted to POSIX

elseif word(_mpe2_name) = "POSIX" then
   # already a POSIX name, qualify and return
   setvar !rtnvar fqualify("!mpename")

else
   # straight MPE name, convert to POSIX and return
   setvar !rtnvar
dirname(fqualify("!mpename"))+"/"+ups(word("!mpename","."))
endif

hth        - d

Donna Garverick, HP-CSA   Sr. System Programmer
dgarverick -at- longs -dot- com
925-210-6631              Longs Drug Stores

Come, my friends, 'Tis not too late to seek a newer world.
Tho' much is taken, much abides; and tho'
We are not now that strength which in old days
Moved earth and heaven, that which we are, we are.
"Ulysses", A. Tennyson

>>>MY opinions, not Longs Drug Stores'<<<

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *