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

2.4.27 JMN3038I-S

PERFORM文中の@1@は,数字項目でなければなりません.

引数の説明

@1@:

一意名

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3038.
      000003 ENVIRONMENT  DIVISION.
      000004 DATA  DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01  A       PIC 99.
      000007 01  B       PIC XX.
      000008 PROCEDURE  DIVISION.
      000009     PERFORM VARYING A FROM B BY 1 UNTIL A < 0
      000010     COMPUTE A = A - 1
      000011     END-PERFORM.
      000012     STOP RUN.
    

C3038.cob (9) : JMN3038I-S PERFORM文中の'B'は,数字項目でなければなりません.