NetCOBOL V11.1 メッセージ集

2.4.449 JMN2747I-S

OCCURS句を指定するホスト変数は，レベル番号49以外の基本項目か，または可変長文字列型のホスト変数でなければなりません．

例題

[C2747.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    C2747.
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  HVAR0.
000009   02  HVAR1 OCCURS 3 TIMES.
000010    49  HVAR11  PIC S9(4) BINARY.
000011    49  HVAR12  PIC N(40).
000012   02  HVAR2 OCCURS 3 TIMES.
000013    03  HVAR21  PIC S9(4) BINARY.
000014    03  HVAR22  PIC N(40).
000015      EXEC SQL END  DECLARE SECTION END-EXEC.
000016 PROCEDURE  DIVISION.
000017      EXEC  SQL
000018        SELECT CL1 INTO :HVAR1  FROM  TBL END-EXEC.
000019      EXEC  SQL
000020        SELECT CL2 INTO :HVAR2  FROM  TBL END-EXEC.

C2747.cob 12: JMN2747I-S OCCURS句を指定するホスト変数は，レベル番号49以外の基本項目か，または可変長文字列型のホスト変数でなければなりません．