USAGE
    signed int scdiknum(
            unsigned char *key,
            double value );

PROTOTYPE IN
   sc_base.h

DESCRIPTION
   scdiknum will translate a 'C' double value to a FoxBASE+ numeric
   key.

EXAMPLE
   #include <softc.h>
   #include <sc_base.h>

   void main()
   {
     int dbf, idx;
     long recno;
     unsigned char key[8]
     double length = 123.67L
     scdinit(20,0);
     if (scddopenx(&dbf, "TOC.DBF",0) == SC_SUCCESS) {
       if (scdiopenx(&idx, "TOCLNGTH.IDX", SC_BUFFER) == SC_SUCCESS) {
         scddfput(dbf,1,&length);
         if (scddrput(dbf,&recno,SC_ADD) == SC_SUCCESS) {
           scdiknum(key,length);
           scdikadd(idx,key,recno);
         }
         scdiclose(idx);
       }
       scddclose(dbf)
     }
     scdterm();
   }