yoshikiさん、こんにちは。
ご回答ありがとうございます。

質問の回答ですが、エラーにはならず、実行されています。
sqlcode = 0です。

＞Nanaさん、こんにちは。
＞
＞＞************************************
＞＞long Ofg
＞＞
＞＞DECLARE test_curs CURSOR FOR
＞＞select Ab from TBA order by Ab;
＞＞OPEN test_curs;
＞＞
＞＞FETCH test_curs INTO :Ab_code;
＞＞DO WHILE SQLCA.sqlcode = 0
＞＞
＞＞select Fg into :Ofg        ・・・・・?
＞＞from w_Yh
＞＞where code = :Ab_code;
＞＞
＞＞FETCH test_curs INTO :Ab_code;
＞＞LOOP
＞＞CLOSE test_curs
＞＞************************************
＞
＞?が実行されていないのか、実行されているけどエラーになっているのかどちらでしょうか？
＞
＞1.?が実行されていない場合
＞FETCH後のSQLCAのsqlerrtextなり、sqldbcodeを見てみる
＞
＞2.?が実行されているけどエラーになる場合
＞?実行後のSQLCAのsqlerrtextなり、sqldbcodeを見てみる
＞
＞これで解決できそうなきがするんですがどうでしょう。見当違いだったらすみません。
＞
＞
＞