例題
[P2099.cob] 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とみなして処理しますが，このときオブジェクトファイルや実行形式ファイルは生成されません．
