$ this = f$environment("PROCEDURE")
$ this_dir = f$parse(this,,,"DEVICE") + f$parse(this,,,"DIRECTORY")
$ define/system/exec/nolog LIBZ 'this_dir'
$ define/system/exec/nolog LIBZ_SHR32 LIBZ:libzshr32-1_2_1.exe
$ define/system/exec/nolog LIBZ_SHR64 LIBZ:libzshr64-1_2_1.exe