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

2.4.449 JMN2745I-S

ホスト変数は,@1@句を持つ項目に従属する項目であってはなりません.

埋め込みの説明

@1@ : OCCURSまたはREDEFINES.

例題

[P2745.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2745.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE  SECTION.
000006     EXEC SQL BEGIN  DECLARE SECTION END-EXEC.
000007  01  SQLSTATE PIC X(5).
000008  01 HRGRP.
000009    02         OCCURS 10.
000010      03 HVAR1   PIC S9(9) BINARY.
000011     EXEC SQL  END  DECLARE SECTION END-EXEC.
000012 PROCEDURE  DIVISION.
000013     EXEC  SQL
000014        SELECT CL1 INTO :HVAR1  FROM  TBL
000015     END-EXEC.
000016 END PROGRAM    P2745.

P2745.cob 10: JMN2745I-S ホスト変数は,OCCURS句を持つ項目に従属する項目であってはなりません.