Get the current directory of the file that is being executed

DEFINE VARIABLE process-id AS CHARACTER FORMAT "x(60)".
DEFINE VARIABLE dir-path   AS CHARACTER NO-UNDO VIEW-AS EDITOR SIZE 60 BY 10.
INPUT THROUGH echo %cd% NO-undo.
SET process-id dir-path WITH FRAME indata NO-BOX NO-LABELS.
/*DISPLAY process-id dir-path FORMAT "x(800)".*/
INPUT CLOSE.

MESSAGE dir-path VIEW-AS ALERT-BOX.