例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2227.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WGRP.
000007 02 WDPEND PIC S9(4) BINARY.
000008 02 WNC CHARACTER TYPE MODE-1.
000009 03 PIC N(10)
000010 PRINTING POSITION 10.
000011 02 WOCC OCCURS 10 DEPENDING ON WDPEND.
000012 03 PIC N(10).
000013 PROCEDURE DIVISION.
000014 END PROGRAM P2227.
P2227.cob (6) : JMN2227I-S PRINTING POSITION句は,OCCURS DEPENDING ON句を含むレコード記述中に指定できません.