$ this = f$environment("PROCEDURE")
$ this_dir = f$parse(this,,,"DEVICE") + f$parse(this,,,"DIRECTORY")
$ define/system/exec/nolog LIBPNG 'this_dir'
$ define/system/exec/nolog LIBPNG_SHR32 LIBPNG:libpngshr32-1_2_5.exe
$ define/system/exec/nolog LIBPNG_SHR64 LIBPNG:libpngshr64-1_2_5.exe"