例
000001 PROGRAM-ID. P2374 .
000002 ENVIRONMENT DIVISION.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 77 X PIC 1(8) USAGE BIT.
000006 78 V1 VALUE IS LENGTH OF X.
000007 PROCEDURE DIVISION.
000008 EXIT PROGRAM.
P2374.cob (6) : JMN2374I-S LENGTH OFで指定されたデータ項目は，内部ブール項目であってはなりません．
詳細な説明
名前付き定数のデータ記述項(レベル番号が78)でLENGTH OFを指定した場合，LENGTH OFで指定したデータ名の項目長がその名前付き定数の値となります．ビット単位での大きさを名前付き定数の値にすることはできません．