COBOLでの全角文字の判定をしたい。

商品マスタの名称 X(80)には半角全角が混在しています。
ジャーナルファイルの商品名称はX(40)しかありません。
マスタから名称を設定するときに単純にX(80)→X(40)とするとちょうど文字の切れ目ならいいのですが、全角文字がまたがっていると文字化けしてしまいます。
そこで40バイト目が全角だったら 39バイトしか転送したくありません。
40バイト目が全角かどうか、どう判定すれば出来ますか？

No.1 回答者： SortaNerd_ 回答日時： 2009/04/25 12:31

文字コードは何ですか?

この回答への補足

文字コードはシフトＪＩＳです。
質問文が不十分でした。。
お願いします。

補足日時：2009/04/25 19:53