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

基本上，我有一个关于数据库设计的考试，我们的主要课题之一是嵌入式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.

var
StaffNum:string[5]；
FirstName，LastName:string[12]；
地址：字符串[60]；
电话：字符串[12]；
执行SQL
包括SQLCA
末端执行器
开始
执行SQL
登录localhost，'scott'，'tiger'
末端执行器
如果SQLCODE为0，则
开始
显示（'尝试非法登录-程序终止'）；
出口
结束；
显示（“输入感兴趣的员工编号”）；
接受（StaffNum）；
执行SQL
选择Fname、Lname、地址、电话号码
输入：FirstName，：LastName，：Address，：Telephone
工作人员
其中Sno=：StaffNum
末端执行器
如果SQLCODE为0，则
开始
显示（'输入的员工编号无效：'，StaffNum）
结束
其他的
开始
显示（'Name:'，FirstName'，，LastName）；
显示（'家庭地址：'，地址）；
显示（'电话号码：'，电话）
结束；
执行SQL
注销
末端执行器
结束。

任何想法都将不胜感激

---

编辑：我知道通用程序是做什么的，但是出现的问题是“Include用于什么，或者SQLCODE的可能值是什么等。”

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

COBOL

SQL通信区域（SQLCA）

每个包含嵌入式SQL的COBOL程序都必须有一个SQL 通信区域（SQLCA）或在其 工作存储部分。此定义通常由 包括COBOL系统提供的SQLCA副本 SQL中提供了SQLCA结构的完整描述 参考手册。SQLCA保存有关SQL状态的信息 最后执行的语句。它在每个 EXEC SQL…END-EXEC代码块

---

了解该语言完全超出了本文的范围。请将其作为英语阅读。没有比这更简单的了。scott/tiger是默认的oracle示例用户名/密码。因此，这可能是pro/C更正：它肯定不是C。它可能是microsoft语言之一。或者是Pascal变体。