例題
[C1482.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1482. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 EXEC SQL BEGIN DECLARE SECTION END-EXEC. 000006 01 SQLSTATE PIC X(5). 000007 01 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA. 000008 02 BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB. 000009 03 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC. 000010 04 DDDDDDDDDDDDDDDDDDDDDDDDDDDDDD. 000011 05 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE. 000012 06 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF. 000013 07 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGG. 000014 08 HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH. 000015 09 IIIIIIIIIIIIIIIIIIIIIIIIIIIIII PIC X(5). 000016 EXEC SQL END DECLARE SECTION END-EXEC. 000017 PROCEDURE DIVISION. 000018 EXEC SQL 000019 DECLARE CUR1 CURSOR FOR 000020 SELECT S1.TABLE 000021 END-EXEC. 000022 EXEC SQL 000023 FETCH CUR1 INTO 000024 :AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA. 000025- BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB. 000026- CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC. 000027- DDDDDDDDDDDDDDDDDDDDDDDDDDDDDD. 000028- EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE. 000029- FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF. 000030- GGGGGGGGGGGGGGGGGGGGGGGGGGGGGG. 000031- HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH. 000032- IIIIIIIIIIIIIIIIIIIIIIIIIIIIII 000033 END-EXEC.
C1482.cob 23: JMN1482I-S 埋込みSQL文中で修飾付きの英数字のホスト変数の長さが250字を超えています．先頭から250字を文字列とみなします．
