ＭＩＸ項目の１，２バイト文字判断
1:ＭＩＸ項目の１，２バイト文字判断
うどん 04/13 10:41
お世話になります。

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

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



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

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

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

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



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

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



宜しくお願い致します。
2:Re:ＭＩＸ項目の１，２バイト文字判断
 04/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:ＭＩＸ項目の１，２バイト文字判断
うどん 04/13 18:07


��



�V���VA-VX

��()���V





(40H

�V

���堰�


4:Re:ＭＩＸ項目の１，２バイト文字判断
 04/13 18:23



5:勘違いしてました
うどん 04/14 15:52
>





�RP2(16D7)

CON-CNV-T-1 ��216



(CON-CNV-T-1(216)A���V)



16


6:Re:勘違いしてました
 04/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


参考までに




前次1-新書板
BluesBB ©Sting_Band