$ this = f$environment("PROCEDURE")
$ this_dir = f$parse(this,,,"DEVICE") + f$parse(this,,,"DIRECTORY")
$ define/system/exec/nolog LIBIMAGING 'this_dir'
$ define/system/exec/nolog LIBIMAGING_SHR32 LIBIMAGING:libimagingshr32-1_1_4.exe
$! define/system/exec/nolog LIBIMAGING_SHR64 LIBIMAGING:libimagingshr64-1_1_4.exe