NetCOBOL for .NET V8.0 メッセージ集

2.3.446 JMN2747I-S

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

例

      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以外の基本項目か，または可変長文字列型のホスト変数でなければなりません．