UnicodeからシフトJISコードへの変換は、以下の変換ルーチンを呼び出します。
書き方
CALL ”POWERUTF16TOACP” USING Unicode文字 シフトJISコード文字
PIC N.
変換前のUnicodeの文字を示すデータ項目です。RCSオプションの設定に従ってエンディアンは自動判定されます。
PIC X(2).
シフトJISコードへ変換された文字を取り出すためのデータ項目です。1バイト文字の場合、2バイト目はX"00"が設定されます。
復帰値(PROGRAM-STATUS)には、正常変換時は0が、変換に失敗した場合は0以外が設定されます。
書き方
CALL ” POWERUTF16TOACPCODE” USING Unicode文字 シフトJISコード文字
PIC N.
変換前のUnicodeの文字を示すデータ項目です。RCSオプションの設定に従ってエンディアンは自動判定されます。
PIC S9(4) COMP-5.
シフトJISコードへ変換された文字を取り出すためのデータ項目です。取得した値をKeyPressイベントやPreKeyPressイベントの引数にそのまま設定することができます。
復帰値(PROGRAM-STATUS)には、正常変換時は0が、変換に失敗した場合は0以外が設定されます。