COBOL数値転記の仕様

このたび、まったくの未経験のＣＯＢＯＬをやることになりました。
で、数値データの表し方になんやかやとやたら方法があるようなのですが、それらを互いに「転記」したときに、どういう結果になるものか、皆目わからないんです（環境はＣＯＢＯＬ８５でＷｉｎｄｏｗｓ上での開発です）。
テクニックとしては基本だと思うのですが、それでいてどこにも説明されていな～い！フリーのＣＯＢＯＬツールは見つけてきましたが、使い方が？？？なもので…。
　たとえば、

　01 X1 PIC XX　（数値が入ってるとします）
　01 N1 PIC 99
　01 D1 PIC 99 COMP
　01 B1 PIC 1(16) BIT

な場合、X1とN1は直接
　MOVE N1 TO X1
などとやってもデータは失われないと思うんですが、他の形式での操作は（桁あふれとか無視して）ちゃんと転記できるのでしょうか。

いま特に、D1からX1へというパターンが多いです。１バイトの２進データを、数値の文字列として使おう、というんです。いわば、１バイトを３バイトに展開してやるんです。何も考えずに書けば、
　01 D2 PIC 9(4) COMP VALUE 97
　01 X2 PIC X(3)
　MOVE D2 TO X2
でしょうけど、たぶん'a△△'になるだけのような気がします…。
　それとも、
　01 N2 PIC 9(4)
　MOVE D2 TO N2
　MOVE N2 TO X2
などとやっていけたりするのでしょうか。

いったいどうなるのでしょう、いろいろ書いちゃいましたけど、各々の転記の仕組みを教えてください。

また、ＣＯＢＯＬの（お堅い規格を書き写しただけでない）解説のサイトなどあれば、ご紹介いただけますでしょうか。

No.2 ベストアンサー 回答者： tintagel 回答日時： 2007/02/17 10:41

ShiozawanoYukiさんはＣＯＢＯＬ未経験とのことですが

ご質問のような数値と文字との間の転記はＣＯＢＯＬ上規約はありますが実際には例外的にしか行われないでしょう。

ＣＯＢＯＬコードの厳しい社内ルールを定めてる会社では数値と文字との間の転記は禁止されています。
（桁あふれ、計算時に不能や範囲外の値になったり、ひどいとエラー終了になるか引き起こしたりするからです。）
転記する場合は同じ桁数同士のみで行う社内ルールを決めているところもあります。
（桁あるれ対策です。）

＊数値と文字との間の転記はデータの定義で対処します。

ＣＯＢＯＬのデータは構造体になっています。
（ご質問のようなデータ構造はフラグ、繰り返しや一時的な変数などには使用しますが普通はレベルを使用したデータ構造で定義します。）

＞MOVE N1 TO X1
のコードのデータは

　01 X.
　　02 X1 PIC 99.
　01 N1 PIC 99.

などと定義し転記後に文字で使用する場合は”Ｘ”（２桁）を使用します。
しかし、ただ”Ｎ１”を文字として使用するだけである場合は

　01 NX.
　　02 N1 PIC 99.

と定義し、”ＮＸ”（２桁）を文字として使用する方法もあります。
（これは９タイプとＸタイプの内容が同じため利用できますがバイナリなどでは転記してから利用します。）


逆に数値から文字に転記する場合は

　01 D2 PIC 9(4) COMP VALUE 97.
　01 X2.
　　02 X9 PIC 9(4).
　01 XR REDEFINES X2.
　　02 XR1 PIC X(02).
　　02 XR2 PIC X(02).

　　　MOVE D2 TO X9.

となり文字として使用する場合は”Ｘ２”（４桁）を使用します。
”Ｘ２”は数字から転記されたので”００９７”が入っています。

”Ｘ２”を”△△９７”にする場合は”Ｘ９”を”ＺＺＺ９”または”ＺＺＺＺ”（”Ｚ（０４）”）の編集項目で定義すれば実現できます。
（”０”（”００００”）を転記した場合に”ＺＺＺ９”は”△△△０”、”ＺＺＺＺ”は”△△△△”になります。）

４桁を上２桁と下２桁で使用する場合は上記のように”Ｘ２”を再定義(REDEFINES)し”ＸＲ１”、”ＸＲ２”を使用します。
（個人的には最上位レベルでの再定義は避けるようにしています。）

＊実は転記を悩まずに行うには、実は上の厳しい社内ルールと記した”同じ項目種類、桁数でのみ転記”を行い、項目種類の変換はデータ定義で行うのがポイントです。


＊ＣＯＢＯＬを理解するためにはデータ構造を理解することが良いと思います。
　（命令は他の言語より少なく対応が容易です。ただ、少ない分、自分でコード作成が必要です。ここが他の言語しか知らないプログラマには大変かもしれません。）

後、ピリオドを付けないとのルールがないなら、命令の最後にはピリオドを付けましょう。
（ＩＦ文の中では逆に付けません。そのため逆にピリオドがトラブルの原因ともなり、モジュールの最後だけに付けるとの社内ルールを決めているところもあります。）

＞また、ＣＯＢＯＬの（お堅い規格を書き写しただけでない）解説のサイトなどあれば、ご紹介いただけますでしょうか。

