An imperfect way is to use the following:
  setvar invoked_by word("!-1")

This grabs the most recent line (TOS) from the history stack.
There are several problems with this approach:
  - HPREDOSIZE can be 0 thus you have no history stack
  - you could be invoked from a UDC or script and these commands are
    not written to the redo stack
  - plus the problems Stan mentioned about symbolic links, HFS vs.
    MPE program file syntax, COMMAND intrinsic, file equations, etc.

The JINFO CI function (6.0 express 1) returns the current command line,
which may help.

Jeff Vance, CSY

> -----Original Message-----
> From: Ted Ashton [mailto:[log in to unmask]]
> Sent: Monday, October 04, 1999 4:48 PM
> To: [log in to unmask]
> Subject: Quick question
>
>
> Greetings,
>
>   Is there a (preferably User mode) method to find out what
> command invoked a
> given program (not Posix)?  Under Un*x, a program can exist
> under multiple
> names and can act differently depending on which name was
> used to invoke it
> (witness gzip, gunzip, gzcat).  Is there a way to find out that same
> information for, say, a Pascal/iX program?  (I've already
> checked PROCINFO,
> HPMYFILE and HPMYPROGRAM, all of which give the actual file
> name, not the
> name used)
>
> TIA,
> Ted
> --
> Ted Ashton ([log in to unmask]), Info Serv, Southern
> Adventist University
>           ==========================================================
> Mechanics is the paradise of the mathematical sciences,
> because by means of
> it one comes to the fruits of mathematics.
>                         -- da Vinci, Leonardo (1452-1519)
>