NetCOBOL V11.0 メッセージ集

2.4.448 JMN2748I-S

ホスト変数にOCCURS句を記述する場合，DEPENDING ON指定，KEY IS指定およびINDEXED BY指定は記述できません．

例題

[P2748.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2748.
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  SQLINFOA .
000009    02 SQLERRD PIC S9(9) BINARY
000010               OCCURS 6 TIMES INDEXED BY IX1.
000011  77  HVAR3  PIC S9(9) BINARY.
000012     EXEC SQL  END  DECLARE SECTION END-EXEC.
000013 PROCEDURE  DIVISION.
000014     EXEC  SQL
000015        SELECT CL1 INTO :HVAR3  FROM  TBL
000016     END-EXEC.
000017 END PROGRAM P2748.

P2748.cob 9: JMN2748I-S ホスト変数にOCCURS句を記述する場合，DEPENDING ON指定，KEY IS指定およびINDEXED BY指定は記述できません．