File: odbc_setup.com

package info (click to toggle)
unixodbc 2.2.11-16
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 17,332 kB
  • ctags: 12,399
  • sloc: ansic: 116,624; cpp: 29,333; sh: 25,024; makefile: 3,002; lex: 241; yacc: 182; perl: 142; 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