ミュウさん、こんにちは。

データベースはORACLEを使用されていると勝手に想像して書いています。
下記では、配列の変数に値を格納するところまで行います。

根本的な疑問なのですが、retrieveするだけでは駄目だったので
SQLを使おうとしていたんですよね。

//カーソル宣言
DECLARE C_INPUT CURSOR FOR
  select kacd,kaname
    from kamst
   order by kacd;

//カーソル実行
OPEN C_INPUT;

DO WHILE TRUE
   ll_cnt += 1

   //カーソル実行結果を取得
   FETCH C_INPUT INTO :cd[ll_cnt],:name[ll_cnt];

   CHOOSE CASE sqlca.sqlcode
     CASE 0    //正常
     CASE 100  //ﾚｺｰﾄﾞ無し
        EXIT;
     CASE ELSE //ｵﾗｸﾙｴﾗｰ
        //カーソルを閉じる
        CLOSE C_INPUT ;
        ROLLBACK;
        messagebox(\"\",\"error\")
   END CHOOSE
LOOP

//カーソルを閉じる
CLOSE C_INPUT;