NetCOBOL V11.1 メッセージ集

2.4.451 JMN2749I-S

ホスト変数は，強く型付けされた項目であってはなりません．

例題

[P2749.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2749.
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  HVAR1 TYPE STY.
000009     EXEC SQL END DECLARE SECTION END-EXEC.
000010  01  STY TYPEDEF STRONG.
000011    02  HVAR20  PIC X.
000012    02  HVAR21  PIC S9(4) BINARY.
000013    02  HVAR22  PIC N(40).
000014 PROCEDURE  DIVISION.
000015     EXEC  SQL
000016        SELECT CL1 INTO :HVAR1  FROM  TBL
000017     END-EXEC.
000018 END PROGRAM     P2749.

P2749.cob 8: JMN2749I-S ホスト変数は，強く型付けされた項目であってはなりません．