home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / query87 / qsetkey.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-05-31  |  401 b   |  30 lines
  1. /*
  2.  
  3.     Routines for retrieving global variables from Clipper - Summer '87
  4.  
  5.     R. Whitt  -  5/28/88
  6.  
  7. */
  8.  
  9.  
  10. #include "nandef.h"
  11. #include "extend.h"
  12.  
  13.  
  14.  
  15. /*  Set key values  */
  16.  
  17. struct keystruct
  18.    {
  19.    int keyval;
  20.    unsigned int segaddr;
  21.    unsigned int offaddr;
  22.    };
  23.  
  24. extern struct keystruct _keyset[32];
  25.  
  26. CLIPPER setkey()
  27. {
  28.    _retni( _keyset[_parni(1) - 1].keyval );
  29. }
  30.