初めて投稿します、PB初心者のmatsu731です。

　DBにbmp画像を格納しようとしています。この段階はテストで、最終的にはPDFデータをDBへ格納したいのです。

　そこで、過去ログ等を参考にさせていただき、以下のようなUPDATEBLOB文を記述し、
アプリを動かしてみましたが、処理待ち状態の砂時計が表示されたまま、一向に処理が終わる気配がありません。

　根本的に何か間違いがあるのでしょうか。ご教授願えれば幸いです。
/*-------------------------------------
  integer li_FileNum, loops, i
  long flen, bytes_read
  blob b, tot_b,lb_object

// 待ち状態の間、HourGlassを表示します。
SetPointer(HourGlass!)

// ファイルの長さを取得し、ファイルを開きます。
flen = FileLength(\"D:\\test.jpg\")
li_FileNum = FileOpen(\"D:\\test.jpg\", StreamMode!, Read!, LockRead!)

// FileRead 関数を呼び出す回数を調べています。
IF flen > 32765 THEN
  IF Mod(flen, 32765) = 0 THEN
    loops = flen/32765
  ELSE
    loops = (flen/32765) + 1
  END IF
ELSE
    loops = 1
END IF

//ファイルを読み込みます。
FOR i = 1 to loops
  bytes_read = FileRead(li_FileNum, b)
  tot_b = tot_b + b
NEXT

//DBへ更新
UPDATEBLOB \"PART\" SET \"PART\".\"PART_IMAGE\" = :b
  WHERE \"PART\".\"PART_ID\" = 1
  USING SQLCA ;
COMMIT USING SQLCA;

IF SQLCA.SQLCode = -1 THEN
  MessageBox(\"SQLエラー\", SQLCA.SQLErrText)
END IF

FileClose(li_FileNum)
------------------------------------*/
Power Builder 7.0.2