Google
オフコン練習帳内を検索
インターネット全体を検索

NECオフコン関連
オフコン一般
情報

[掲示板に戻る]

Re:ＭＩＸ項目の１，２バイト文字判断 うどん 2005-4-13 18:07
Re:ＭＩＸ項目の１，２バイト文字判断 富山清風 2005-4-13 18:23
勘違いしてました うどん 2005-4-14 15:52
Re:勘違いしてました 富山清風 2005-4-14 18:46

3 Re:ＭＩＸ項目の１，２バイト文字判断
うどん 2005-4-13 18:07  [返信] [編集]

富山清風さん

さっそくの回答ありがとうございます。



２バイト文字の１バイト目が、A-VX�献瓮奪察璽鹸浜�３説明書の

付録ＢのＢ−６の表にある値(１６進)なら２バイト文字という形で

解釈しました。



テストプログラムを作成して動かしましたが、半角スペース(40H）

も２バイトとして認識してしまいますよね？

表の見かたが間違っているのでしょうか？
4 Re:ＭＩＸ項目の１，２バイト文字判断
富山清風 2005-4-13 18:23  [返信] [編集]

列と行が逆ではないですか？
5 勘違いしてました
うどん 2005-4-14 15:52  [返信] [編集]

> 列と行が逆ではないですか？



思いっきり勘違いしてました。

例えば、チェックしたい値が”P2”(16進でD7)なら、前回提示頂いた

ソース内の CON-CNV-T-1 のインデックスの値が、216の値を参照

するという事ですね。

(CON-CNV-T-1(216)の値は”A”なので、１バイト文字となる)



あと、コボルで16進にする命令とか無いですよね？
6 Re:勘違いしてました
富山清風 2005-4-14 18:46  [返信] [編集]

> あと、コボルで16進にする命令とか無いですよね？



方法は色々あると思いますが私し以下のようにしています。



002080 01  WK-CNV-COMP                 COMP-1.
002090 01  WK-CNV-COMP-R           REDEFINES WK-CNV-COMP.
002100     03  WK-CNV-00           PIC X(01).
002110     03  WK-CNV-ANK          PIC X(01).
                                                            

004050         MOVE    LOW-VALUE       TO  WK-CNV-00.
004060         MOVE    WK-1 (IX-WORK)  TO  WK-CNV-ANK.
004080         COMPUTE WK-CNV-COMP     =   WK-CNV-COMP + 1
004090         IF    ( CON-CNV-T-1(WK-CNV-COMP) =   "J" )
004120             MOVE    "ANKﾅｼ"     TO  STS-ANK-UMU
004110         ELSE
004120             MOVE    "ANKｱﾘ"     TO  STS-ANK-UMU
004130         END-IF


参考までに

BluesBB ©Sting_Band