/* REXX */ parse Arg fid If fid='?' | fid='' Then Do Say 'fn(filespec) returns the file name part of the filespec' Exit End Parse Var fid fn '.' ft Return fn