|
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コードをサブルーチンを使わずに生成するこはできないのでしょうか？ |