NetCOBOL V11.0 メッセージ集

2.4.453 JMN2750I-S

集団項目および従属するホスト変数名が大域名である場合，それらは参照できる範囲内で修飾せずに一意になる名前でなければなりません． この集団項目を構成するすべての名前はホスト変数名として使用できません．

例題

[P2750.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2750.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE  SECTION.
000006     EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000007  01  SQLSTATE  PIC X(5) GLOBAL.
000008  01  HVAR1     GLOBAL.
000009    02  HVAR10  PIC X.
000010    02  HVAR20  PIC S9(4) BINARY.
000011    02  HVAR30  PIC N(40).
000012     EXEC SQL END DECLARE SECTION END-EXEC.
000013
000014 PROGRAM-ID.    P2750SUB.
000015 DATA           DIVISION.
000016 WORKING-STORAGE  SECTION.
000017     EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000018  01  HVAR2.
000019    02  HVAR20  PIC S9(4) BINARY.
000020     EXEC SQL END DECLARE SECTION END-EXEC.
000021 PROCEDURE  DIVISION.
000022     EXEC  SQL
000023        SELECT CL1 INTO :HVAR20  FROM  TBL END-EXEC.
000024     EXIT PROGRAM.
000025 END PROGRAM     P2750SUB.
000026 END PROGRAM     P2750.

P2750.cob 10: JMN2750I-S 集団項目および従属するホスト変数名が大域名である場合，それらは参照できる範囲内で修飾せずに一意になる名前でなければなりません．この集団項目を構成するすべての名前はホスト変数名として使用できません．