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

2.4.57 JMN3075I-S

COMPUTE文の受取り側はすべて数字項目若しくは数字編集項目か,またはすべてブール項目のいずれかでなければなりません.

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3075.
      000003 ENVIRONMENT  DIVISION.
      000004 DATA  DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01  A PIC 9999.
      000007 01  B PIC 1111.
      000008 01  C PIC XXXX.
      000009 PROCEDURE  DIVISION.
      000010 P-START.
      000011     COMPUTE A B = ZERO.
      000012     STOP RUN.
    

C3075.cob (11) : JMN3075I-S COMPUTE文の受取り側はすべて数字項目若しくは数字編集項目か,またはすべてブール項目のいずれかでなければなりません.