この埋め込みSQLはどの言語で書かれていますか？

Question

基本的に私はDatabase Designで試験を受験しています。私たちの主なトピックの1つは埋め込み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. 

ご迷惑をおかけして申し訳ございません。

編集：私は一般的なプログラムが何を知っているが、出てくる質問は

Answer 1

をするために使用さ 『を含む』、またはSQLCODEの可能な値は、など何されているもの」の線に沿っていると思いますそれはパスカルで書かれていてもよい。

Answer 2

COBOL

SQL通信領域（SQLCA）

埋め込みSQLを含むすべてのCOBOLプログラムには、 通信領域（SQLCA）またはフィールドワーキングストレージセクションに定義されたSQLCODEが必要です。この定義は通常、COBOLシステムで提供されているSQLCAのコピーブックを含む によって行われます。 A SQLCA構造の完全な説明は、SQL リファレンスマニュアルで提供されています。 SQLCAは、最後に実行されたSQL ステートメントのステータスに関する情報を保持します。各コードの実行後に更新されます。EXEC SQL ... END-EXECコードブロック。言語を知っ

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