-- SGPV-Variablen von SSSD
-- =======================
-- add SSSB to edbBstn
INSERT INTO [edbBstn] ([Name], [Bezeichnung], [Suffix], [Präfix], [Zielsystem], [Aufrufbar], [Baustein_Kategorie], [Parent], [EdbInt], [Path], [Version], [Interface_Version], [Header_Record], [Anzahl_Felder], [Table_Mode], [AltPath], [ExtName], [AltExtName], [Sequenz], [Flags], [Picture], [ListBy], [ListFor], [Settings], [Interface_Dialog]) 
VALUES ('SSSB', 'statisches Bündeldokument', NULL, NULL, 'DMR', 1, 1, 'CDOK', 109, NULL, 3, 8, 1010, 14, 0, NULL, NULL, NULL, NULL, 926, NULL, 'LSSB', NULL, NULL, 0);

INSERT INTO [edbBstn] ([Name], [Bezeichnung], [Suffix], [Präfix], [Zielsystem], [Aufrufbar], [Baustein_Kategorie], [Parent], [EdbInt], [Path], [Version], [Interface_Version], [Header_Record], [Anzahl_Felder], [Table_Mode], [AltPath], [ExtName], [AltExtName], [Sequenz], [Flags], [Picture], [ListBy], [ListFor], [Settings], [Interface_Dialog]) 
VALUES ('LSSB', 'statisches Bündeldokument', NULL, NULL, 'DMR', 0, 1, 'LCTV', 181, NULL, 3, 8, 1, 14, 2, NULL, 'DV-SSTK', 'DV-SSTK', 0, 0, NULL, NULL, 'SSSB', NULL, 0);

-- update example for ACH-KZ
DELETE FROM edbSgpv WHERE Name = 'SSML-ACH-KZ'
UPDATE [edbSgpv] set Name = 'CDOK-ACH-KZ' where Name = 'SSTK-ACH-KZ'
UPDATE [edbSgpv] set Bstn = 'CDOK' where Name = 'CDOK-ACH-KZ'

-- add Calls for SSSB
-- please note that the seq might be different at custom mdb!
INSERT INTO [edbCall] ([Seq], [Caller], [Callee])
VALUES (143, 'SSTZ', 'SSSB')
INSERT INTO [edbCall] ([Seq], [Caller], [Callee])
VALUES (144, 'SSSB', 'SSSD')
INSERT INTO [edbCall] ([Seq], [Caller], [Callee])
VALUES (145, 'SSSB', 'SSSB')
INSERT INTO [edbCall] ([Seq], [Caller], [Callee])
VALUES (146, 'SSSB', 'SSLB')

-- TFS89397 - Native .NET Api - Alternative zur Registry-API
-- =========================================================

-- Create definitions in Bstn and Tdef for edbRset

DELETE FROM [edbBstn]
      WHERE name = 'RSET'

INSERT INTO [edbBstn]
   ([Name],[Bezeichnung],[Zielsystem],[Aufrufbar],[Baustein_Kategorie],[Parent],[EdbInt],[Version],
    [Interface_Version],[Header_Record],[Anzahl_Felder],[Table_Mode],[Flags],[Interface_Dialog])
VALUES
   ('RSET','Laufzeiteinstellungen','DMR',0,0,'NETW',700,1,0,1,6,1,16,0)

DELETE FROM [edbTdef]
      WHERE edbint = 700

INSERT INTO [edbTdef]
   ([EdbInt],[Feldnummer],[Feldname],[Cluster],[Position],[Länge],[Typ],[Rochadetyp],[LinkBstn],[Redundant],[Flags],[Bezeichnung])
VALUES
   (700,0,'NAME',1,0,32,1,0,0,0,0,'Name');

INSERT INTO [edbTdef]
   ([EdbInt],[Feldnummer],[Feldname],[Cluster],[Position],[Länge],[Typ],[Rochadetyp],[LinkBstn],[Redundant],[Flags],[Bezeichnung])
VALUES
   ( 700,1,'UMS',2,0,71,1,0,0,0, 0,'Bezeichnung');

