From: Arpadffy Zoltan <zoltan.arpad...@scientificgames.se> > I have been forced to do it on more old fashioned way in order to get > this work > > $ ROOT =3D F$PARSE(__here,"[]A.;0",,,"SYNTAX_ONLY,NO_CONCEAL") - > "A.;0" > $ ROOT_DEV =3D F$PARSE(ROOT,,,"DEVICE","SYNTAX_ONLY") > $ ROOT_DIR =3D F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") - > - ".][000000" - "[000000." - "][" - "[" - "]" - > ".TEST" > $ ROOT =3D ROOT_DEV + "[" + ROOT_DIR > $ DEFINE/NOLOG SSLROOT 'ROOT'.APPS.] /TRANS=3DCONC
Using '- ".TEST"' like that will fail on an ODS5 file system where the directory is named "test", not "TEST". Better to use something like this: ROOT_DIR = F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") - - ".][000000" - "[000000." - "][" - "[" set default "''ROOT_DEV'[''ROOT_DIR'" set default [-.apps] Then use f$environment( "DEFAULT") to get the actual dev:[dir] string, and add the dot to that. "SET DEFAULT [-]" is safe on any file system. ------------------------------------------------------------------------ Steven M. Schweda s...@antinode-info 382 South Warwick Street (+1) 651-699-9818 Saint Paul MN 55105-2547 ______________________________________________________________________ OpenSSL Project http://www.openssl.org Development Mailing List openssl-dev@openssl.org Automated List Manager majord...@openssl.org