Rational Developer for System z
Enterprise COBOL for z/OS バージョン 4.1 コンパイラーおよびランタイム 移行ガイド


BLANK WHEN ZERO 文節

BLANK WHEN ZERO 文節で記述されたデータ項目が MOVE ステートメントにおいてゼロの値を受け取る 場合、データ項目にはスペースだけが入れられます。VALUE 文節では、初期設定は BLANK WHEN ZERO 文節による影響を受けません。つまり、VALUE 文節にゼロの値が指定されても、そのデータがそのまま項目に入れられ、項目 の中はスペースではなく、すべてゼロになります。

以下は CMPR2 の場合の例です。
01 N PIC 9(3) BLANK WHEN ZERO VALUE ZERO. (Result = "000")
   88 V VALUE ZERO.

SET V TO TRUE                             (Result = "   ")
MOVE ZERO TO N                            (Result = "   ")
以下は NOCMPR2 の場合の例です。
01 N PIC 9(3) BLANK WHEN ZERO VALUE ZERO. (Result = "000")
   88 V VALUE ZERO.
SET V TO TRUE                             (Result = "000")

MOVE ZERO TO N                            (Result = "   ")
CMPR2 のもとでの動作が NOCMPR2 のもとで必要な場合は、88 レベル項目の VALUE 文節 のデータを適宜調整してください。
01 N PIC 9(3) BLANK WHEN ZERO VALUE ZERO. (Result = "000")
   88 V VALUE "   ".

SET V TO TRUE                             (Result = "   ")
MOVE ZERO TO N                            (Result = "   ")

ご利用条件 | フィードバック

このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)