例
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と書いてもかまいません.