home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / kcss0012.zip / SAMPLES / DAX / UNKNOWN.CSS < prev   
Cascading Style Sheet File  |  1998-02-21  |  2KB  |  67 lines
  1. /*  Copyright (c) 1998 IBK-Landquart-Switzerland. All rights reserved.
  2.  *
  3.  *  Module      :  Unknown.css
  4.  *  Application :  Sample to query an unknown table
  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) < 4) {
  20.     const exc[3] = {
  21.       'usage  : CSS UNKNOWN name/password@connection tablename',
  22.       ' ',
  23.       'example: CSS UNKNOWN SCOTT/TIGER@SALES EMP'
  24.     };
  25.     throw exc;
  26.   }
  27.  
  28.   // connect
  29.   var name, pass, conn, a = 2;
  30.   name = strSplitConnectString(mainArgVals[a++], pass, conn);
  31.   var lnk = daxConnect('db2', conn, name, pass);
  32.  
  33.   // start processing
  34.   var csr = daxParse(lnk, "select * from "+mainArgVals[a]+" order by 1");
  35.   var cols = daxSelectColumns(csr);
  36.   var line, size[cols];
  37.  
  38.   // display title
  39.   for (var i=0; i<cols; i++) {
  40.     size[i] = daxSelectColumnSize(csr,i);
  41.     line +=
  42.       strSubString(
  43.         daxSelectColumnName(csr,i),
  44.         1, size[i]+1
  45.       );
  46.   }
  47.   sysLog(line);
  48.  
  49.   // underline the title
  50.   line = '';
  51.   for (i=0; i<cols; i++)
  52.     line += strSubString('',1,size[i],'-')+' ';
  53.   sysLog(line);
  54.  
  55.   // query and display the rows
  56.   var col[cols];
  57.   while (daxFetch(csr, col)) {
  58.     line = '';
  59.     for (i=0; i<cols; i++)
  60.       line += strSubString(col[i],1,size[i])+' ';
  61.     sysLog(line);
  62.   }
  63.   sysLog();
  64.   sysLog(daxRowsProcessed(csr)+" row(s) selected");
  65.   daxDisconnect(lnk);
  66. }
  67.