home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / kcss0012.zip / SAMPLES / DAX / TOYS.CSS < prev    next >
Cascading Style Sheet File  |  1998-02-21  |  2KB  |  83 lines
  1. /*  Copyright (c) 1998 IBK-Landquart-Switzerland. All rights reserved.
  2.  *
  3.  *  Module      :  Toys.css
  4.  *  Application :  Sample showing several dax functions in context
  5.  *  Author      :  Peter Koch, IBK
  6.  *
  7.  *  Date        Description                                 Who
  8.  *  --------------------------------------------------------------------------
  9.  *  Feb 1998    First release                               P.Koch, IBK
  10.  *  Feb 1998    Modified for V0.12                          P.Koch, IBK
  11.  */
  12. #loadLibrary 'KcSysLib'
  13. #loadLibrary 'KcStrLib'
  14. #loadLibrary 'KcDaxLib'
  15.  
  16. main()
  17. {
  18.   // check arguments
  19.   if (sizeof(mainArgVals) < 3) {
  20.     const exc[3] = {
  21.       'usage  : CSS TOYS name/password@connection',
  22.       ' ',
  23.       'example: CSS TOYS SCOTT/TIGER@SALES'
  24.     };
  25.     throw exc;
  26.   }
  27.  
  28.   sysLog('connect');
  29.   var name, pass, conn, a = 2;
  30.   name = strSplitConnectString(mainArgVals[a],pass,conn);
  31.   var link = daxConnect('db2',conn,name,pass);
  32.  
  33.   try {
  34.     sysLog('drop old table');
  35.     daxSimple(link, "drop table csstest");
  36.     daxCommit(link);
  37.   }
  38.   catch (var exc[]) {
  39.     sysLog('no old table to drop');
  40.   }
  41.  
  42.   daxSimple(link,
  43.     "create table csstest ( "
  44.        "ident integer, "
  45.        "descr varchar(30) "
  46.     ")"
  47.   );
  48.  
  49.   sysLog('insert rows');
  50.   var toys = {
  51.     1, 'barbie',
  52.    12, 'football',
  53.   325, 'tomb raider II',
  54.    18, 'flipper'
  55.   };
  56.   var csr = daxParse(link,
  57.               "insert into csstest(ident,descr) "
  58.               "values (#6, #30)"
  59.             );
  60.   daxSupply(csr,toys);
  61.   daxDone(csr);
  62.   daxCommit(link);
  63.  
  64.   sysLog(
  65.     '# of rows in csstest is '+
  66.     daxSimple(link, "select count(*) from csstest")
  67.   );
  68.  
  69.   sysLog('query rows');
  70.   csr = daxParse(link,
  71.     "select ident, descr from csstest "
  72.      "where ident between #6 and #6 "
  73.      "order by ident"
  74.   );
  75.   var vals = { 10, 1000 };
  76.   daxSupply(csr, vals);
  77.   while (daxFetch(csr, vals))
  78.     sysLog(vals[0]+' - '+vals[1]);
  79.  
  80.   sysLog('disconnect');
  81.   daxDisconnect(link);
  82. }
  83.