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

2.2.168 JMN1279I-S

END DECLARE SECTION文が重複しています.

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID.     C1279.
      000003 DATA            DIVISION.
      000004 WORKING-STORAGE SECTION.
      000005     EXEC AQL BEGIN DECLARE SECTION END-EXEC.
      000006 01 HOSTV1.
      000007   02 HNUM       PIC S9(4) BINARY.
      000008   02 HNAME      PIC X(30).
      000009     EXEC AQL END DECLARE SECTION END-EXEC.
      000010     EXEC AQL END DECLARE SECTION END-EXEC.
      000011 END PROGRAM C1279.
    

C1279.cob (10) : JMN1279I-S END DECLARE SECTION文が重複しています.