[掲示板に戻る] 全部  1-  最新50

1	日本語内部コード
	bluelion 2004-11-16 22:00  [返信] [編集] COBOL上で内部コード（S100？)からＪＩＰＳ（JIS78）に変換したくてシステムサブルーチン　SYSKOCNVだったかを使用して変換したいのですがいまいち　うまくいきません アギュメントの設定をわかる方おしえてください 01 DATA1　X(02)　VALUE　"漢" 01 DATA2 X(10) 01 DATA3. 03 DATA31 X(02) 03 DATA32 9(04) VALUE 1. 03 DATA33 9(04) VALUE 10. 03 DATA34 9(04). 03 FILLER X(12)?? CALL "SYSKOCNV" USING DATA1 DATA2 DATA3 でコールすると ステータス　DATA31は"00"で正常なのですが DATA2には必ず同じ値がかえってくるのです DATA1にはかならずきちんとした漢字がはいっているのですが なぜかわかりません 会話型デバッガーでcall前　call後にチェックしてもわからず ギブアップです おたすけおーー！ また　S100内部コードからJipsコードをサブルーチンを使わずに生成するこはできないのでしょうか？
2	Re:日本語内部コード
	ＬＢＭ 2004-11-17 13:23  [返信] [編集] 　bluelionさん、はじめまして。 　ターラヤンさん、はじめまして。お邪魔します。 　まず、DATA32はバイト数となりますので２となります。 　変換結果の先頭にはKI(3F75)が、最後にはKO(3F76)が入ります。 　ご質問のように”漢”を変換すると、１６進で"3F75F4C13F76"が帰るはずです。 　コーディング例を書きますと、 01 DATA1 PIC X(02) VALUE "漢". 01 DATA2 PIC X(10). 01 DATA3. 　　03 DATA31 PIC X(02). 　　03 DATA32 PIC 9(04) VALUE 2. 　　03 DATA33 PIC 9(04) VALUE 10. 　　03 DATA34 PIC 9(04). 　　03 FILLER PIC X(16) VALUE SPACE. CALL "SYSKOCNV" USING DATA1 DATA2 DATA3. 　となります。 　最後のFILLERはX(16)です。 　試してみてください。 　ターラヤンさんへ。 　　いつも読ませてもらっています。 　　小生も２０年以上ＩＴＯＳ／ＡＶＸをやっている者です。 　　また機会がありましたらお邪魔いたします。 　　では、ご活躍を期待しています。
3	Re:日本語内部コード
	ＬＢＭ 2004-11-17 13:28  [返信] [編集] 　申し訳ありません。 　投稿時に変換を間違えました。 　誤　帰る 　正　返る
4	すばらしい　ありがとうございました
	bluelion 2004-11-17 16:49  [返信] [編集] ＪＩＰＳに変換できましたありがとうございました しかし　あらたな問題が 　ＪＩＰＳからＪＩＳへの変換ができません 　＃ＫＦＣＮＶではなく　ＣＯＢＯＬで変換できる方法ありませんか？ 二つのデータを比べ　違っていたら　訂正用にその漢字のＪＩＳコード（入力用コードならほかでもいいのですが）を印刷するプログラムを作成していますが上記問題で進んでいません ＪＩＰＳって　本来どんな　拡張コードか知らないで仕事してるも　だめプログラマでした
5	ＪＩＰＳからＪＩＳへの変換
	ＬＢＭ 2004-11-18 9:49  [返信] [編集] 　ＪＩＰＳコードは特殊な記号を除いて、ほぼＪＩＳコードと同じです。 　SYSKOCNVで変換されたコードをEBCDICからJIS7へ変換すればＪＩＳコードになります。 　ただ、処理の内容をお聞きした限りでは、内部コード→ＪＩＳコードといった変換するサブルーチンを作成したほうが良いと思います。 　小生の以前に作成したことがありますが２００ステップもあれば出来ますよ。 　では、がんばってください。
6	もう少し教えていただけませんか？
	BLUELION 2004-11-18 21:33  [返信] [編集] JISとebcdicの変換はシステムサブルーチンにある通信系のサブルーチンで行えるのでしょうか？ すでにそんなコボルに7年ぶりにもどったもので まだコード体系がぴんときません よろしくお願いします
7	Re:日本語内部コード
	ＬＢＭ 2004-11-19 10:13  [返信] [編集] 　bluelionさん、苦労されているようですね。 　古いことでよく覚えていないのですが、通信系のサブルーチンではパリティの問題で奇数・偶数を１バイト毎に判断して処理しないと出来ないと思います。 　（やってやれないことはない） 　そんなことをするならば前回言いましたように、内部コード→ＪＩＳコードのサブルーチンを作成されたほうが良いと思います。 　簡単ですよ。 　お話では、ＪＩＳコードもリスト上に印字されるとのことですので、そのあたりも含めて作られると良いと思います。 　では、がんばってください。
