MDB-Anpassungen für Rel. 903

Nachfolgend finden Sie eine Zusammenfassung aller MDB-Anpassungen, die für Release 9.03 erforderlich sind.
Zusätzlich finden Sie hier eine Liste mit Verweisen auf die betreffenden Themen im Forum.
Liste der Themen, zu denen Anpassungen erforderlich sind

Um die Durchführung der Anpassungen zu erleichtern, sind diese hier in einem SQL-Block zusammengefasst. Um die verschiedenen Themen, für die die Anpassungen notwendig wurden, abzugrenzen, sind diese als SQL-Kommentare eingefügt.
Sie können den gesamten Block als Datei herunterladen, indem Sie auf den Reiter am Anfang des SQL-Blocks klicken.
sqlmdb903
-- 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