初めまして、困っているので教えてください。

特定のテーブルでカーソルを定義して、fetchするとページ違反が発生して困っています。
いらない物を省いて最小のアプリを作って試したのですが、やはり発生してしまいます。
Oracle8.0.5にPowerBuilder6.5 Enterpriseでネイティヴ接続しています。

以下のテーブルに何でもいいので１レコード以上入っていると発生します。
原因と対処方法を教えてください。よろしくお願いいたします。

テーブルとスクリプトは以下の通りです。

CREATE TABLE C70TEST
      (A CHAR(8) NOT NULL,
       B CHAR(2) NOT NULL,
       C CHAR(4) NOT NULL,
       D CHAR(6) NOT NULL,
       E CHAR(8) NULL,
       F CHAR(4) NULL,
       G NUMBER(7) NOT NULL,
       H CHAR(40) NULL,
       I CHAR(8) DEFAULT \'00000000\' NOT NULL,
       J DATE NULL,
       K CHAR(8) NOT NULL,
       L DATE NULL,
       M CHAR(8) NULL
);

SQLCA.DBMS = \"O84 ORACLE 8.0.4\"
SQLCA.LogPass = \"***\"
SQLCA.ServerName = \"db1\"
SQLCA.LogId = \"bbs\"
SQLCA.AutoCommit = False
SQLCA.DBParm = \"CommitOnDisconnect=\'No\'\"
connect using sqlca;
Open(w_test)

String ls_a
DECLARE lc_c70 CURSOR FOR  
  SELECT \"C70TEST\".\"A\"
    FROM \"C70TEST\"  
FOR UPDATE NOWAIT;

//カーソルオープン
OPEN lc_c70;
ii_sqlcode = SQLCA.SQLCode
If ii_sqlcode = -1 Then
ii_sqldbcode = SQLCA.SQLDBCode
is_sqlerrtext = SQLCA.SQLErrText
ROLLBACK USING SQLCA;
MessageBox(String(ii_sqldbcode),is_sqlerrtext,StopSign!)
Return 
End If

FETCH lc_c70 INTO
:ls_a;
If SQLCA.SQLCode = -1 Then
ROLLBACK USING SQLCA;
CLOSE lc_c70;
MessageBox(String(SQLCA.SQLDBCode),SQLCA.SQLErrText,StopSign!)
Return 
End If