home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a006 / 2.ddi / CEXAM.ZIP / GETDOUB.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-03-11  |  760 b   |  32 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;
  12.     int pxErr;
  13.  
  14.     PXInit();
  15.     PXTblOpen(TABLENAME, &tblHandle, 0, 0);
  16.     PXRecBufOpen(tblHandle, &recHandle);
  17.     PXRecGet(tblHandle, recHandle);
  18.     PXFldHandle(tblHandle,"Numeric Field",&fldHandle);
  19.  
  20.     /* Get a double value from a record */
  21.     if ((pxErr = PXGetDoub(recHandle, fldHandle, &doub))
  22.     != PXSUCCESS)
  23.         printf("%s\n", PXErrMsg(pxErr));
  24.     else
  25.         printf("Field number %d contents: %lf\n", fldHandle, doub);
  26.  
  27.     PXRecBufClose(recHandle);
  28.     PXTblClose(tblHandle);
  29.     PXExit();
  30.     return(pxErr);
  31. }
  32.