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を見てみる

これで解決できそうなきがするんですがどうでしょう。見当違いだったらすみません。