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

2.4.51 JMN3069I-S

[NOT] ON SIZE ERROR指定付きのCOMPUTE文の受取り側@1@は,数字項目または数字編集項目でなければなりません.

引数の説明

@1@:

一意名の名標

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3069.
      000003 ENVIRONMENT  DIVISION.
      000004 DATA  DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01  A PIC XXXX.
      000007 01  B PIC 9(4).
      000008 01  C PIC 9(4).
      000009 01  D PIC 9(4).
      000010 PROCEDURE  DIVISION.
      000011 P-START.
      000012     COMPUTE A = B + C     ON SIZE ERROR STOP RUN
      000013                       NOT ON SIZE ERROR MOVE B TO D.
      000014     STOP RUN.
    

C3069.cob (12) : JMN3069I-S [NOT] ON SIZE ERROR指定付きのCOMPUTE文の受取り側'A'は,数字項目または数字編集項目でなければなりません.