残念ですがＣＯＢＯＬは他の言語と違い歴史がある割りには定番類があまりありません。

最新のＣＯＢＯＬは他の言語のように色々な命令が追加されているようですが、本来は当時のプログラミングの専門家以外でもプログラムを作成することを目標に設計されています。
（当時といっても、もう半世紀も前の話ですが・・・）
そのため、元は限られた命令と定義されたデータ構造だけでプログラムが作成できます。
（バッチであればファイル処理と帳票処理を中心に憶えれば良いと思います。問題はオンラインとＷｅｂの場合ですが真似からなれるしかないかもしれません。）


参考になるでしょうか？

No.3 回答者： sanga12 回答日時： 2007/02/17 19:47

文字タイプを数字タイプにＭＯＶＥするのは良くないことですね

０１　Ａ　ＰＩＣ　ＸＸ.
０１　Ｂ　ＰＩＣ　９９.
で
ＭＯＶＥ　Ａ　ＴＯ　Ｂ
は
ＣＯＭＰＵＴＥ　Ｂ　＝　Ａ　
と同じです・・・・
★
０１　Ａ.
　　　０２　Ａ－Ｒ　ＰＩＣ　９９．
として
ＩＦ　Ａ　ＮＵＭＥＲＩＣ
　　　ＭＯＶＥ　Ａ－Ｒ　ＴＯ　Ｂ
ＥＬＳＥ
　　　ＭＯＶＥ　０　ＴＯ　Ｂ.（数値以外であればとりあえず０にする）
★
０１　Ｃ　ＰＩＣ　９（４）　ＣＯＭＰ　ＶＡＬＵＥ　９７．
これは　一度
数値項目の
０１　Ｄ　ＰＩＣ　９（４）．
０１　Ｄ－Ｒ　ＲＥＤＥＦＩＮＥＳ　Ｄ　ＰＩＣ　ＸＸＸＸ.
で
ＭＯＶＥ　Ｃ　ＴＯ　Ｄ．

元データにサインがある時はＰＩＣのところでＳ９（４）にして、ＭＯＶＥで受取ると駄目ですね。
この場合は、
０１　Ｅ　ＰＩＣ　Ｓ９（９）.
０１　Ｆ　ＰＩＣ　－－－－－－－．や　ＺＺＺＺＺＺ－.の編集タイプにすれば
ＭＯＶＥ　Ｃ　ＴＯ　Ｅ.
ＭＯＶＥ　Ｅ　ＴＯ　Ｆ．の２回ＭＯＶＥですね．

ＢＩＴタイプもこれの応用です

でも、昔と違い、ＣＯＭＰやＣＯＭＰ－３などはあまり使わなくても良いのでは・・・・メモリも大きくなったし、レコード長の制限も緩和されているから・・・・

No.1 回答者： yaburegasa 回答日時： 2007/02/16 08:50

ＣＯＢＯＬはしばらく使っていませんが、どなたからも回答がありませんので

記憶を頼りですがお答えします。

先ず、ＣＯＭＰ指定がある等は難しく考えないで良いです。
内部で演算の際に、その処理系の演算に適したデータ形式が取られる・・・
位に考えてください(ちょっと乱暴ではありますが）
詳しく知りたかったらマニュアルに書かれています。

するとずっとシンプルに見えてきます。
　　MOVE N1 TO X1
等、D1からX1へというパターン・・・
数値項目を文字項目に転記・・・は出力の為の編集では頻繁に使います。
桁数にだけは気をつけてください。

　　MOVE D2 TO X2
想像された”ａ△△"の意味は解りませんが、結果は”０９７”でしょう。

　　MOVE D2 TO N2
　　MOVE N2 TO X2
は問題ありませんが、後者は桁落ちする場合があります。
上記のすべての例は、符号は考慮されていない(すべて＋）事にも注意してください。

・蛇足ですが、数値項目は文字項目に転記できるが、その後演算には使用できない。
・文字項目から数値項目への転記はできない。
（データが確実に数字なら実行時エラーにはならないが・・・）

お役立ちサイト　を検索してみましたが、

http://www.koganet.ne.jp/~kitagawa/shome/index.h …
http://www.t3.rim.or.jp/~buchi/proco.html

処理系は違っても、文法規格は国際統一されていますので役に立つのではないでしょうか！

この回答へのお礼

ありがとうございますっ！ちょっと感動入っています。
むかしＣを触っていたのでその中でビット仕様を意識する習慣がついてしまったということになりましょうか。
ですと、PICの型（？）を問わず、数値であれば中身のビットを気にせずに転記できるということになるわけでしょうか。であれば、型によるちがいはコンパイラがうまくやってくれるということでしょうか。
97が'a'と解釈できるのは、文字'a'のコードが（たしか）97であるところからきてます。

ちなみにビットで定義した
　01 B1 PIC 1(16) BIT
は、転記に際しては文字通りビットを写すだけになりましょうか。たとえば
　MOVE '0000000001100001' TO B1 　（←97:10進）
に対して
　MOVE B1 TO X1
　MOVE B1 TO D1
とかやると、それぞれ'a'と97（あれ符号がない？…）になったりするわけでしょうか。

なんかやっぱり難しいですね。=_=

お礼日時：2007/02/17 13:26