INSERT INTO [edbTdef]
   ([EdbInt],[Feldnummer],[Feldname],[Cluster],[Position],[Länge],[Typ],[Rochadetyp],[LinkBstn],[Redundant],[Flags],[Bezeichnung])
VALUES
   ( 700,2,'FLAGS',1,2,4,2,0,0,0,0,'Flags');

INSERT INTO [edbTdef]
   ([EdbInt],[Feldnummer],[Feldname],[Cluster],[Position],[Länge],[Typ],[Rochadetyp],[LinkBstn],[Redundant],[Flags],[Bezeichnung])
VALUES
   ( 700,3,'AFFINITY',1,3,4,2,0,0,0,0,'Zugehörigkeit');

INSERT INTO [edbTdef]
   ([EdbInt],[Feldnummer],[Feldname],[Cluster],[Position],[Länge],[Typ],[Rochadetyp],[LinkBstn],[Redundant],[Flags],[Bezeichnung])
VALUES
   ( 700,4,'DEFAULT',3,0,255,1,0,0,0,0,'Standardwert');

INSERT INTO [edbTdef]
   ([EdbInt],[Feldnummer],[Feldname],[Cluster],[Position],[Länge],[Typ],[Rochadetyp],[LinkBstn],[Redundant],[Flags],[Bezeichnung])
VALUES
   ( 700,5,'ENTRY',1,1,32,1,0,0,0,0,'Entry');

-- Create Table edbRset

CREATE TABLE [edbRset] (
   [Name]        [varchar](32)  NOT NULL,
   [Bezeichnung] [varchar](71)  NULL,
   [Flags]       [int]          NOT NULL,
   [Affinity]    [int]          NOT NULL,
   [Default]	 [varchar](256) NULL,
   [Entry]       [varchar](256) NULL,

   CONSTRAINT [PK_edbRset] PRIMARY KEY CLUSTERED (
      [Name] ASC
   )
   WITH (
      PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, 
      ALLOW_PAGE_LOCKS = ON, FILLFACTOR = 90
   ) ON [PRIMARY]
) ON [PRIMARY]

ALTER TABLE [edbRset] 
   ADD CONSTRAINT [DF_edbRset_Affinity] DEFAULT (0) FOR [Affinity]

ALTER TABLE [edbRset] 
   ADD CONSTRAINT [DF_edbRset_Flags]    DEFAULT (0) FOR [Flags]

-- Define view for Setting usage in module Interfaces

DELETE FROM [edbBstn]
	WHERE name = 'MRST';

INSERT INTO [edbBstn]
   ([Name],[Bezeichnung],[Aufrufbar],[Baustein_Kategorie],[Parent],[EdbInt],[Version],
    [Interface_Version],[Header_Record],[Anzahl_Felder],[Table_Mode],[Sequenz],[Flags],[Interface_Dialog])
VALUES
   ('MRST','Benutzte Laufzeiteinstellungen',0,4,'MODL',315,1,0,987,2,4,11,0,0);

DELETE FROM [edbTdef]
	WHERE edbint = 315;

