home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Product
/
Product.zip
/
DBDEMO.ZIP
/
DEMODB.ZIP
/
DBCREATE.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1991-07-03
|
3KB
|
95 lines
echo off
rem
rem COMMAND FILE TO BUILD BANK DATABASE FOR DBM DEMO
rem
rem
rem CREATE THE DB DRIVE INPUT FILE
rem
if "%1" == "" echo c > D30SCB01.INP
if "%1" == "" goto start
echo %1 > D30SCB01.INP
rem
:START
rem start database manager
startdbm
if errorlevel 2 goto bad_end
rem execute db create pgm D30ACBA1
D30ACBA1
if errorlevel 2 echo D30ACBA1 EXECUTION FAILED.
if errorlevel 2 goto bad_end
echo D30ACBA1 EXECUTION COMPLETED.
rem execute db update pbm D30acba2
D30ACBA2
rem
echo DATABASE CONFIGURATION UPDATE COMPLETE
rem bind table create pgm D30acbb1
sqlbind D30acbb1.bnd bank /F=1
if errorlevel 2 echo D30ACBB1 SQLBIND FAILED.
if errorlevel 2 goto bad_end
echo D30ACBB1 SQLBIND COMPLETED.
rem execute tbl create pgm D30acbb1
rem
D30acbb1
if errorlevel 2 echo D30ACBB1 EXECUTION FAILED.
if errorlevel 2 goto bad_end
echo D30ACBB1 EXECUTION COMPLETED.
rem prep/bind import pgm D30acbc1
sqlbind D30acbc1.bnd bank /F=1
if errorlevel 2 echo D30ACBC1 SQLBIND FAILED.
if errorlevel 2 goto bad_end
echo D30ACBC1 SQLBIND COMPLETED.
rem execute import pgm D30acbc1
rem
D30acbc1
if errorlevel 2 echo D30ACBC1 EXECUTION FAILED.
if errorlevel 2 goto bad_end
echo D30ACBC1 EXECUTION COMPLETED.
rem prep/bind insert pgm D30acb03
sqlbind D30acb03.bnd bank
if errorlevel 2 echo D30ACB03 SQLBIND FAILED.
if errorlevel 2 goto bad_end
echo D30ACB03 SQLBIND COMPLETED.
rem execute insert pgm D30acb03
D30acb03
if errorlevel 2 echo D30ACB03 EXECUTION FAILED.
if errorlevel 2 goto bad_end
echo D30ACB03 EXECUTION COMPLETED.
rem
rem prep/bind delete pgm D30acba4
sqlbind D30acba4.bnd bank
if errorlevel 2 echo D30ACBA4 SQLBIND FAILED.
if errorlevel 2 goto bad_end
echo D30ACBA4 SQLBIND COMPLETED.
rem execute delete pgm D30acba4
D30acba4
if errorlevel 2 echo D30ACBA4 EXECUTION FAILED.
if errorlevel 2 goto bad_end
echo D30ACBA4 EXECUTION COMPLETED.
rem
rem prep/bind index pgm D30acbd1
sqlbind D30acbd1.bnd bank
if errorlevel 2 echo D30ACBD1 SQLBIND FAILED.
if errorlevel 2 goto bad_end
echo D30ACBD1 SQLBIND COMPLETED.
rem execute index pgm D30acbd1
D30acbd1
if errorlevel 2 echo D30ACBD1 EXECUTION FAILED.
if errorlevel 2 goto bad_end
echo D30ACBD1 EXECUTION COMPLETED.
rem
rem
echo D30SCB01 CMD FILE ENDED NORMALLY
echo BANK DATABASE HAS BEEN CREATED
goto end
rem
:bad_end
echo D30SCB01 CMD FILE TERMINATED DUE TO ERROR
echo
echo CHECK FOR *.ERR FILE IF PROGRAM EXECUTION FAILED
echo
rem
:end
echo
echo STOPDBM WILL NOT BE ISSUED
echo