例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2925.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 SPECIAL-NAMES.
000006 PRINTING MODE PM1 FOR MOCS
000007 PRINTING MODE PM2 FOR ALL.
000008 DATA DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 WGRP CHARACTER TYPE PM1 OR
000011 PM2.
000012 02 WDX PIC X(10).
000013 02 WDN PIC N(10).
000014 PROCEDURE DIVISION.
000015 END PROGRAM P2925.
P2925.cob (10) : JMN2925I-S FOR ALL指定の印字モード名は，OR指定のあるCHARACTER TYPE句に指定できません．