testnull.ec

informix ESQL/C 测试程序

 

#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <sys/types.h>
#include <sys/timeb.h>
#include <string.h>
#include <memory.h>
#include <math.h>
#include <unistd.h> 
 

$include sqlca;
$include sqltypes.h;
$include sqlhdr;
$include locator;

#define       Success  1
#define       Faild    2
 


int   Open_DataBase(char * dbname)
{
    $char  Sqldbname[20];

      strcpy( Sqldbname, dbname );
      $database  $Sqldbname;
      $SET LOCK MODE TO WAIT 600; 

      if(sqlca.sqlcode ==0 ) return Success ;
      else return Faild ;

}

int   Close_DataBase (void)
{
      $close database ;
      if(sqlca.sqlcode ==0) return Success ;
      return  Faild ;
}

 
 
int   main (void)
{
  
          $double sqlTotstock=0 ;
          
          
            if ( Open_DataBase("jnb") == Faild){
                  printf("  |jnb 数据库服务器连接失败，请检查系统！\n" );
                  return Faild ;
              }   
              
            $select  sum(stock) into $sqlTotstock 
             from     gds_spmainbase
             where    shopno = 22 and cargono = 33333 
                   and goodscode = "aadsss" and stock >0 and flag =0 ;
             if (sqlca.sqlcode <0) {
                 printf("error :%d \n" ,sqlca.sqlcode );
                 return ;
             } 
              
             printf("1 sum(stock) = %f \n" ,sqlTotstock ) ; 
                    
             if ( risnull( CDOUBLETYPE ,(char *)&sqlTotstock)== 1    )  {
                    printf(" sqlTotstock is null \n" ) ;
                    sqlTotstock = 0 ;
                   
             }        
   
              printf("2 sum(stock) = %f \n" ,sqlTotstock ) ; 
              
              
              
              
           Close_DataBase() ;
  
}