无法在 SQL 插入 SQLRPGLE 后更新文件

Question

大家好，

我正在编写一个程序来构建一个报告，在其中构建 SQL 语句以将所选记录插入到文件中，然后插入后，我想对文件进行简单的更新以更改某些记录中的选择字段。

问题是，在插入运行后，每当我尝试更新文件时，我都会收到"记录"或"文件正在使用"错误。

我尝试使用 sqlrpgle 和 I/O 读取和设置函数以编程方式更新它，我什至尝试在运行程序后只更新 STRSQL 中的文件，我都遇到了相同的错误。

我怀疑我没有正确关闭某些东西，但我不确定是什么。

代码如下

// Assign SQL Query
sqlstmt = 'insert into jallib/orhsrpt ('+
'oacctd, oacmp, oaord, oacust, o8type, ' +
'o8text, o8date, o8time ) ' +
'select oacctd, oacmp, oaord, oacust, ' +
'o8type, o8text, o8date, o8time ' +
'from r50files.vcohead ' +
'join r50files.vcopkct ' +
'on oacmp = o8cmp and oaord = o8ord ' +
'where oacmp = 1 ' +
'and o8type not in (' +
'''C'',''a'',''H'',''E'',''F'', '+
'''A'',''1'',''N'',''M'') ' +
'and oacctd = ' + curdate +
' order by oaord, o8time ';
// Prepare for multiple sql statements 
exec sql
Set Option Commit = *NONE; 
// Clear output file before executing SQL
exec sql
Delete from jallib/orhsrpt;
if sqlcode < *zeros; 
errmsg = 'Delete of file failed'; 
endif; 
// Execute SQL Insert statement
exec sql prepare sqlsel from :sqlstmt;
exec sql execute sqlsel;
if sqlcode < *zeros; 
errmsg = 'Insert of file failed'; 
endif;
// Update file data
exec sql
Set Option clossqlcsr = *ENDMOD; 
exec sql  
Update jallib/orhsrpt 
set o8text = 'Order Invoiced' 
where o8type = 'I' 

来自 STRSQL 的错误如下

JALLIB 类型 *FILE 中的行或对象 ORHSRPT 正在使用中。

Answer 1

快速回答是插入没有关闭，因为您的模块尚未按照您指定的Set Option结束。 但是，这里的正确答案是，您根本没有理由使用动态 SQL 语句。 它们通常更慢且更容易出错，您会遇到这样的问题。 您应该改用常规的嵌入式 SQL 语句，如下所示：

exec sql
set option commit = *NONE; 
// Clear output file before executing SQL
exec sql
delete from jallib/orhsrpt;
if sqlstate <> *zeros; 
errmsg = 'Delete of file failed'; 
endif; 
exec sql
insert into jallib/orhsrpt (
oacctd, oacmp, oaord, oacust,
o8type, o8text, o8date, o8time )
select oacctd, oacmp, oaord, oacust, o8type,
o8text, o8date, o8time
from r50files.vcohead join r50files.vcopkct
on oacmp = o8cmp and oaord = o8ord
where oacmp = 1 and o8type not in (
'C','a','H','E','F', 'A','1','N','M') and
oacctd = :curdate
order by oaord, o8time;
exec sql  
update jallib/orhsrpt 
set o8text = 'Order Invoiced' 
where o8type = 'I' 

这是更好的做法，应该可以解决您的问题。