home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / ghostlib / query.ch < prev    next >
Encoding:
Text File  |  1994-08-31  |  2.1 KB  |  45 lines
  1. /*****************************************************************************
  2. *  Header File : QUERY.CH                                                    *
  3. *                                                                            *
  4. *       Author : R.P.J. van Geest                                            *
  5. *    Copyright : 1994 - (c) GhostWare                                        *
  6. *                                                                            *
  7. *  Description : Header file for statistic options                           *
  8. *                                                                            *
  9. * Date created : 07-02-94       updated : ■21-04-94                          *
  10. * Time created : 21:08:46       updated : ■21:18:23                          *
  11. *****************************************************************************/
  12.  
  13. // You can use this statement when compiling with Clipper 5.2
  14. #STDOUT Using QUERY.CH    - version 2.3 by GhostWare (c) 1991-1994
  15.  
  16. #XCOMMAND STATISTIC [TO] FILE <(cFile)> BREAK [ON] <cBreak> ;
  17.           [<lIndex:INDEX>] ;
  18.   =>      GWqInit(<(cFile)>, <{cBreak}>, <"cBreak">, <.lIndex.>)
  19.  
  20. #XCOMMAND STATISTIC LABEL <cExpr> TO <cField> ;
  21.   =>      GWqAddField(<cField>, VALTYPE(<cExpr>), MAX(LEN(<cExpr>), 6), 0) ;
  22.           ; GWqLabel(<{cExpr}>, <"cExpr">, <cField>)
  23.  
  24. #XCOMMAND STATISTIC ;
  25.           COUNT TO <cField> ;
  26.           [LENGTH <nLength>[, <nDecimals>]] ;
  27.           [FOR <cExpr>] ;
  28.   =>      GWqAddField(<cField>, "N", <nLength>, <nDecimals>) ;
  29.           ; GWqCount(<cField>, <{cExpr}>, <"cExpr">)
  30.  
  31. #XCOMMAND STATISTIC ;
  32.           SUM <cExpr1> ;
  33.           TO <cField> ;
  34.           [LENGTH <nLength>[, <nDecimals>]] ;
  35.           [FOR <cExpr2>] ;
  36.   =>      GWqAddField(<cField>, "N", <nLength>, <nDecimals>) ;
  37.           ; GWqSum(<{cExpr1}>, <"cExpr1">, ;
  38.           <cField>, <{cExpr2}>, <"cExpr2">)
  39.  
  40. #XCOMMAND STATISTIC <go:GO, EXECUTE>;
  41.           [<lTotals:TOTALS>] ;
  42.           [<lCounter:COUNTER>] ;
  43.           [FUNCTION <cFunc>] ;
  44.   =>      GWqGo(<.lTotals.>, <.lCounter.>, <{cFunc}>)
  45.