例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1405.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 A PIC 9PB.
000007 01 B PIC BP9.
000008 01 C PIC PV9.
000009 01 D PIC P9V.
000010 01 E PIC ++P9.
000011 01 F PIC P9P.
000012 PROCEDURE DIVISION.
000013 STOP RUN.
C1405.cob (6) : JMN1405I-S PICTURE文字列で,'P'が誤った位置に指定されています.PICTURE 9とみなします.
C1405.cob (7) : JMN1405I-S PICTURE文字列で,'P'が誤った位置に指定されています.PICTURE 9とみなします.
C1405.cob (8) : JMN1405I-S PICTURE文字列で,'P'が誤った位置に指定されています.PICTURE 9とみなします.
C1405.cob (9) : JMN1405I-S PICTURE文字列で,'P'が誤った位置に指定されています.PICTURE 9とみなします.
C1405.cob (10) : JMN1405I-S PICTURE文字列で,'P'が誤った位置に指定されています.PICTURE 9とみなします.
C1405.cob (11) : JMN1405I-S PICTURE文字列で,'P'が誤った位置に指定されています.PICTURE 9とみなします.
詳細な説明
“P”は,PICTURE句の数字の桁位置の左端または右端に続けて書かなければなりません.