埋め込みの説明
@1@ : COMPUTATIONAL-1,COMPUTATIONAL-2,INDEX,POINTER,PROCEDURE-POINTER,BINARY-CHAR,BINARY-SHORT,BINARY-LONGまたはBINARY-DOUBLE.
例題
[P2009.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2009. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 E1 PIC S9(9) BINARY-LONG. 000007 PROCEDURE DIVISION. 000008 END PROGRAM P2009.
P2009.cob 6: JMN2009I-S USAGE句の'BINARY-LONG'は,PICTURE句を持つ項目に指定できません.
詳細な説明
以下のいずれかのUSAGE句を持つデータ項目は,桁数や符号の有無を指定することはできません.
COMPUTATIONAL-1(COMP-1)
COMPUTATIONAL-2(COMP-2)
INDEX
POINTER
PROCEDURE-POINTER
BINARY-CHAR
BINARY-SHORT
BINARY-LONG
BINARY-DOUBLE
PICTURE句を削除してください.