Question

Hello Stack社区，

过去几天我一直坚持使用我最初认为相对简单的SQR更新。

简而言之，程序Process-Main选择所有员工，其中COMPANY ='ABC'，然后我需要将记录插入TableA＆amp; TableB与每个employeeID相关联

TableB是空的，所以我只是为每个empID运行一个INSERT语句，并且正在添加记录而没有任何问题。

但是，某些empID可能在TableA中有现有记录，我需要在INSERT到TableA之前检查它。

奇怪的是，当我执行此SQR时，我收到以下错误

(SQR 3721) Bad param found on 'BEGIN-SELECT' line;

(SQR 3704) Missing procedure name.
    A.EMPLID

我很确定这是一个语法问题，或者我只是有一个大脑放屁......有没有人有任何意见/建议？

这是我的伪代码

!***************************
begin-procedure Process-Main
!***************************

begin-select distinct

J.DEPTID
J.EMPLID
J.EFFDT

do Insert-TableA-Record
do Insert-TableB-Record

FROM PS_JOB J
WHERE J.COMPANY = 'ABC'

end-select
end-procedure

!****************************
begin-procedure Insert-TableA-Record
!****************************

let $found = 'N'

begin-select
    A.EMPLID

    let $found = 'Y'

    FROM TableA A

    WHERE A.EMPLID=&J.EMPLID
    AND A.PLAN_TYPE='P1234'
end-select

if $found = 'N'
    begin-sql ON-ERROR = Abort-Update
        INSERT INTO TableA (
            EMPLID,
            PLAN_TYPE
        )
        VALUES (
            &J.EMPLID,
            'P1234'
        );
    end-sql
end-if

end-procedure

!****************************
begin-procedure Insert-TableB-Record
!****************************

begin-sql ON-ERROR = Abort-Update

!INSERT INTO TableB STMT HERE... 
!everything runs fine in this procedure

end-sql

end-procedure

Answer 1

我找到了答案......我知道不熟悉SQR语法是一个愚蠢的错误

我没有在SELECT区域内缩进“LET”语句。现在我知道只有SQL语句可以出现在第一列中。

我已经学习了另一个编码课程，这是正确的语法：

begin-select
A.EMPLID
    let $found = 'Y'
FROM TableA A
WHERE A.EMPLID=&J.EMPLID
AND A.PLAN_TYPE='P1234'
end-select

Answer 2

在过程中，Insert-TableA-Record，A.Emplid，需要在第1列

我在测试类似的程序时遇到了同样的错误

BQIN-SELECT语句上的运行时错误的SQR过程

2 个答案: