MDB-Anpassungen für Rel. 906

Nachfolgend finden Sie eine Zusammenfassung aller MDB-Anpassungen, die für Release 9.06 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

Ablösung der temporären COBOL-Analyse-Ergebnissen in der EDB
ExpEdge-Generierung über DV_Komponente (KCLR)

Um die Durchführung der Anpassungen zu erleichtern, sind diese hier in SQL-Blöcken zusammengefasst.

Sie können den gesamten Block als Datei herunterladen, indem Sie auf den Reiter am Anfang des SQL-Blocks klicken.

Ablösung der temporären COBOL-Analyse-Ergebnissen in der EDB

delcobsrc

-- Drop view for source object in module Interfaces
UPDATE [edbBstn]
	SET [Anzahl_Felder] = 20
	WHERE [Name] = 'MHDR';
 
DELETE FROM [edbTdef]
      WHERE [EdbInt] = 301 AND [Feldnummer] = 20;

ExpEdge-Generierung über DV_Komponente (KCLR)

gen_kclr

--Lesen als DataView:
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('KSTR','Komponentenstruktur',NULL,NULL,NULL,0,4,'KMPE',630,NULL,1,0,0,3,4,NULL,NULL,NULL,0,0,NULL,NULL,NULL,NULL,0)
 
INSERT INTO [edbTdef] ([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[AltExtName],[LinkBstn],[Redundant],[ExtMap],[AltExtMap],[Bezeichnung],[Flags])
        VALUES (630,0,'NAME',1,0,32,1,7,'TL-DOK;TL-DRD;TL-SDAR;TL-BTTST;TL-BSTTL;TL-BAJOB','TL-DOK;TL-DRD;TL-SDAR;TL-BTTST;TL-BSTTL;TL-BAJOB',50,0,NULL,NULL,'Name',1)
INSERT INTO [edbTdef] ([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[AltExtName],[LinkBstn],[Redundant],[ExtMap],[AltExtMap],[Bezeichnung],[Flags])
        VALUES (630,1,'BSTN',1,1,4,1,8,NULL,NULL,0,0,NULL,NULL,'Typ',0)
INSERT INTO [edbTdef] ([EdbInt],[Feldnummer],[Feldname],[Cluster],[POSITION],[Länge],[Typ],[Rochadetyp],[ExtName],[AltExtName],[LinkBstn],[Redundant],[ExtMap],[AltExtMap],[Bezeichnung],[Flags])
        VALUES (630,2,'INFO',2,0,71,1,5,NULL,NULL,0,0,NULL,NULL,'Info',128)
 
--Reihenfolge und Anzahl Felder korrigeren bei kmpe/kclr:
UPDATE [edbTdef] SET [feldnummer] = 3 WHERE ([edbint] =600 OR [edbint] =609) AND [feldname]='struct'
UPDATE [edbTdef] SET [feldnummer] = 4 WHERE ([edbint] =600 OR [edbint] =609) AND [feldname]='shortname'
UPDATE [edbbstn] SET [anzahl_felder]=5 WHERE ([edbint] =600 OR [edbint] =609)

Unterscheidung CopyStrecken und Datenstrukturen

copy

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('GCPT','Generiertes Copybook TAA-OSSY', 'CPY', 'C$Z', 'CSV',0,3,'GCPY',182,NULL,0,0,0,0,0,NULL,NULL,NULL,0,0,NULL,NULL,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('GCPV','Generiertes Copybook sonstige Variante', 'CPY', 'C$Z', 'CSV',0,3,'GCPY',183,NULL,0,0,0,0,0,NULL,NULL,NULL,0,0,NULL,NULL,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('GCPM','Manuelles Copybook', 'CPY', 'C$Z', 'CSV',0,3,'GCPY',184,NULL,0,0,0,0,0,NULL,NULL,NULL,0,0,NULL,NULL,NULL,NULL,0);
UPDATE [edbBstn] SET [Suffix] = 'CPY' WHERE [Name] = 'COPY'

Diverse

diverse

UPDATE [edbBstn] SET [ListBy] = 'LMLD' WHERE [Name] = 'MLDG'

PublEdge: Verwaltung von WebServices (Test)

diverse

DELETE FROM [edbBstn]
      WHERE [EdbInt] = 249
 
DELETE FROM [edbBstn]
      WHERE [EdbInt] = 252
 
DELETE FROM [edbBstn]
      WHERE [EdbInt] = 253
 
DELETE FROM [edbBstn]
      WHERE [EdbInt] = 254
 
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('WEBK','Webkomponente','WSV',NULL,NULL,0,1,'ROOT',249,NULL,0,0,0,0,0,NULL,NULL,NULL,NULL,0,NULL,NULL,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('WGSR','Dienst','WSV',NULL,NULL,0,1,'WEBK',252,NULL,0,0,0,0,0,NULL,NULL,NULL,NULL,0,NULL,NULL,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('WGDT','Datentyp','WSV',NULL,NULL,0,1,'ROOT',253,NULL,0,0,0,0,0,NULL,NULL,NULL,NULL,0,NULL,NULL,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('WGTS','Einfacher Typ','WSV',NULL,NULL,0,1,'WGDT',254,NULL,0,0,0,0,0,NULL,NULL,NULL,NULL,0,NULL,NULL,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('WGTC','Komplexer Typ','WSV',NULL,NULL,0,1,'WGDT',255,NULL,0,0,0,0,0,NULL,NULL,NULL,NULL,0,NULL,NULL,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('WGTL','Listentyp','WSV',NULL,NULL,0,1,'WGDT',256,NULL,0,0,0,0,0,NULL,NULL,NULL,NULL,0,NULL,NULL,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('WGNS','Namespace','WSV',NULL,NULL,0,1,'ROOT',257,NULL,0,0,0,0,0,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL,NULL,0)
 
UPDATE [edbbstn] SET [Parent]='WEBK' WHERE [edbint]=250