File: odbc_setup.com

package info (click to toggle)
unixodbc 2.2.11-13
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 17,292 kB
  • ctags: 12,410
  • sloc: ansic: 116,624; cpp: 29,333; sh: 16,966; makefile: 2,961; lex: 241; yacc: 182; perl: 141; sed: 16; sql: 1
file content (14 lines) | stat: -rw-r--r-- 507 bytes parent folder | download | duplicates (11) 
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