OPEN DYNAMIC c using :li_contract_nmbr ;

String ls_sql
Dec{ 0 } ld_id =  101 
DECLARE c DYNAMIC CURSOR FOR sqlsa ;

ls_sql = "select lname from customer where id = ?"
PREPARE sqlsa FROM :ls_sql ;
If sqlca.SQLCode <>  0  Then
   MessageBox("PREPARE error", sqlca.SQLErrText)
   Return
End If
DESCRIBE sqlsa INTO sqlda ;
If sqlda.NumInputs =  1  Then
   sqlda.SetDynamicParm( 1 , ld_id)
Else
   MessageBox("BIND error", "NumInputs <> 1")
   Return
End If

OPEN DYNAMIC c USING DESCRIPTOR sqlda ;

FETCH c USING DESCRIPTOR sqlda ;
If sqlca.SQLCode <>  0  Then
   MessageBox("FETCH error", sqlca.SQLErrText)
Else
   If sqlda.NumOutputs >=  1  Then
      If sqlda.OutParmType[ 1 ] = TypeString! Then
         MessageBox("Result", sqlda.GetDynamicString( 1 ))
      Else
         MessageBox("Result error", "Not supported")
      End If
   Else
      MessageBox("Result error", "NumOutputs < 1")
   End If
End If

CLOSE c;