I often use this snippet of code in my main program.

*-- Set Default directory from program directory
lcSys16 = SYS(16)
lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)
lcDefaDir = LEFT(lcProgram, RAT("\", lcProgram))
SET DEFA TO (lcDefaDir)