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

NECオフコン関連
オフコン一般
情報
[掲示板に戻る] 全部  1-  最新50
1 ＭＩＸ項目の１，２バイト文字判断
うどん 2005-4-13 10:41  [返信] [編集]

お世話になります。

早速ですが、ＭＩＸ項目内の文字を１バイトか２バイトか判断するのに

（ＣＯＢＯＬ内で）何か良い手は無いでしょうか？



やりたい事は、送先住所というＭＩＸ項目を伝票に出力したいのですが、

横幅の印字文字が限られている為、自動で改行しないいけません。

改行というのがくせ者で、２バイト文字が離れない(?)様にしないと

文字化けしてしまいます。



現在のフォーマットは、日本語（Ｎタイプ）で定義されているので

気にしなくて良かったのですが．．



宜しくお願い致します。
2 Re:ＭＩＸ項目の１，２バイト文字判断
富山清風 2005-4-13 13:03  [返信] [編集]

「うどん」さん、こんにちは。



私は以下のようにして判断しています。



１バイトづつ順次チェックし、下記テーブルと照合し、

「Ａ」であれば、ANKであり、

「Ｊ」であれば、全角の前半であるため、

次の１バイト（全角の後半）と合わせて２バイトすなわち全角１文字として扱っています。



ちなみに、下記の表は、「A-VX�献瓮奪察璽鹸浜�３説明書の付録ＢのＢ−６に記載されているものを使っています」



以上ですが、お役にたてば幸いです。



"001420 01  CON-CNV-TBL."
"001430****                                        0123456789ABCDEF"
"001440     03  F               PIC  X(16)  VALUE "AAAAJAJAJJJAAAAA".     0"
"001450     03  F               PIC  X(16)  VALUE "AAAAJAAJAAJJAAAA".     1"
"001460     03  F               PIC  X(16)  VALUE "JJJJJJAAJJJJJAAA".     2"
"001470     03  F               PIC  X(16)  VALUE "JJAJJJJAJJJJAAJA".     3"
"001480     03  F               PIC  X(16)  VALUE "AAAAAAAAAAAAAAAA".     4"
"001490     03  F               PIC  X(16)  VALUE "AAAAAAAJAJAAAAAA".     5"
"001500     03  F               PIC  X(16)  VALUE "AAJJJJJJJJJAAAAA".     6"
"001510     03  F               PIC  X(16)  VALUE "JJJJJJJJJJAAAAAA".     7"
"001520     03  F               PIC  X(16)  VALUE "JAAAAAAAAAAJAAAA".     8"
"001530     03  F               PIC  X(16)  VALUE "AAAAAAAAAAAJJAAA".     9"
"001540     03  F               PIC  X(16)  VALUE "JJAAAAAAAAAJAAAA".     A"
"001550     03  F               PIC  X(16)  VALUE "JAJJJJJJJJAAAAAA".     B"
"001560     03  F               PIC  X(16)  VALUE "JAAAAAAAAAJJJJJJ".     C"
"001570     03  F               PIC  X(16)  VALUE "AAAAAAAAAAJJJJJJ".     D"
"001580     03  F               PIC  X(16)  VALUE "AJAAAAAAAAJJJJJJ".     E"
"001590     03  F               PIC  X(16)  VALUE "AAAAAAAAAAJJJJJJ".     F"
"001600 01  CON-CNV-TBL-R       REDEFINES CON-CNV-TBL."
"001610     03  CON-CNV-T-O     OCCURS 256."
"001620       05  CON-CNV-T-1   PIC  X(01)."


----------end
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


参考までに
[掲示板に戻る] 全部 次100 最新50
BluesBB ©Sting_Band