, SQL . , . ANSI SQL /1, , , ; B. .
, , DATE, ANSI, , ANSI . , , SQL. SQL , . (SQL, , SQL, .)
, , . :
SQL DECLARE SESSION ( ), ;
SQL (, , );
SQL, SQL ;
, SQL
SQL , , , .
, , : id_num, salesperson, loc comm. , . SQL :
EXEC SQL INSERT INTO Salespeople
VALUES (:id_num,:salesperson,:loc,:comm)
. , comm , , .
, . , SQL , .
PL/1 , END-EXEC, .
, , ( ) , SQL . SQL .
, , , , , :
while not end-ot-file (input) do
begin
readln(id_num, salesperson, loc, comm);
EXEC SOL INSERT INTO Salespeople
VALUES (:id_num,:salesperson,:loc,:comm);
end;
|
|
, , , , , , , . , ( , readln ). .
, , , .12:
while not end-ot-file (input) do
begin
readln (id_num, salesperson, loc, comm);
if comm >=.12 then EXEC SQL INSERT INTO Salespeople
VALUES (:id_num,:salesperson,:loc,:comm);
end;
, comm >=.12, . , , .
, SQL, SQL DECLARE SECTION ( ), . , - , , . SQL BEGIN DECLARE SECTION ( ) END DECLARE SECTION ( ), , EXEC SQL ().
, , :
EXEC SQL BEGIN DECLARE SECTION;
Var
id-num: integer;
Salesperson: packed array (1..10) ot char;
loc: packed array (1..10) ot char;
comm: real;
EXEC SQL END DECLARE SECTION;
, Var , ( ) , , (, loc loc[3]).
, , SQL.