Codigo para saber qual programa q esta sendo executado:

MESSAGE PROGRAM-NAME(1) VIEW-AS ALERT-BOX.

flw