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

2.3.445 JMN2745I-S

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

引数の説明

@1@:

OCCURSまたはREDEFINES.

      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句を持つ項目に従属する項目であってはなりません.