例題
[P2012.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2012. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WNUM PIC X(10) BINARY. 000007 PROCEDURE DIVISION. 000008 END PROGRAM P2012.
P2012.cob 6: JMN2012I-S BINARY,COMPUTATIONAL,COMPUTATIONAL-3またはPACKED-DECIMALは,数字項目に指定しなければなりません.
詳細な説明
BINARY(USAGE IS BINARY句)・COMPUTATIONAL(USAGE IS COMPUTATIONAL句)は,データの用途が2進項目であることを示す句です.また,COMPUTATIONAL-3(USAGE IS COMPUTATIONAL-3句)・PACKED-DECIMAL(USAGE IS PACKED-DECIMAL句)は,データの用途が内部10進項目であることを示す句です.これらの句を指定するときは,データ記述項のPICTURE句の文字列は"P","S","V"および"9"だけで構成しなければなりません.
なお,BINARYとCOMPUTATIONALは同義です.COMPUTATIONALはCOMPと書いてもかまいません.また,COMPUTATIONAL-3とPACKED-DECIMALは同義です.COMPUTATIONAL-3はCOMP-3と書いてもかまいません.