Hi all,

In my earlier posting I mentioned that a new CI evaluator function is
included in the MPEJXQ1 Extended Filenames patch.  The name of this
function is FSYNTAX and it returns various strings describing the
syntax of the filename it is passed.

Syntax:  FSYNTAX( string_filename )

Returns:  a string of one of the following:
  "ERROR_nnn"       where nnn is a CIERROR number
  "MPE"             filename is a simple MPE name
  "MPE_WILD"        filename has any wildcard characters
  "MPE_LOCK"        filename contains a lockword
  "MPE_FEQ"         filename is a backreference to a file equation
  "MPE_$FILE"       filename is a system defined file like $null
  "MPE_REMOTE"      filename has an :environment ID
  "MPE_WILD_LOCK"   filename is wildcarded and has a lockword
  "POSIX"           filename is a simple POSIX name
  "POSIX_WILD"      filename is a POSIX name with wildcarding

Example uses:

a)   if lft(fsyntax(file_parm),3) = "MPE" then ....
        # you have a valid MPE-only filename

b)   setvar result fsyntax("!file_arg")
     if pos("ERROR",result) > 0 then
        # invalid filename
        setvar cierror ![word(result,"_",-1)]
        echo !hpcierrmsg

c)  if pos("WILD",fsyntax(filename)) > 0 then ..
       # you have a POSIX or MPE wildcarded filename

etc.

Suggestions for improvemnts are welcome.

Thanks,
Jeff

--