ページの先頭行へ戻る
NetCOBOL for .NET V8.0 メッセージ集
FUJITSU Software

2.3.55 JMN2099I-S

VALUE句の数字定数で,条件変数のPICTUREの'P'に対応する文字位置は,ゼロでなければなりません.
表意定数ZEROが指定されたものとみなします.

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2099.
      000003 ENVIRONMENT    DIVISION.
      000004 DATA           DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01 WVAR        PIC 999PP.
      000007 88 ZOK         VALUE 12300.
      000008 88 ZNG         VALUE   123.
      000009 PROCEDURE      DIVISION.
      000010 END PROGRAM    P2099.
    

P2099.cob (8) : JMN2099I-S VALUE句の数字定数で,条件変数のPICTUREの'P'に対応する文字位置は,ゼロでなければなりません.表意定数ZEROが指定されたものとみなします.

詳細な説明

PICTURE句の文字"P"は位取りを示す文字であり,PICTURE句の数字の桁位置の左端あるいは右端に続けて記述します.左端にあるときは,先頭の"P"の左側に小数点があるものとみなされます.一方,右端にあるときは,末尾の"P"の右側に小数点があるものとみなされます.

条件変数である数字項目のPICTURE句の文字列と,条件名記述項(レベル番号が88)のVALUE句で指定した数値とを,小数点の位置を合わせて対応付けたとき,PICTURE句の文字"P"の位置にある数字は"0"でなければなりません.

翻訳を続行するために,文字"P"の位置の値を0とみなして処理しますが,このときオブジェクトファイルや実行形式ファイルは生成されません.