NetCOBOL for .NET V8.0 メッセージ集

2.3.470 JMN2803I-S

MESSAGE CODE句のデータ名は，英数字項目または符号なし外部10進整数項目でなければなりません．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2803.
      000003 ENVIRONMENT    DIVISION.
      000004 INPUT-OUTPUT    SECTION.
      000005 FILE-CONTROL.
      000006     SELECT PRFILE1 ASSIGN TO GS-SYS001
      000007       SYMBOLIC DESTINATION IS WDST
      000008       MESSAGE CODE         IS WMSC.
      000009 I-O-CONTROL.
      000010 DATA           DIVISION.
      000011 FILE            SECTION.
      000012 FD PRFILE1.
      000013 01 PRF1REC.
      000014   02           PIC X(80).
      000015 WORKING-STORAGE SECTION.
      000016 01 WDST        PIC X(3).
      000017 01 WMSC        PIC N(2).
      000018 PROCEDURE      DIVISION.
      000019 END PROGRAM    P2803.
    

P2803.cob (8) : JMN2803I-S MESSAGE CODE句のデータ名は，英数字項目または符号なし外部10進整数項目でなければなりません．