1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
$ whoami = f$parse(f$environment("PROCEDURE"),,,,"NO_CONCEAL")
$ whereami = f$parse(whoami,,,"DEVICE") + f$parse(whoami,,,"DIRECTORY") - ".][000000]" - "][" - ".]" - "]" + "]"
$ define ODBC_LIBDIR 'whereami'
$!
$ file_loop:
$ file = f$search("ODBC_LIBDIR:*ODBC*.EXE")
$ if file .eqs. "" then goto file_loop_end
$ image_name = f$parse(file,,,"NAME")
$ define 'f$edit(image_name,"UPCASE")' "ODBC_LIBDIR:''image_name'.EXE"
$ goto file_loop
$ file_loop_end:
$!
$ isql :== $ODBC_LIBDIR:ISQL.EXE
$ exit
|
