home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c160 / 1.ddi / UPDATE / U4UPDATE.C next >
Encoding:
C/C++ Source or Header  |  1990-02-06  |  794 b   |  56 lines
  1.  
  2.  
  3. #include "d4all.h"
  4.  
  5.  
  6. int  d4write2( rec )
  7. long  rec ;
  8. {
  9.    int  rc ;
  10.  
  11.    if ( rec <= 0  ||  rec > d4reccount() )
  12.       return( d4append() ) ;
  13.  
  14.    rc =  d4write( rec ) ;
  15.    if ( rc == -3 )  return -2 ;
  16.    if ( rc == -2 )  return -1 ;
  17.  
  18.    return( rc ) ;
  19. }
  20.  
  21.  
  22. int  d4go2( rec )
  23. long  rec ;
  24. {
  25.    if ( rec > d4reccount() || rec <= 0L )
  26.    {
  27.       d4blank() ;
  28.       return 0 ;
  29.    }
  30.  
  31.    return( d4go(rec) ) ;
  32. }
  33.  
  34.  
  35. KEY *b4key( index_ref )
  36. int  index_ref ;
  37. {
  38.    return( i4key(index_ref) ) ;
  39. }
  40.  
  41.  
  42. int  c4dt_index( dbf_date, index_date )
  43. char *dbf_date ;
  44. double *index_date ;
  45. {
  46.    return( c4dt_julian( dbf_date, index_date) ) ;
  47. }
  48.  
  49.  
  50. void  c4dt_dbf( dbf_date, index_date )
  51. char *dbf_date ;
  52. double *index_date ;
  53. {
  54.    c4dt_str( dbf_date, index_date) ;
  55. }
  56.