NetCOBOL V11.0 メッセージ集

2.4.475 JMN2803I-S

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

例題

[P2803.cob]
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進整数項目でなければなりません．