NetCOBOL V11.1 メッセージ集

2.3.170 JMN1279I-S

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

例題

[C1279.cob]
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文が重複しています．