|
1: bluelion 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コードをサブルーチンを使わずに生成するこはできないのでしょうか？ 6:もう少し教えていただけませんか？ BLUELION 11/18 21:33 JISとebcdicの変換はシステムサブルーチンにある通信系のサブルーチンで行えるのでしょうか？ すでにそんなコボルに7年ぶりにもどったもので まだコード体系がぴんときません よろしくお願いします 7:Re: ＬＢＭ 11/19 10:13 bluelionさん、苦労されているようですね。 古いことでよく覚えていないのですが、通信系のサブルーチンではパリティの問題で奇数・偶数を１バイト毎に判断して処理しないと出来ないと思います。 （やってやれないことはない） そんなことをするならば前回言いましたように、内部コード→ＪＩＳコードのサブルーチンを作成されたほうが良いと思います。 簡単ですよ。 お話では、ＪＩＳコードもリスト上に印字されるとのことですので、そのあたりも含めて作られると良いと思います。 では、がんばってください。 8:Re: bluelion 11/19 14:14 実は内部コードのＪＩＳコードの関係がわかりません どうシフトなどすれば内部コードからＪＩＳコードにできるのでしょうか？ コボル的な問題ではなくコードの変換方法がわからないのです ＮＥＣにもＪＩＰＳからＪＩＳや内部コードからＪＩＳへの変換方法を紹介していますが返答がこないもでのこちらのＢＢＳに書き込みしております 9:Re: ＬＢＭ 11/19 15:10 では、コード表を用意してください。 ＡＶＸのマニュアルだと「メッセージ管理３説明書」があればベストです。 そこに「EBCDICからJIS7への変換表」（Ａ表とします）と「S100漢字からJIS漢字への変換表」（Ｂ表とします）があると思います。 まず、漢字フィールドは２バイトで１文字ですね。その最初のバイトをＢ表で変換してください。 次に２バイト目をＡ表で変換してください。 これでＪＩＳコードになります。 例えば、「漢字」。これは内部コードで”78C1B0B0”です。 ”78”→”34” （Ｂ表） ”C1”→”41” （Ａ表） ”B0”→”3B” （Ｂ表） ”B0”→”7A” （Ａ表）で ＪＩＳコード”34413B7A”となります。 ビットをシフトしたりすることでは実現できません。 バイト単位にテーブルなどを使い変換するしかありません。 マニュアルがお手元に無いようでしたらお取引されているメーカーや販売店に、このコード表の部分だけでもコピーしてもらってください。 10:ありがとうございます BLUELION 11/20 10:39 その情報がわからず悩んでおりました これからサブルーチン作ります 11:外字エリアうまくいかず BLUELION 11/23 11:21 �� �堰� 12:Re:外字エリアうまくいかず tahrayan 11/24 01:26 BLUELIONさん、いろいろと苦労されているようです。 外字ですが、これは使用者が自分で設定する領域なので 簡単に変換できません。 変換できるのは内字の領域だけです。 ユーザが自分で追加した文字は、何の文字を登録したのかを知っているのは、そのユーザ自身です。 外字は自分で変換する必要があります。 > 無事うまくいったと思ったのですが > 外字エリアがうまくいきませんでした > 別の変換表でもあるのでしょうか？ > > 13:Re:外字エリアうまくいかず BLUELION 11/25 00:33 確かにパターンまではうまくいかないとは思うのですが 入力の補助する意味で内部コードから外字のコードのＪＩＳコード相当のコードを印字したいのです。 コードだけでも単純にできないでしょうかね？ 結局 内字とG0外字 G1外字をそれぞれ全部打って ＃ＫＦＣＮＶでＪＩＳコードを生成してそれをＲＤＢに登録して ＨＥＸイメージＸ（０４）を生成してそれでアクセスしています そのままＮ（１）をキーをすると内部コードで頭がＦＦの文字がなぜかうまくいきませんでした しかし内部コードからＪＩＳコードを生成する標準ルーチンがないのはなぜでしょうね？ ＪＩＰＳ生成してもいまいち用途がわかりません ＡＣＯＳのからみかもしれませんけど 私には不明です 14:Re:外字エリアうまくいかず MAKI 11/25 22:10 > そのままＮ（１）をキーをすると内部コードで頭がＦＦの文字がなぜかうまくいきませんでした 内部コードFFはレコードの論理削除のしるしになっています。 なので、レコードの1バイト目にFFがあると 削除データとみなして読まれません。 このあたりの問題でしょうか？ 15:Re:外字エリアうまくいかず bluelion 11/26 16:25 > 削除データとみなして読まれません。 > このあたりの問題でしょうか？ 私もそう思っていました ただＲＤＢファイルなどいままであまり使っていないので確証がもてずあきらめてキャラクターで読みました |