8	Re:日本語内部コード
	bluelion 2004-11-19 14:14  [返信] [編集] 実は内部コードのＪＩＳコードの関係がわかりません どうシフトなどすれば内部コードからＪＩＳコードにできるのでしょうか？ コボル的な問題ではなくコードの変換方法がわからないのです ＮＥＣにもＪＩＰＳからＪＩＳや内部コードからＪＩＳへの変換方法を紹介していますが返答がこないもでのこちらのＢＢＳに書き込みしております
9	Re:日本語内部コード
	ＬＢＭ 2004-11-19 15:10  [返信] [編集] 　では、コード表を用意してください。 　ＡＶＸのマニュアルだと「メッセージ管理３説明書」があればベストです。 　そこに「EBCDICからJIS7への変換表」（Ａ表とします）と「S100漢字からJIS漢字への変換表」（Ｂ表とします）があると思います。 　まず、漢字フィールドは２バイトで１文字ですね。その最初のバイトをＢ表で変換してください。 　次に２バイト目をＡ表で変換してください。 　これでＪＩＳコードになります。 　例えば、「漢字」。これは内部コードで”78C1B0B0”です。 　”78”→”34”　（Ｂ表） 　”C1”→”41”　（Ａ表） 　”B0”→”3B”　（Ｂ表） 　”B0”→”7A”　（Ａ表）で 　ＪＩＳコード”34413B7A”となります。 　ビットをシフトしたりすることでは実現できません。 　バイト単位にテーブルなどを使い変換するしかありません。 　マニュアルがお手元に無いようでしたらお取引されているメーカーや販売店に、このコード表の部分だけでもコピーしてもらってください。
10	ありがとうございます
	BLUELION 2004-11-20 10:39  [返信] [編集] その情報がわからず悩んでおりました これからサブルーチン作ります
11	外字エリアうまくいかず
	BLUELION 2004-11-23 11:21  [返信] [編集] 無事うまくいったと思ったのですが 外字エリアがうまくいきませんでした 別の変換表でもあるのでしょうか？
12	Re:外字エリアうまくいかず
	ターラヤン 2004-11-24 1:26  [返信] [編集] BLUELIONさん、いろいろと苦労されているようです。 外字ですが、これは使用者が自分で設定する領域なので 簡単に変換できません。 変換できるのは内字の領域だけです。 ユーザが自分で追加した文字は、何の文字を登録したのかを知っているのは、そのユーザ自身です。 外字は自分で変換する必要があります。 > 無事うまくいったと思ったのですが > 外字エリアがうまくいきませんでした > 別の変換表でもあるのでしょうか？ > >
13	Re:外字エリアうまくいかず
	BLUELION 2004-11-25 0:33  [返信] [編集] 確かにパターンまではうまくいかないとは思うのですが 入力の補助する意味で内部コードから外字のコードのＪＩＳコード相当のコードを印字したいのです。 コードだけでも単純にできないでしょうかね？ 結局　内字とG0外字　G1外字をそれぞれ全部打って ＃ＫＦＣＮＶでＪＩＳコードを生成してそれをＲＤＢに登録して ＨＥＸイメージＸ（０４）を生成してそれでアクセスしています そのままＮ（１）をキーをすると内部コードで頭がＦＦの文字がなぜかうまくいきませんでした しかし内部コードからＪＩＳコードを生成する標準ルーチンがないのはなぜでしょうね？　ＪＩＰＳ生成してもいまいち用途がわかりません　ＡＣＯＳのからみかもしれませんけど　私には不明です
14	Re:外字エリアうまくいかず
	MAKI 2004-11-25 22:10  [返信] [編集] > そのままＮ（１）をキーをすると内部コードで頭がＦＦの文字がなぜかうまくいきませんでした 内部コードFFはレコードの論理削除のしるしになっています。 なので、レコードの1バイト目にFFがあると 削除データとみなして読まれません。 このあたりの問題でしょうか？
15	Re:外字エリアうまくいかず
	bluelion 2004-11-26 16:25  [返信] [編集] > 削除データとみなして読まれません。 > このあたりの問題でしょうか？ 私もそう思っていました 　ただＲＤＢファイルなどいままであまり使っていないので確証がもてずあきらめてキャラクターで読みました

[掲示板に戻る] 全部 前100 次100 最新50