Addapt VMS scripts to the newer disk layout system ODS-5, which allows more than one period and mixed size characters in file names

2001-10-29 13:05:28 +00:00
parent 9b55da73ca
commit 7b5ffd6834
5 changed files with 12 additions and 2 deletions
--- a/apps/makeapps.com
+++ b/apps/makeapps.com
@@ -1113,6 +1113,7 @@ $!
 $! Save directory information
 $!
 $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
+$ __HERE = F$EDIT(__HERE,"UPCASE")
 $ __TOP = __HERE - "APPS]"
 $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
 $!