home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / DBDEMO.ZIP / DEMODB.ZIP / DBCREATE.CMD < prev    next >
OS/2 REXX Batch file  |  1991-07-03  |  3KB  |  95 lines
  1. echo off
  2. rem
  3. rem  COMMAND FILE TO BUILD BANK DATABASE FOR DBM DEMO
  4. rem
  5. rem
  6. rem  CREATE THE DB DRIVE INPUT FILE
  7. rem
  8. if "%1" == "" echo c > D30SCB01.INP
  9. if "%1" == "" goto start
  10. echo %1 > D30SCB01.INP
  11. rem
  12. :START
  13. rem                                                   start database manager
  14. startdbm
  15. if errorlevel 2 goto bad_end
  16. rem                                              execute db create pgm D30ACBA1
  17. D30ACBA1
  18. if errorlevel 2 echo D30ACBA1 EXECUTION FAILED.
  19. if errorlevel 2 goto bad_end
  20. echo D30ACBA1 EXECUTION COMPLETED.
  21. rem                                              execute db update pbm D30acba2
  22. D30ACBA2
  23. rem
  24. echo DATABASE CONFIGURATION UPDATE COMPLETE
  25. rem                                              bind table create pgm D30acbb1
  26. sqlbind D30acbb1.bnd bank /F=1
  27. if errorlevel 2 echo  D30ACBB1 SQLBIND FAILED.
  28. if errorlevel 2 goto bad_end
  29. echo D30ACBB1 SQLBIND COMPLETED.
  30. rem                                             execute tbl create pgm D30acbb1
  31. rem
  32. D30acbb1
  33. if errorlevel 2 echo D30ACBB1 EXECUTION FAILED.
  34. if errorlevel 2 goto bad_end
  35. echo D30ACBB1 EXECUTION COMPLETED.
  36. rem                                             prep/bind import pgm D30acbc1
  37. sqlbind D30acbc1.bnd bank /F=1
  38. if errorlevel 2 echo  D30ACBC1 SQLBIND FAILED.
  39. if errorlevel 2 goto bad_end
  40. echo D30ACBC1 SQLBIND COMPLETED.
  41. rem                                             execute import pgm D30acbc1
  42. rem
  43. D30acbc1
  44. if errorlevel 2 echo D30ACBC1 EXECUTION FAILED.
  45. if errorlevel 2 goto bad_end
  46. echo D30ACBC1 EXECUTION COMPLETED.
  47. rem                                             prep/bind insert pgm D30acb03
  48. sqlbind D30acb03.bnd bank
  49. if errorlevel 2 echo  D30ACB03 SQLBIND FAILED.
  50. if errorlevel 2 goto bad_end
  51. echo D30ACB03 SQLBIND COMPLETED.
  52. rem                                             execute insert pgm D30acb03
  53. D30acb03
  54. if errorlevel 2 echo D30ACB03 EXECUTION FAILED.
  55. if errorlevel 2 goto bad_end
  56. echo D30ACB03 EXECUTION COMPLETED.
  57. rem
  58. rem                                             prep/bind delete pgm D30acba4
  59. sqlbind D30acba4.bnd bank
  60. if errorlevel 2 echo  D30ACBA4 SQLBIND FAILED.
  61. if errorlevel 2 goto bad_end
  62. echo D30ACBA4 SQLBIND COMPLETED.
  63. rem                                             execute delete pgm D30acba4
  64. D30acba4
  65. if errorlevel 2 echo D30ACBA4 EXECUTION FAILED.
  66. if errorlevel 2 goto bad_end
  67. echo D30ACBA4 EXECUTION COMPLETED.
  68. rem
  69. rem                                             prep/bind index pgm D30acbd1
  70. sqlbind D30acbd1.bnd bank
  71. if errorlevel 2 echo  D30ACBD1 SQLBIND FAILED.
  72. if errorlevel 2 goto bad_end
  73. echo D30ACBD1 SQLBIND COMPLETED.
  74. rem                                             execute index pgm D30acbd1
  75. D30acbd1
  76. if errorlevel 2 echo D30ACBD1 EXECUTION FAILED.
  77. if errorlevel 2 goto bad_end
  78. echo D30ACBD1 EXECUTION COMPLETED.
  79. rem
  80. rem
  81. echo D30SCB01 CMD FILE ENDED NORMALLY
  82. echo BANK DATABASE HAS BEEN CREATED
  83. goto end
  84. rem
  85. :bad_end
  86. echo D30SCB01 CMD FILE TERMINATED DUE TO ERROR
  87. echo
  88. echo CHECK FOR *.ERR FILE IF PROGRAM EXECUTION FAILED
  89. echo
  90. rem
  91. :end
  92. echo
  93. echo STOPDBM WILL NOT BE ISSUED
  94. echo
  95.