マイグレーションお疲れ様です。
もう遅いかも知れませんが、以下で試してみてください。

string  chr
integer sj1, sj2, sj0
Blob    lbl_1

lbl_1 = Blob("あ", Encodingansi!)
sj1 = AscA(String(BlobMid(lbl_1, 1, 2), Encodingansi!))
sj2 = AscA(String(BlobMid(lbl_1, 2, 2), Encodingansi!))

＞元々PB6で開発していたソフトをPB12にマイグレーションしたところ
＞SJISからJISへの変換関数(1byteごとのASCIIコード判断方式)が
＞動かなくなってしまいました。
＞
＞調査の結果MidAが2byte文字に対して長さ1byteで切り取ったときに
＞0byteとして帰ってくるのが原因というところまでは分かったのですが
＞2byte文字の2byte目のASCIIコードをうまく取得する方法はないでしょうか？
＞
＞またはASCIIコード判断以外でSJIS→JIS変換する方法はないでしょうか？
＞
＞
＞---------------------------------------------------
＞PB6.0
＞---------------------------------------------------
＞string  chr
＞integer sj1, sj2, sj0
＞
＞chr = "あ"
＞sj1 = Asc( Mid( chr, 1, 1 ) )
＞sj2 = Asc( Mid( chr, 2, 1 ) )
＞sj0 = Asc( Mid( chr, 2, 2 ) ) //参考用
＞
＞結果
＞sj1 → 130  len( sj1 ) → 1
＞sj2 → 160  len( sj2 ) → 1
＞sj0 → 130  len( sj0 ) → 2 //参考用
＞---------------------------------------------------
＞
＞
＞---------------------------------------------------
＞PB12.5
＞---------------------------------------------------
＞string  chr
＞integer sj1, sj2, sj0
＞
＞chr = "あ"
＞sj1 = AscA( MidA( chr, 1, 1 ) )
＞sj2 = AscA( MidA( chr, 2, 1 ) )
＞sj0 = AscA( MidA( chr, 1, 2 ) ) //参考用
＞
＞結果
＞sj1 →   0  len( sj1 ) → 0
＞sj2 →   0  len( sj2 ) → 0
＞sj0 → 130  len( sj0 ) → 2 //参考用
＞---------------------------------------------------
＞