home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / netdor3.zip / VNDINST / FRNTENDS / IBMC2 / PACKINI.CMD next >
OS/2 REXX Batch file  |  1996-04-04  |  2KB  |  72 lines
  1. /***********************************************************/
  2. /*                 SETUP - Version 1.00                    */
  3. /*                                                         */
  4. /* Author:   John Walicki                                  */
  5. /* Purpose:  Sets up the proper IBM C/2 environment        */
  6. /***********************************************************/
  7.  trace 'O'
  8.  '@echo off'
  9.  
  10.  call RxFuncAdd 'RXOS2INI',    'RXUTILS', 'RXOS2INI'
  11.  
  12.  File = 'USER'
  13.  App = 'IBMC2'
  14.  Toolkit = 'Toolkit'
  15.  TCPIP = 'TCPIP'
  16.  SQLLIB = 'SQLLIB'
  17.  
  18. CurTKver=RxOs2Ini(File, App, Toolkit)
  19. LinkTCP=RxOs2Ini(File,  App, TCPIP)
  20. LinkSQL=RxOs2Ini(File,  App, SQLLIB )
  21.  
  22. if CurTKver <> '$RXERROR' then do
  23.   Ver=right(CurTKver,1)
  24.   say 'Current OS/2 Programming Toolkit: 1.'Ver
  25.   if left(LinkTCP,1) = 'Y' then
  26.      say 'Link to TCPIP Libraries: Yes'
  27.   else
  28.      say 'Link to TCPIP Libraries: No'
  29.   if left(LinkSQL,1) = 'Y' then
  30.      say 'Link with SQL support: Yes'
  31.   else
  32.      say 'Link with SQL support: No'
  33.   say;
  34.   say 'You can choose to change the current settings or accept them.'
  35.   say;
  36. end
  37.  
  38. say 'IBM C/2 can link your applications with any of the following Programming Toolkits'
  39. say '     1. IBM OS/2 Programming Tools and Information Ver 1.1'
  40. say '     2. IBM OS/2 Programming Tools and Information Ver 1.2'
  41. say '     3. IBM OS/2 Programming Tools and Information Ver 1.3'
  42. say;
  43. say 'Choose which toolkit you want to link your applications with:'
  44. do until WhichTK='1' | WhichTK='2' | WhichTK='3'
  45.   WhichTK = left(linein(STDIN),1)
  46. end
  47.  
  48. say;
  49. say 'If you are writing TCP/IP applications you will want to link with the TCPIP Libraries.'
  50. say 'Do you want to include the TCPIP libraries in the LIBPATH? (Y/N)'
  51. do until LinkTCP='Y' | LinkTCP='N'
  52.   LinkTCP = translate(left(linein(STDIN),1))
  53. end
  54.  
  55. say;
  56. say 'If you are writing Database Manager applications you will want to link '
  57. say 'with the SQL Libraries and header files.'
  58. say 'Do you want to include the SQL libraries and headers? (Y/N)'
  59. do until LinkSQL='Y' | LinkSQL='N'
  60.   LinkSQL = translate(left(linein(STDIN),1))
  61. end
  62.  
  63. CurTKver = 'TOOLKT1'WhichTK
  64.  
  65. call RxOs2Ini File, App, TCPIP,   LinkTCP
  66. call RxOs2Ini File, App, SQLLIB,  LinkSQL
  67. call RxOs2Ini File, App, Toolkit, CurTKver
  68.  
  69. say;
  70. say 'IBMC2 Toolkit version, TCPIP and SQL link access saved.'
  71. exit
  72.