home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a006 / 2.ddi / CEXAM.ZIP / PUTDOUB.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-03-11  |  707 b   |  31 lines
  1. #include <stdio.h>
  2. #include "pxengine.h"
  3.  
  4. #define TABLENAME        "table"
  5.  
  6. int main(void)
  7. {
  8.     TABLEHANDLE tblHandle;
  9.     RECORDHANDLE recHandle;
  10.     FIELDHANDLE fldHandle;
  11.     double doub = 34567.0;
  12.     int pxErr;
  13.  
  14.     PXInit();
  15.     PXTblOpen(TABLENAME, &tblHandle, 0, 0);
  16.     PXRecBufOpen(tblHandle, &recHandle);
  17.     PXFldHandle(tblHandle, "Numeric Field", &fldHandle);
  18.  
  19.     /* Update value with double value */
  20.     if ((pxErr = PXPutDoub(recHandle, fldHandle, doub))
  21.     != PXSUCCESS)
  22.         printf("%s\n", PXErrMsg(pxErr));
  23.     else
  24.         PXRecUpdate(tblHandle, recHandle);
  25.  
  26.     PXRecBufClose(recHandle);
  27.     PXTblClose(tblHandle);
  28.     PXExit();
  29.     return(pxErr);
  30. }
  31.