home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Product
/
Product.zip
/
DBDEMO.ZIP
/
DEMODB.ZIP
/
DBBUILD.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1991-07-03
|
9KB
|
228 lines
echo off
rem D30SCB01.CMD
rem This is the OS/2 cmd file used to execute OS/2 1.2 EE DBM scenario
rem D30SCB01, which creates the BANK database, seven tables, and
rem imports data into 5 of the tables, and inserts data into the remaining
rem two tables ofthe database.
rem In addition, records which do not meet table criteria (because of the
rem default database creation rules of SYMPHONY) will be deleted with pgm
rem D30ACBA4.SQC.
rem Indexes will be created on each table with pgm D30ACBD1.SQC.
rem Operator must be logged on a System Administrator.
rem
rem D30SCB01 has one optional parameter - the drive where the database
rem is to be created. The parm is used to create an input file which
rem will be read by the database creation program - D30ACBA1.C.
rem
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
rem ******************************************************************
rem
rem LOGON AS DBSYSADM - SYSTEM ADMINISTRATOR
rem
:start
rem
rem logon dbsysadm
rem
rem *****************************************************************
rem
rem TURNING TRACE 183 ON FOR USE IN POSSIBLE PROBLEM TRACKING
REM echo TRACE 183 WILL BE TURNED ON AND STARTDBM WILL BE ISSUED
rem
REM trace on 183
rem start database manager
startdbm
if errorlevel 2 goto bad_end
rem compile db create pgm D30ACBA1
echo
echo D30ACBA1 COMPILE STARTING
rem
cc D30ACBA1.C /AL /DLINT_ARGS /DSQL_REL_10 /W2 /Od /FPa;
if errorlevel 2 echo D30ACEA1.C COMPILE FAILED.
if errorlevel 2 goto bad_end
echo D30ACBA1 COMPILE COMPLETED.
rem link db create pgm D30ACBA1
rem
link /NOD/M/LI/CO/se:512 D30ACBA1+@llink.lnk;
if not exist D30ACBA1.exe echo D30ACEA1 LINK FAILED.
if not exist D30ACBA1.exe goto bad_end
echo D30ACBA1 LINK COMPLETED.
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 compile D30acba2 - dbase config
rem
cc D30acba2.c /AL /DLINT_ARGS /W2 /Od /FPa;
rem
rem link D30ACBA2 - dbase conf upd
link /NOD/M/LI/CO/se:512 D30ACBA2+@llink.lnk;
rem
rem execute db update pbm D30acba2
D30ACBA2
rem
echo DATABASE CONFIGURATION UPDATE COMPLETE
rem prep table create pgm D30ACBB1
sqlprep D30acbb1.sqc bank /B /M=ACBB1.msg
if errorlevel 2 echo D30ACBB1 SQLPREP FAILED.
if errorlevel 2 goto bad_end
echo D30ACBB1 SQLPREP COMPLETED.
rem
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 compile tbl create pgm D30acbb1
cc D30ACBB1.c /AL /DLINT_ARGS /W2 /Od /FPa;
if errorlevel 2 echo D30ACBB1.C COMPILE FAILED.
if errorlevel 2 goto bad_end
echo D30ACBB1 COMPILE COMPLETED.
rem link table create pgm D30acbb1
rem
link /NOD/M/LI/CO/se:512 D30acbb1+@llink.lnk;
if not exist D30acbb1.exe echo D30ACBB1 LINK FAILED.
if not exist D30acbb1.exe goto bad_end
echo D30ACBB1 LINK 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
sqlprep D30acbc1.sqc bank /F=1 /B
if errorlevel 2 echo D30ACBC1 SQLPREP FAILED.
if errorlevel 2 goto bad_end
echo D30ACBC1 SQLPREP COMPLETED.
sqlbind D30acbc1.bnd bank /F=1
if errorlevel 2 echo D30ACBC1 SQLBIND FAILED.
if errorlevel 2 goto bad_end
echo D30ACBC1 SQLBIND COMPLETED.
rem compile import pgm D30acbc1
rem
cc D30acbc1.c /AL /DLINT_ARGS /W2 /Od /FPa;
if errorlevel 2 echo D30ACBC1.C COMPILE FAILED.
if errorlevel 2 goto bad_end
echo D30ACBC1 COMPILE COMPLETED.
rem link import pgm D30acbc1
rem
link /NOD/M/LI/CO/se:512 D30acbc1+@llink.lnk;
if not exist D30acbc1.exe echo D30ACBC1 LINK FAILED.
if not exist D30acbc1.exe goto bad_end
echo D30ACBC1 LINK 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
sqlprep D30acb03.sqc bank /B
if errorlevel 2 echo D30ACB03 SQLPREP FAILED.
if errorlevel 2 goto bad_end
echo D30ACB03 SQLPREP COMPLETED.
sqlbind D30acb03.bnd bank
if errorlevel 2 echo D30ACB03 SQLBIND FAILED.
if errorlevel 2 goto bad_end
echo D30ACB03 SQLBIND COMPLETED.
rem compile insert pgm D30acb03
rem
cc D30acb03.c /AL /DLINT_ARGS /DSQL_REL_10 /W2 /Od /FPa;
if errorlevel 2 echo D30ACB03.C COMPILE FAILED.
if errorlevel 2 goto bad_end
echo D30ACB03 COMPILE COMPLETED.
rem link insert pgm D30acb03
rem
link /NOD/M/LI/CO/se:512 D30acb03+@llink.lnk;
if not exist D30acb03.exe echo D30ACB03 LINK FAILED.
if not exist D30acb03.exe goto bad_end
echo D30ACB03 LINK 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
sqlprep D30acba4.sqc bank /B
if errorlevel 2 echo D30ACBA4 SQLPREP FAILED.
if errorlevel 2 goto bad_end
echo D30ACBA4 SQLPREP COMPLETED.
sqlbind D30acba4.bnd bank
if errorlevel 2 echo D30ACBA4 SQLBIND FAILED.
if errorlevel 2 goto bad_end
echo D30ACBA4 SQLBIND COMPLETED.
rem compile delete pgm D30acba4
rem
cc D30acba4.c /AL /DLINT_ARGS /DSQL_REL_10 /W2 /Od /FPa;
if errorlevel 2 echo D30ACBA4.C COMPILE FAILED.
if errorlevel 2 goto bad_end
echo D30ACBA4 COMPILE COMPLETED.
rem link delete pgm D30acba4
rem
link /NOD/M/LI/CO/se:512 D30acba4+@llink.lnk;
if not exist D30acba4.exe echo D30ACBA4 LINK FAILED.
if not exist D30acba4.exe goto bad_end
echo D30ACBA4 LINK 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
sqlprep D30acbd1.sqc bank /B
if errorlevel 2 echo D30ACBD1 SQLPREP FAILED.
if errorlevel 2 goto bad_end
echo D30ACBD1 SQLPREP COMPLETED.
sqlbind D30acbd1.bnd bank
if errorlevel 2 echo D30ACBD1 SQLBIND FAILED.
if errorlevel 2 goto bad_end
echo D30ACBD1 SQLBIND COMPLETED.
rem compile index pgm D30acbd1
rem
cc D30acbd1.c /AL /DLINT_ARGS /DSQL_REL_10 /W2 /Od /FPa;
if errorlevel 2 echo D30ACBD1.C COMPILE FAILED.
if errorlevel 2 goto bad_end
echo D30ACBD1 COMPILE COMPLETED.
rem link index pgm D30acbd1
rem
link /NOD/M/LI/CO/se:512 D30acbd1+@llink.lnk;
if not exist D30acbd1.exe echo D30ACBD1 LINK FAILED.
if not exist D30acbd1.exe goto bad_end
echo D30ACBD1 LINK 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
echo D30ACB03.SUM AND D30ACB03.MST WILL BE COMPARED
rem
comp D30acb03.sum D30acb03.mst <NO.INP
if errorlevel 2 echo COMPARE EXECUTION FAILED.
if errorlevel 2 goto bad_end
echo COMPARE EXECUTION COMPLETED.
rem
echo D30SCB01 CMD FILE ENDED NORMALLY
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 WAS NOT ISSUED
echo