NetCOBOL V11.0 メッセージ集

2.4.547 JMN2928I-S

印字モード名指定のCHARACTER TYPE句が指定された項目を含むレコード記述中に，MODE-1，MODE-2，MODE-3または呼び名指定のCHARACTER TYPE句があってはなりません．

例題

[P2928.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2928.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     PRINTING MODE PM1 FOR MOCS
000007     PRINTING MODE PM2 FOR SOCS.
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                CHARACTER TYPE MODE-1.
000015 01 WMODE       PIC S9(4).
000016 PROCEDURE      DIVISION.
000017 END PROGRAM    P2928.

P2928.cob 10: JMN2928I-S 印字モード名指定のCHARACTER TYPE句が指定された項目を含むレコード記述中に，MODE-1，MODE-2，MODE-3または呼び名指定のCHARACTER TYPE句があってはなりません．