INSERT INTO [edbTdef] 
	([EdbInt],[Feldnummer],[Feldname],[Cluster],[Position],[Länge],[Typ],[Rochadetyp],
	[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES 
	(315, 0, 'NAME', 1, 0, 32, 1, 0, 0, 0, 'Name', 0);

INSERT INTO [edbTdef] 
	([EdbInt],[Feldnummer],[Feldname],[Cluster],[Position],[Länge],[Typ],[Rochadetyp],
	[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES 
	(315, 1, 'READONLY', 1, 1, 1, 3, 0, 0, 0, 'Readonly', 0);

-- TFS107161 - Konfig: Default-Transformationen mit Plattform und Variante
-- =======================================================================

-- Add new Columns to edbPost and update its definitions in edbBstn and edbTdef

ALTER TABLE [edbPost] ADD [Platform] VARCHAR(12) NOT NULL DEFAULT '';
ALTER TABLE [edbPost] ADD [Variant] VARCHAR(12) NOT NULL DEFAULT '';

ALTER TABLE [edbPost] ADD CONSTRAINT [PK_edbPost] PRIMARY KEY ([Bausteintyp], [Transformation], [Platform], [Variant]);

UPDATE [edbBstn] SET [Anzahl_Felder] = 5 WHERE [EdbInt] = 512;
INSERT INTO [edbTdef]
([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[AltExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (512,3,'PLAT',1,3,12,1,0,NULL, NULL,0,0,'Platform',0);
INSERT INTO [edbTdef]
([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[AltExtName],[LinkBstn],[Redundant],[Bezeichnung],[Flags]) 
VALUES (512,4,'VARI',1,4,12,1,0,NULL, NULL,0,0,'Variant',0);


-- TFS094314 - Anpassung für DclGen im Iedge
-- =========================================

-- Add new Bstn definitions in edbBstn and edbXfer

INSERT INTO [edbBstn]
   ([Name],[Bezeichnung],[Suffix],[Aufrufbar],[Baustein_Kategorie],[Parent],[EdbInt],[Path],[Version],
    [Interface_Version],[Header_Record],[Anzahl_Felder],[Table_Mode],[Flags],[Interface_Dialog])
VALUES
   ('GCDC','Generierter-DCLGEN','DDL',0,3,'OUTP',10015,'$E\$V\$S',0,0,0,0,0,0,0);
INSERT INTO [edbBstn]
   ([Name],[Bezeichnung],[Suffix],[Aufrufbar],[Baustein_Kategorie],[Parent],[EdbInt],[Path],[Version],
    [Interface_Version],[Header_Record],[Anzahl_Felder],[Table_Mode],[Flags],[Interface_Dialog])
VALUES
   ('GCDL','Generierter-DCLGEN-LAN','CPY',0,3,'OUTP',10016,'$E\$V\$S',0,0,0,0,0,0,0);
INSERT INTO [edbBstn]
   ([Name],[Bezeichnung],[Suffix],[Aufrufbar],[Baustein_Kategorie],[Parent],[EdbInt],[Path],[Version],
    [Interface_Version],[Header_Record],[Anzahl_Felder],[Table_Mode],[Flags],[Interface_Dialog])
VALUES
   ('GCDM','Generierter-DCLGEN-MVS','CPY',0,3,'OUTP',10017,'$E\$V\$S',0,0,0,0,0,0,0);
INSERT INTO [edbBstn]
   ([Name],[Bezeichnung],[Suffix],[Aufrufbar],[Baustein_Kategorie],[Parent],[EdbInt],[Path],[Version],
    [Interface_Version],[Header_Record],[Anzahl_Felder],[Table_Mode],[Flags],[Interface_Dialog])
VALUES
   ('GCDO','Generierter-DCLGEN-OS390','CPY',0,3,'OUTP',10018,'$E\$V\$S',0,0,0,0,0,0,0);
INSERT INTO [edbBstn]
   ([Name],[Bezeichnung],[Suffix],[Aufrufbar],[Baustein_Kategorie],[Parent],[EdbInt],[Path],[Version],
    [Interface_Version],[Header_Record],[Anzahl_Felder],[Table_Mode],[Flags],[Interface_Dialog])
VALUES
   ('GCDU','Generierter-DCLGEN-UNIX','CPY',0,3,'OUTP',10019,'$E\$V\$S',0,0,0,0,0,0,0);

INSERT INTO [edbXfer]
   ([SourceBstn],[DestBstn],[Präfix])
VALUES
   ('OBJT','GCDC', 'V');
INSERT INTO [edbXfer]
   ([SourceBstn],[DestBstn],[Präfix])
VALUES
   ('DDRE','GCDM', 'VM');
INSERT INTO [edbXfer]
   ([SourceBstn],[DestBstn],[Präfix])
VALUES
   ('DDRE','GCDL', 'VL');
INSERT INTO [edbXfer]
   ([SourceBstn],[DestBstn],[Präfix])
VALUES
   ('DDRE','GCDO', 'V');
INSERT INTO [edbXfer]
   ([SourceBstn],[DestBstn],[Präfix])
VALUES
   ('DDRE','GCDU', 'VU');

--- Verlängerung der Auftreagsnamen
alter table edbaure alter column auftrag text(13) -- must be length + 1!
update edbtdef set Länge = 12 where edbint=24 and feldnummer = 0