Prozeduren

DISTRIBUTION_CONFIG_MIGRATION

Eingabeparameter

(Es gibt keine Eingabeparameter)

Ausgabeparameter

(Es gibt keine Ausgabeparameter)

Beschreibung

Migration der Distributionskonfigurationen aus der KUNDEN Tabelle in die Tabelle DISTRIBUTIONCONFIGURATION

Definition

CREATE PROCEDURE DISTRIBUTION_CONFIG_MIGRATION
AS
DECLARE VARIABLE dcic integer;
DECLARE VARIABLE kuid integer; 
DECLARE VARIABLE kurzname varchar(50); 
DECLARE VARIABLE configXml varchar(1000); 
DECLARE VARIABLE configTyp smallint;
DECLARE VARIABLE outputShare varchar(1000);
DECLARE VARIABLE afid integer;
DECLARE VARIABLE ersteller char(20);
DECLARE VARIABLE name varchar(50);
DECLARE VARIABLE descr varchar(100);
DECLARE VARIABLE recordCount integer; 
BEGIN
  /*** Nur Ausfuehren, wenn die Tabelle noch leer ist! ***/
  SELECT COUNT(0) FROM DISTRIBUTIONCONFIGURATION INTO :recordCount;
  IF (recordCount < 1) THEN
  BEGIN
    /*** Ueber alle Kunden loopen und die Distributionskonfig in die DISTRIBUTIONCONFIGURATION Tabelle einfuegen ***/
    FOR SELECT KUID, KUKURZNAME, KUDISTRIBUTION, KUDISTRIBUTIONTYP, KUAUDIOSHARE, KUAFID, KUERSTELLER FROM KUNDEN 
    INTO :kuid, :kurzname, :configXml, :configTyp, :outputShare, :afid, :ersteller DO
    BEGIN
      name = 'Standard ' || kurzname;
      descr = 'Standard Distributionskonfiguration fuer ' || kurzname;
      INSERT INTO DISTRIBUTIONCONFIGURATION 
       (DSNAME, DSDESCRIPTION, DSCONFIGXML, DSTYPE, DSOUTPUTSHARE, DSAFID, DSERSTELLER) VALUES 
       (:name, :descr, :configXml, :configTyp, :outputShare, :afid, :ersteller);
       
      SELECT DSID FROM DISTRIBUTIONCONFIGURATION WHERE DSNAME = :name INTO :dcic;
      
      INSERT INTO DISTRIBUTIONCONFIG_KUNDEN (DKDSID, DKKUID) VALUES (:dcic, :kuid);
      
      UPDATE KUNDEN SET KUDISTRIBUTIONCONFIGID = :dcic WHERE KUID = :kuid;
    END
  END
END