home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / odbc301.zip / mkodbc.cmd < prev    next >
OS/2 REXX Batch file  |  2001-06-27  |  3KB  |  51 lines
  1. /*
  2.  * mkodbc.cmd -- Build the file ODBCINST.INI
  3.  */
  4.  
  5. parse arg Drive ODBCPath
  6.  
  7. IniPath = '\os2\odbcinst.ini'
  8.  
  9. call RXFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  10. call SysLoadFuncs
  11.  
  12. ODBCIniPath = Drive || IniPath
  13.  
  14. result = SysIni( ODBCIniPath , "ODBC Drivers", "Insight Postgres SQL 7.1", "Installed" )
  15. result = SysIni( ODBCIniPath , "Insight Postgres SQL 7.1", "Driver", ODBCPath || "\drivers\psqlodbc.dll" || d2c(00) )
  16. result = SysIni( ODBCIniPath , "Insight Postgres SQL 7.1", "Setup" , ODBCPath || "\drivers\psqlodbc.dll" || d2c(00) )
  17.  
  18. result = SysIni( ODBCIniPath , "ODBC Drivers", "Intersolv 3.01 Btrieve", "Installed" )
  19. result = SysIni( ODBCIniPath , "Intersolv 3.01 Btrieve", "Driver", ODBCPath || "\drivers\ibbtr12.dll" || d2c(00) )
  20. result = SysIni( ODBCIniPath , "Intersolv 3.01 Btrieve", "Setup" , ODBCPath || "\drivers\ibbtr12.dll" || d2c(00) )
  21.  
  22. result = SysIni( ODBCIniPath , "ODBC Drivers", "Intersolv 3.01 db2", "Installed" )
  23. result = SysIni( ODBCIniPath , "Intersolv 3.01 db2", "Driver", ODBCPath || "\drivers\ibdb212.dll" || d2c(00) )
  24. result = SysIni( ODBCIniPath , "Intersolv 3.01 db2", "Setup" , ODBCPath || "\drivers\ibdb212.dll" || d2c(00) )
  25.  
  26. result = SysIni( ODBCIniPath , "ODBC Drivers", "Intersolv 3.01 dBase", "Installed" )
  27. result = SysIni( ODBCIniPath , "Intersolv 3.01 dBase", "Driver", ODBCPath || "\drivers\ibdbf12.dll" || d2c(00) )
  28. result = SysIni( ODBCIniPath , "Intersolv 3.01 dBase", "Setup" , ODBCPath || "\drivers\ibdbf12.dll" || d2c(00) )
  29.  
  30. result = SysIni( ODBCIniPath , "ODBC Drivers", "Intersolv 3.01 Oracle7", "Installed" )
  31. result = SysIni( ODBCIniPath , "Intersolv 3.01 Oracle7", "Driver", ODBCPath || "\drivers\ibor712.dll" || d2c(00) )
  32. result = SysIni( ODBCIniPath , "Intersolv 3.01 Oracle7", "Setup" , ODBCPath || "\drivers\ibor712.dll" || d2c(00) )
  33.  
  34. result = SysIni( ODBCIniPath , "ODBC Drivers", "Intersolv 3.01 Sybase10", "Installed" )
  35. result = SysIni( ODBCIniPath , "Intersolv 3.01 Sybase10", "Driver", ODBCPath || "\drivers\ibsyb12.dll" || d2c(00) )
  36. result = SysIni( ODBCIniPath , "Intersolv 3.01 Sybase10", "Setup" , ODBCPath || "\drivers\ibsyb12.dll" || d2c(00) )
  37.  
  38. result = SysIni( ODBCIniPath , "ODBC Drivers", "Intersolv 3.01 Text", "Installed" )
  39. result = SysIni( ODBCIniPath , "Intersolv 3.01 Text", "Driver", ODBCPath || "\drivers\ibtxt12.dll" || d2c(00) )
  40. result = SysIni( ODBCIniPath , "Intersolv 3.01 Text", "Setup" , ODBCPath || "\drivers\ibtxt12.dll" || d2c(00) )
  41.  
  42. result = SysIni( ODBCIniPath , "ODBC Drivers", "Intersolv 3.01 Informix5", "Installed" )
  43. result = SysIni( ODBCIniPath , "Intersolv 3.01 Informix5", "Driver", ODBCPath || "\drivers\ibinf512.dll" || d2c(00) )
  44. result = SysIni( ODBCIniPath , "Intersolv 3.01 Informix5", "Setup" , ODBCPath || "\drivers\ibinf512.dll" || d2c(00) )
  45.  
  46. result = SysIni( ODBCIniPath , "ODBC Translators", "OEM to ANSI", "Installed" )
  47. result = SysIni( ODBCIniPath , "OEM to ANSI", "Translator", ODBCPath || "\dll\ibtrn12.dll" || d2c(00) )
  48. result = SysIni( ODBCIniPath , "OEM to ANSI", "Setup", ODBCPath || "\dll\ibtrn12.dll" || d2c(00) )
  49.  
  50. exit
  51.