S9タイプからＸタイプにデータは移行できるのか。（ＣＯＢＯＬ）

質問

こんにちは。
まったくのＣＯＢＯＬビギナーで困っています。
私がしたいことは、
Ｓ９タイプのデータを、Ｘタイプに移すということです。
元データには'40'（16進数）というデータが入っています。
これは　＋０　という意味だとおもいます。

これを、Ｘタイプにムーブして、
'0'と出したいわけです。

'0'を出す為には、'30'(16進数)であればいいことは
バイナリで確認しています。

単純にMOVEを書けても、これは、'@'になってしまいます。
S9→X　への移行ってできるものなのでしょうか？

知っている方がいらっしゃったらご教授ください。

回答No.3

jun-rr · ベストアンサー

こんばんは。

タイプの違う項目は、直接 MOVE しない方が良いと思います。
たとえば、こんなやり方はいかがでしょうか。

01 A PIC S9.
01 B-X.
　 03 B PIC 9.

と定義しておいて、A を B に MOVE 後、B-X を見ると "0" だと思うのですが。
ちなみに、B を 9(2) としますと、B-X は "00"となり、
B を Z9 とすれば、" 0" になると思います。

COBOL もホストメーカーが違うと、拡張機能の関係で微妙に違ったりするので、不安なんですが。
ご参考までに。

お礼

回答ありがとうございます。

1度、9、9999、zzzz等でためしましたが、だめでした；

補足

本日、知人から耳にした回答でこのようなものがありました。

S9はやはり　符号がビットに反映されているため、
1度、COMPUTEで1をかけてやる必要があるそうです。

試してみたところ、’＠’が出なくなりました。
確かな解決かどうかはわかりませんが、
これで上手くデータ移行が出来たとおもいます。

みなさんのご協力感謝いたします。

回答No.2

Ryocchi

Ｓ９タイプの値がＮｕｌｌになっているのでは？
まず、
０　　→　Ｓ９（ＭＯＶＥ）
Ｓ９　→　Ｘ　（ＭＯＶＥ）
でどうでしょう？

お礼

回答ありがとうございます。

S9には、もともとゼロのデータが入っているのは確認
しました。Display　をかけると、+0　とでてきます。

どうやら、この符号がなんらかのかたちでビットに反映されているようなのです；

回答No.1

taka_tetsu

S9→9→X
の順でMOVE

お礼

回答ありがとうございます。
最初私もそれでやってみましたが、無理でした；