例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P5750.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 LINKAGE SECTION.
000006 01 LK1 PIC S9(8) BINARY.
000007 PROCEDURE DIVISION
000008 USING BY VALUE LK1.
000009 END PROGRAM P5750.
P5750.cob (8) : JMN5750I-S プログラム原型定義を除くプログラムの手続き部見出しにはBY VALUE指定を記述できません．BY REFERENCE指定が記述されたと見なします．
詳細な説明
手続き部見出しにBY VALUE指定を記述できるプログラム定義は，プログラム原型定義(PROGRAM-ID段落にPROTOTYPE指定を指定した定義)だけです．