程序段03
這段程序利用動態游標含參數查詢多條記錄并輸出多個參數

string strvar
int intvar,i
string dstring
dstring="SELECT name, sex FROM auths"
DESCRIBE SQLSA FROM : dstring；
DECLARE C1 DYNAMIC CURSOR FOR SQLSA;

lab1:
FETCH C1 USING DESCRIPTOR SQLDA;
if SQLCA.SQLCode=0 then             //若FETCH成功
   for i=1 to SQLDA.NumOutputs
                 //SQLDA.NumOutPuts  含有輸出參數個數
       CHOOSE CASE SQLDA.OutparmType[i]
           CASE TypeString!
               strvar= GetDynamicString (SQLDA,i)
           CASE TypeInteger!
               intvar= GetDynamicNumber (SQLDA,i)
       END CHOOSE
    next
   got lab1       //如果成功取出記錄，則取下一條
end if 
CLOSE C1;