这篇博客展示了如何在COBOL程序中利用动态SQL执行Oracle数据库的插入操作。通过声明变量、构建动态SQL语句并进行预编译和执行，实现了对表格数据的动态操作。
Samples to execute dynamic SQL:
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 DYNSTMT PIC X(1024).
01 TABLENAME PIC X(100).
01 ROWS-TO-INSERT PIC S9(4) COMP.
01 TABLE-ROW.
03 S-SEQ-NUM-S PIC S9(8) COMP-3 OCCURS 4 TIMES.
03 S-NAME-S PIC X(8) OCCURS 4 TIMES.
03 S-ID-S PIC S9(4) COMP-3 OCCURS 4 TIMES.
03 SCORE-Y-S PIC X(4) OCCURS 4 TIMES.
01 I-TABLE-ROW.
03 I-S-SEQ-NUM-S PIC S9(4) COMP OCCURS 4 TIMES.
03 I-S-NAME-S PIC S9(4) COMP OCCURS 4 TIMES.
03 I-S-ID-S PIC S9(4) COMP OCCURS 4 TIMES.
03 I-SCORE-Y-S PIC S9(4) COMP OCCURS 4 TIMES.
EXEC SQL END DECLARE SECTION END-EXEC.
PROCEDURE DIVISION.
...
MOVE "V16TABLE" TO TABLENAME.
STRING "INSERT INTO ",
TABLENAME,
" VALUES(:V1, :V2, :V3, :V4)"
INTO DYNSTMT.
EXEC SQL PREPARE S FROM :DYNSTMT END-EXEC.
EXEC SQL EXECUTE S USING
:S-SEQ-NUM-S :I-S-SEQ-NUM-S,
:S-NAME-S :I-S-NAME-S,
:S-ID-S :I-S-ID-S,
:SCORE-Y-S :I-SCORE-Y-S
END-EXEC.
扫一扫
1675
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
