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. # 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