$!----------------------------------------------------------------------------- $! PHPWASD.COM $! $! This procedure should be located in the same directory as PHPWASD.EXE $! If the system-wide logical name PHPWASD$EFS is defined, or if the RTE script $! path has ods=5 against the path and a SET PROCESS/PARSE=EXTENDED has been $! performed by the server during script activation (WASD v8.4.2) then define $! the DECC RTL environment variables required for case-sensitive, extended $! file system processing. $! $! 17-AUG-2005 MGD suppress logical name redefinition informational $! 21-FEB-2004 MGD initial $!----------------------------------------------------------------------------- $ extended = 0 $ version = f$getsyi("version") $ version = f$integer(f$extract(1,1,version)) * 10 +- f$integer(f$extract(3,1,version)) $ if version .gt. 72 $ then $ if f$getjpi(0,"parse_style_perm") .eqs. "EXTENDED" then extended = 1 $ endif $ if f$trnlnm("PHPWASD$EFS") .nes. "" then extended = 1 $ if extended $ then $ define = "define/nolog" $ define decc$argv_parse_style enable $ define decc$efs_case_preserve enable $ define decc$efs_charset enable $ define decc$efs_case_special enable $ define decc$enable_getenv_cache enable $ define decc$posix_seek_stream_file enable $ define decc$file_sharing enable $ endif $ locn = f$environment("procedure") $ locn = f$parse(locn,,,"device") + f$parse(locn,,,"directory") $ mcr 'locn'phpwasd.exe $!-----------------------------------------------------------------------------