例題
[P2041.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2041. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WNUM2 PIC 999PP VALUE 1234. 000007 PROCEDURE DIVISION. 000008 END PROGRAM P2041.
P2041.cob 6: JMN2041I-S P付き数字項目にVALUE句が指定された場合，数字項目のPに対応する数字定数の文字位置の値はゼロでなければなりません．数字項目のPに対応する文字位置の値がゼロであるとみなします．
詳細な説明
PICTURE句の文字"P"は位取りを示す文字であり，PICTURE句の数字の桁位置の左端あるいは右端に続けて記述します．左端にあるときは，先頭の"P"の左側に小数点があるものとみなされます．一方，右端にあるときは，末尾の"P"の右側に小数点があるものとみなされます．
数字項目のPICTURE句の文字列と，VALUE句で指定した数値とを，小数点の位置を合わせて対応付けたとき，PICTURE句の文字"P"の位置にある数字は"0"でなければなりません．
翻訳を続行するために，文字"P"の位置の値を0とみなして処理しますが，このときオブジェクトファイルや実行形式ファイルは生成されません．
