>>SYS(16) or PROGRAM() and check the extension (I'm not sure if both return the extension).
>
>No, this is returning the calling sequence modules.

SYS(16,0) is what you need. Just use the second param and check for the last characters: APP or EXE.

Vlad