home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv8.zip / VACPP / IBMCPP / samples / DATABASE / STOCK / SOM / RESETDB.CMD < prev    next >
OS/2 REXX Batch file  |  1995-06-06  |  1KB  |  32 lines
  1. /* REXX */
  2. /*
  3.  COPYRIGHT: Copyright (C) International Business Machines Corp., 1992,1994.
  4.  
  5.  DISCLAIMER OF WARRANTIES:
  6.    The following [enclosed] code is sample code created by IBM
  7.    Corporation.  This sample code is not part of any standard IBM product
  8.    and is provided to you solely for the purpose of assisting you in the
  9.    development of your applications.  The code is provided "AS IS",
  10.    without warranty of any kind.  IBM shall not be liable for any damages
  11.    arising out of your use of the sample code, even if they have been
  12.    advised of the possibility of such damages.
  13. */
  14.  
  15. DBName = "BrchTwo"
  16.  
  17. say "Populating" DBName
  18. call dbm "connect to" DBName
  19. say "Deleting current contents of" DBName "(if any)"
  20. call dbm "delete from receivedorder"
  21. call dbm "delete from inventory"
  22. say "Inserting data into" DBName
  23. call dbm "insert into inventory values( 'RAM4-72', 200.85, 210.68, 25, '4M SIMM 72 pin 70 ns')"
  24. call dbm "insert into inventory values( 'MONAD14', 380.45, 409.00, 15, 'ADI 14i .28 Microsc.')"
  25. call dbm "insert into inventory values( 'PRTZP52', 345.45, 389.00, 23, 'ZP Inkjet 360x360   ')"
  26. call dbm "insert into receivedOrder values( 111,'RAM4-72',10,1800.00,'01/01/1994',1)"
  27. call dbm "insert into receivedOrder values( 112,'RAM4-72',10,1823.00,'02/01/1994',0)"
  28. call dbm "commit"
  29. call dbm "connect reset"
  30. say BrchOne "data population complete."
  31.  
  32.