OS/2 Shareware BBS: Product/Product.zip/DBDEMO.ZIP/DEMODB.ZIP/BANKMK.CMD

OS/2 REXX Batch file | 1991-03-15 | 8KB | 214 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 [e-mail];
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
REM 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 [e-mail];
rem
rem                                              execute db update pbm D30acba2
REM 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 [e-mail];
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
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
if errorlevel 2 echo  D30ACBC1 SQLPREP FAILED.
if errorlevel 2 goto bad_end
echo D30ACBC1 SQLPREP 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 [e-mail];
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
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
if errorlevel 2 echo  D30ACB03 SQLPREP FAILED.
if errorlevel 2 goto bad_end
echo D30ACB03 SQLPREP 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 [e-mail];
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
REM 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
if errorlevel 2 echo  D30ACBA4 SQLPREP FAILED.
if errorlevel 2 goto bad_end
echo D30ACBA4 SQLPREP 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 [e-mail];
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
REM 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
if errorlevel 2 echo  D30ACBD1 SQLPREP FAILED.
if errorlevel 2 goto bad_end
echo D30ACBD1 SQLPREP 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 [e-mail];
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
REM 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
compare D30acb03.sum D30acb03.mst
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 TRACE WILL BE TURNED OFF
trace off
echo
echo STOPDBM WILL NOT BE ISSUED
echo