Question

基本上我的数据库设计考试正在进行，我们的主要课题之一是嵌入式SQL。这是我给出的唯一一个例子，但有0个解释我几乎很难弄清楚发生了什么，如果我知道它写的是什么语言我至少可以找到帮助的参考手册。

var
    StaffNum: string[5];
    FirstName, LastName: string[12];
    Address: string [60];
    Telephone: string[12];
EXEC SQL
    INCLUDE SQLCA
END EXEC
begin
EXEC SQL
    LOGIN localhost, 'scott' , 'tiger'
END EXEC
if SQLCODE <> 0 then
begin
    display ('Illegal login attempted - program terminating');
exit
end;

display ('Enter Staff Number of Interest');
accept (StaffNum);
EXEC SQL
    SELECT Fname, Lname, Address, Tel_No
    INTO :FirstName, :LastName, :Address, :Telephone
    FROM STAFF
    WHERE Sno = :StaffNum
END EXEC
if SQLCODE <> 0 then
begin
    display ('Invalid Staff Number Entered: ', StaffNum)
end
else
begin
    display ('Name: ', FirstName, ' ', LastName);
    display ('Home Address: ', Address);
    display ('Phone Number: ', Telephone)
end;
EXEC SQL
LOGOFF
END EXEC
end.

任何想法都将不胜感激！

编辑：我知道一般程序的功能，但是出现的问题是“用于'包含'的内容，或者SQLCODE的可能值等等。

Answer 1

我认为它可能是用Pascal编写的。

Answer 2

<强> COBOL

SQL通讯区（SQLCA ）

每个包含嵌入式SQL的COBOL程序都必须具有SQL   通信区域（SQLCA）或其中定义的字段SQLCODE   工作储存科。这个定义通常由   包括随COBOL系统提供的SQLCA字帖。一个   SQL中提供了SQLCA结构的完整描述   参考手册。 SQLCA保存有关SQL状态的信息   声明上次执行。它在每个执行后更新   EXEC SQL ... END-EXEC代码块。

https://supportline.microfocus.com/documentation/books/sx40/spcesc.htm#usca

这个嵌入式SQL用什么语言编写？

2 个答案: