例題
[P2927.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2927. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 PRINTING MODE PM1 FOR MOCS 000007 PRINTING MODE PM2 FOR MOCS. 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 01 WMODE PIC S9(4). 000015 PROCEDURE DIVISION. 000016 END PROGRAM P2927.
P2927.cob 10: JMN2927I-S OR指定の後の印字モード名のFOR指定は,OR指定の前の印字モード名のFOR指定と異なっていなければなりません.
詳細な説明
CHARACTER TYPE句で複数の印字モード名を指定する場合,すべての印字モード名のFOR指定(環境部の特殊名段落のPRINTING MODE句のFOR MOCS/FOR SOCS/FOR ALLの指定)は同一でなければなりません.