動態SQL中DESCRIPTOR的應用 (轉)

動態SQL中DESCRIPTOR的應用 (轉)[@more@]

動態中DESCRIPTOR的應用

王光紅

動態SQL具有的靈活性是眾所周知的，本人在此介紹一種應用DESCRIPTOR的動態SQL：

$short b_num;
$char *command;

$char Sql[1024];
$short flag;
$date Date;
$long Number, b_count, j;
$long prec;
$long type;
$long scale;
$double money;

sprintf(Sql, " * from table");

$prepare qid from $Sql;
if(SQLCODE) return -1;
$declare BROWSE scroll cursor for qid;
if(SQLCODE) return -2;
$allocate descriptor 'browsdesc' with max :b_num; //在描述區分配空間，並設定最大的專案數

 $get descriptor 'browsdesc' :b_count=count;//得到查詢的欄位個數
 if(SQLCODE){
 SqlErrHandle(SQLCODE, SELECT);
 goto EXIT0;
 }

 $fetch BROWSE using sql descriptor 'browsdesc';
 if(SQLCODE){
 strcpy(RetPacket.data, "SELECT ERROR|");
 SqlErrHandle(SQLCODE, SELECT);
 goto EXIT0;
 }

 for(j=1;j<=b_count;j++){
 $get descriptor 'browsdesc' value $j  //當前欄位序號
 $prec=precision, /*money、decimal*/
 $scale=scale, /*money、decimal*/
 $type=type;
 if(SQLCODE){
 SqlErrHandle(SQLCODE, SELECT);
 goto EXIT0;
 }
 switch(type){
 case SQLFLOAT:
 case SQLSMFLOAT:
 case SQLDECIMAL:
 case SQLMONEY:
 if(prec)
 sprintf(fmt, "%s%d.%df", "%",prec+1, scale);
 else
 strcpy(fmt, "%f");
 $get descriptor 'browsdesc' value $j
 $money=data;
 sprintf(result, fmt, money);

 if(SQLCODE==DATAISNULL) result[0]=0;
 break;
 default:
 $get descriptor 'browsdesc' value $j
 $result=data;
 }//switch

 if(SQLCODE==DATAISNULL) SQLCODE=0;

 if(SQLCODE){
 SqlErrHandle(SQLCODE, SELECT);
 goto EXIT0;
 }

 OutPut(result);//輸出結果

 }//for