埋め込みの説明
@1@ : OCCURSまたはREDEFINES.
例題
[P2745.cob] 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句を持つ項目に従属する項目であってはなりません.