home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Product
/
Product.zip
/
DBDEMO.ZIP
/
DEMODB.ZIP
/
DBCOMP.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1991-07-03
|
5KB
|
148 lines
echo off
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 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 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 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 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 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 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 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 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 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 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 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
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