例
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指定は記述できません．