$! required to deassign DECC$FILE_SHARING before activating soyMAIL
$ if f$trnlnm("DECC$FILE_SHARING","LNM$PROCESS") .nes. "" then deassign /process DECC$FILE_SHARING
$ soyMAIL = f$element(0,";",f$environment("procedure")) - ".COM" - ".com" + ".EXE"
$ mcr 'soyMAIL'