ページの先頭行へ戻る
NetCOBOL for .NET V8.0 メッセージ集
FUJITSU Software

2.3.542 JMN2928I-S

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

      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句があってはなりません.