オフコン練習帳

Re:ＭＩＸ項目の１，２バイト文字判断

投稿者：富山清風投稿日時： 2005-4-13 13:03:00

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

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

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

「Ａ」であれば、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

名前※
題名
メッセージ	サンプル [もっと...]
パスワード※
オプション	※印の項目をクッキーに保存