オフコン練習帳 - 掲示板

NECオフコン関連

ホーム NECオフコンの歴史 A-VX入門 A-VXの説明書 NECオフコン用語辞典過去ニュース

オフコン一般

オフコンについていろいろなオフコンオフコン昔の広告オフコン掲示板 = ノウハウ = NECオフコン = オフコン総合サイト更新履歴リンク

情報

[掲示板に戻る]

Re:ＭＩＸ項目の１，２バイト文字判断富山清風 2005-4-13 13:03

Re:ＭＩＸ項目の１，２バイト文字判断うどん 2005-4-13 18:07

Re:ＭＩＸ項目の１，２バイト文字判断富山清風 2005-4-13 18:23

勘違いしてましたうどん 2005-4-14 15:52

Re:勘違いしてました富山清風 2005-4-14 18:46

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` 参考までに

BluesBB ©Sting_Band