1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Starttransaction;
  
While newDataRecord do
begin
  ID := GetStoredProcedure(Nr,Abtlg).
  CommitRetaining;
  Update Table (ID,.
end;

Commit;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

SET TERM ^ ;

CREATE OR ALTER PROCEDURE ADD_ARTIKEL (
    nr integer,
    abtlg integer)
returns (
    arid integer)
as
declare variable id integer;
declare variable curtime timestamp;
begin
  select count(*) from ARTIKEL WHERE ARTNR=:Nr and Abtlg=:Abtlg INTO :ID;
  if (ID > 0) then
  begin
    Select AID FROM ARTIKEL WHERE ARTNR=:Nr and Abtlg=:Abtlg INTO :ARID;
    suspend;
    exit;
  end

  ID = GEN_ID(GEN_LINKID, 1);
  arid = ID;
  curtime = current_timestamp;

  Insert Into ARTIKEL(...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

CREATE PROCEDURE INSUPD_SP8 (ID_ART INTEGER)
AS
DECLARE VARIABLE AENDERN INTEGER;
BEGIN
  AENDERN = -1;
  SELECT ID FROM TABLEX WHERE ID_ART= :ID_ART INTO :AENDERN;
  IF (AENDERN < 0) THEN BEGIN
    INSERT INTO ...
  END
  ELSE BEGIN
    UPDATE ... SET ... WHERE (ID_ART = :ID_ART);
  END
  SUSPEND;
END^					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

CREATE TABLE SPTEST(
  ID Integer,
  NAME Varchar(50)
);

CREATE PROCEDURE SPINSUP (    SPID Integer,
    SPNAME Varchar(50) )
AS
Begin 
  INSERT INTO SPTest Values (:SPID, :SPName); 
end^
SET TERM ; ^