MPE CI Programming for 7.5

July 22, 2008
Page 57
hp e3000
strategy
new location (group, CWD)
• CD script
PARM dir=“”
setvar d “!dir”
# “-” means go to prior CWD
if d = ‘-’ and bound(save_chdir) then
setvar d save_chdir
elseif fsyntax(d) = “MPE” then # MPE syntax?
if finfo(“./”+d, “exists”) then # HFS dir?
setvar d “./” + d
elseif finfo(“../”+ups(d), “exists”) then # MPE group?
setvar d “../” + ups(d)
elseif finfo(ups(d), “exists”) then # MPE dir name?
setvar d ups(d)
endif
endif
setvar save_chdir HPCWD
chdir !d