ＡＤサーバよりldifdeコマンドでuserファイルをエクスポートしたもの（日本語があるのでunicode指定）をＰ
Ｂにてoracleへ取り込みたいのですが、当方のPBのversionではそのまま読み取る事ができません。

仕方が無いので、一旦ファイルをASCII形式に変換して保存してから処理しようと以下のようなロジックを作っ
たのですが、
\"ls_readtext = FromUnicode(lbb_b)\"
の部分でデータの最後の方が欠損してしまいます（string文字数制限の為かと）。

いろいろと考えてみたのですが、何かいい方法がありましたらご教授いただければ幸いです。

**********************************************************
Blob lbb_readtext, lbb_b, lbb_total
int li_FileNum, li_FileNum2
string ls_readtext, ls_wk_readtext
String ls_入力ファイル, ls_出力ファイル
Long ll_処理件数, ll_rtn, ll_Flen, ll_loops, ll_i, ll_bytes_read

ls_入力ファイル = as_infile
ls_出力ファイル = as_infile + \'.cnv\'

//ファイルオープン（入力ファイル）
ll_Flen = FileLength(ls_入力ファイル)
li_FileNum = FileOpen(ls_入力ファイル, StreamMode!, Read!, LockRead!)
IF li_FileNum = -1 THEN
　　RETURN -2
END IF

//ファイル読込回数確認
FileSeek(li_FileNum, 2)
IF ll_Flen > 32765 THEN
　　IF Mod(ll_Flen, 32765) = 0 THEN
　　　　ll_loops = ll_Flen/32765
　　ELSE
　　　　ll_loops = (ll_Flen/32765) + 1
　　END IF
ELSE
　　ll_loops = 1
END IF

//ファイルオープン（出力ファイル）
li_FileNum2 = FileOpen(ls_出力ファイル, StreamMode!, Write!)

//ファイル読込
FOR ll_i = 1 to ll_loops
　　ll_bytes_read = FileRead(li_FileNum, lbb_b)

　　ls_readtext = FromUnicode(lbb_b)

　　FileWrite(li_FileNum2, ls_readtext)
NEXT

FileClose(li_FileNum)
FileClose(li_FileNum2)

RETURN 0