-- Create sql in-place upgrade patch for some data types
-- inside SeedData.xml. The sql will be shown (as much as 
-- possible) in-line with associated segment of SeedData.xml.
-- The xml will be set off from the sql by commenting each
-- line with "--SeedData.xml->".
--
-- Note: PLEASE connect as OWBSYS before execute the file.
--
-- Bug #'s/Datatypes updated
--  9219601: tables are not being generated - length zero no longer accepted for sm datatypes
-- 

SET SERVEROUTPUT ON
SET LINESIZE 500
-- ##########################################################################
DECLARE -- Outer block for utility functions/variables BUGBUG: Should these be packagized (uprop_util)
-- ##########################################################################

  SCRIPTID CONSTANT VARCHAR2(40) := 'update_datatype_after_seeding'; -- For output logging
  EOL      CONSTANT VARCHAR2(01) := CHR(10); -- new line
  TRACEON  CONSTANT BOOLEAN      := TRUE; -- Provide function level trace output
  OUTINITED         BOOLEAN      := FALSE; -- Flag indicating output has been enabled


  -- Record definitions for the various views
  -- Handy sql to make record definitions (some hand editing required (in sqlworksheet anyway)

  
  
-- **************************************************************************
-- **************************************************************************
--                      Useful functions/procedures
-- **************************************************************************
-- **************************************************************************

-- ==========================================================================
-- put message to output (uses DBMS_OUTPUT)
  PROCEDURE put(msg VARCHAR2) IS
-- ==========================================================================
  BEGIN
    IF NOT OUTINITED THEN
      OUTINITED := TRUE;
      DBMS_OUTPUT.ENABLE(200000);
      put('DBMS_OUTPUT Enabled.');
    END IF;
    
    IF (LENGTH(msg) + LENGTH(SCRIPTID) + 2) > 255 THEN
      -- 10.1 database can't handle messages with length > 255
      --DBMS_OUTPUT.put_line('Message length > 255');
      --DBMS_OUTPUT.put_line(SUBSTR(msg, 0, 255));
      -- Break the string up into lines or 255-byte chunks
      DECLARE
        l_msg_line VARCHAR2(255);
        l_eol_index NUMBER;
        l_curr_index NUMBER;
        l_msg_len NUMBER := LENGTH(msg);
        l_loop_index NUMBER := 0;
      BEGIN
        DBMS_OUTPUT.PUT_LINE(SCRIPTID || ':');
        l_eol_index := 1;
        l_curr_index := 1;
        l_loop_index := 0;
        WHILE (l_curr_index < l_msg_len AND l_loop_index < 10) LOOP
          l_eol_index := INSTR(msg, EOL, l_curr_index);
          --DBMS_OUTPUT.put_line('l_eol_index = ' || TO_CHAR(l_eol_index));
          IF (l_eol_index <= 0) OR (l_eol_index - l_curr_index) > 255 THEN
            l_msg_line := SUBSTR(msg, l_curr_index, 255);
            l_curr_index := l_curr_index + 255;
          ELSE 
            l_msg_line := SUBSTR(msg, l_curr_index, l_eol_index - l_curr_index);
            l_curr_index := l_eol_index + 1;
          END IF;
          DBMS_OUTPUT.PUT_LINE(l_msg_line);        
          l_loop_index := l_loop_index + 1;
        END LOOP;
      EXCEPTION WHEN OTHERS THEN
        DBMS_OUTPUT.PUT_LINE(SQLERRM);
      END;
    ELSE 
      DBMS_OUTPUT.put_line(SCRIPTID || ': ' || msg);
    END IF;  

  END;

-- ==========================================================================
-- put message to output controlled by TRACEON variable (uses put)
  PROCEDURE putTrace(msg VARCHAR2) IS
-- ==========================================================================
  BEGIN
    IF TRACEON THEN
      put(msg);
    END IF;
  END;  

-- ==========================================================================
-- return the id (elementid) for the platform defined by the input parameters
  FUNCTION platformIdOf(
     p_workspaceId IN NUMBER
    ,p_platformName IN VARCHAR2
  ) RETURN NUMBER
-- ==========================================================================
  IS
    l_workspaceId NUMBER := p_workspaceId;
    l_platformName VARCHAR2(255) := p_platformName;
    l_platformId NUMBER;
  BEGIN

      putTrace('platformIdOf(' || l_workspaceId || ', ' || l_platformName || ')');
      SELECT ELEMENTID
        INTO l_platformId
        FROM CMPPlatform_r
        WHERE NAME = l_platformName and WORKSPACEID = l_workspaceId;
      putTrace('  RETURN ' || l_platformId || EOL);

    RETURN l_platformId;
  END platformIdOf;  

-- ==========================================================================
-- return the id (elementid) for the type set defined by the input parameters
  FUNCTION typesetIdOf(
      p_workspaceId IN NUMBER
     ,p_ownerId   IN NUMBER
     ,p_typesetName IN VARCHAR2
  ) RETURN NUMBER
-- ==========================================================================
  IS
    l_workspaceId NUMBER := p_workspaceId;
    l_ownerId  NUMBER := p_ownerId;
    l_typesetName VARCHAR2(255) := p_typesetName;
    l_typesetId   NUMBER;
  BEGIN

      putTrace('typesetIdOf(' || l_workspaceId || ', ' || l_ownerId || ', ' || l_typesetName || ')');
      SELECT ELEMENTID
        INTO l_typesetId
        FROM CMPPlatformTypeset_r
        WHERE OWNINGPLATFORM=l_ownerId
          AND NAME=l_typesetName and WORKSPACEID = l_workspaceId;
      putTrace('  RETURN ' || l_typesetId || EOL);

    RETURN l_typesetId;
  END typesetIdOf;
  
-- ==========================================================================
-- return the id (elementid) for the type defined by the input parameters
  FUNCTION typeIdOf(
      p_workspaceId IN NUMBER
     ,p_ownerId   IN NUMBER
     ,p_typeName IN VARCHAR2
  ) RETURN NUMBER
-- ==========================================================================
  IS
    l_workspaceId NUMBER := p_workspaceId;
    l_ownerId  NUMBER := p_ownerId;
    l_typeName VARCHAR2(255) := p_typeName;
    l_typeId   NUMBER;
  BEGIN

      putTrace('typeIdOf(' || l_workspaceId || ', ' || l_ownerId || ', ' || l_typeName || ')');
      SELECT ELEMENTID
        INTO l_typeId
        FROM CMPDataType_r
        WHERE OWNINGPLATFORMTYPESET=l_ownerId
          AND NAME=l_typeName and WORKSPACEID = l_workspaceId;
      putTrace('  RETURN ' || l_typeId || EOL);

    RETURN l_typeId;
  END typeIdOf;  


-- ##########################################################################
-- ##########################################################################
BEGIN --    Outer block - utility functions/variables now defined
-- ##########################################################################
-- ##########################################################################  

  -- =======================================================
  DECLARE -- Inner block for utility function/variable usage
          -- aka 'user' declarations
  -- =======================================================	
	l_platformId NUMBER;
	l_typesetId NUMBER;
	l_typeId NUMBER;
  -- =======================================================
  BEGIN -- start handling data types defined in SeedData.xml
  -- =======================================================	
    FOR x in (select elementId from CMPWorkspace_r) LOOP
      put('--> Current Workspace id: ' || x.elementId || EOL);
--SeedData.xml->        <Platform owb:InternalName="Platform_Generic">
--SeedData.xml->            <owb:instantiate name="'GENERIC'" owb:method="createCMPPlatform"
--SeedData.xml->                owb:object="proxyFactory" persistent="true">
--SeedData.xml->                <workspace owb:object="@super(Workspace)"/>
--SeedData.xml->            </owb:instantiate>	
      l_platformId := platformIdOf(x.elementId, 'GENERIC');
--SeedData.xml->            <PlatformTypeSet owb:InternalName="Generic_PlatformTypeSet_Object">
--SeedData.xml->                <owb:instantiate name="'DEFAULT'"
--SeedData.xml->                    owb:method="createCMPPlatformTypeSet"
--SeedData.xml->                    owb:object="proxyFactory" persistent="true">
--SeedData.xml->                    <platform owb:object="@super(Platform)"/>
--SeedData.xml->                </owb:instantiate>	  
      l_typesetId := typesetIdOf(x.elementId, l_platformId, 'DEFAULT');
--SeedData.xml->                <Datatype owb:InternalName="Datatype_GENERIC_FLOAT">
--SeedData.xml->                    <owb:instantiate name="'FLOAT'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'FLOAT'" LogicalName="'FLOAT'"
--SeedData.xml->                       P1="precision" P1Default="'126'" P1Max="'126'" P1Min="'1'"
--SeedData.xml->                        P1Type="range" P2="" P2Default="" P2Max="" P2Min="" P2Type=""
--SeedData.xml->                        Syntax="FLOAT[(%precision)]"
--SeedData.xml->                        UOID="'2F97805923F1B4A2E040578CA30A6D38'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'FLOAT');
	  put('Update data type FLOAT inside set DEFAULT of platform GENERIC - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set P1='precision', P1Default='126', P1Max='126', P1Min='1', 
	    P1Type='range', Syntax='FLOAT[(%precision)]' 
	    where workspaceId=x.elementId and elementId=l_typeId;
--SeedData.xml->                <Datatype owb:InternalName="Datatype_GENERIC_NCHAR">
--SeedData.xml->                    <owb:instantiate name="'NCHAR'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'NCHAR'" LengthAllowed="true"
--SeedData.xml->                        LogicalName="'NCHAR'" P1="size" P1Default="'1'"
--SeedData.xml->                        P1Max="'2000'" P1Min="'1'" P1Type="range" P2="" P2Default=""
--SeedData.xml->                        P2Max="" P2Min="" P2Type="" Syntax="NCHAR[(%size)]"
--SeedData.xml->                        UOID="'2F9780592401B4A2E040578CA30A6D38'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'NCHAR');
	  put('Update data type NCHAR inside set DEFAULT of platform GENERIC - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set LengthAllowed='1', P1='size', P1Default='1', P1Max='2000', 
	    P1Min='1', P1Type='range', Syntax='NCHAR[(%size)]' 
	    where workspaceId=x.elementId and elementId=l_typeId;
--SeedData.xml->                <Datatype owb:InternalName="Datatype_GENERIC_NVARCHAR">
--SeedData.xml->                    <owb:instantiate name="'NVARCHAR'"
--SeedData.xml->                        owb:method="createCMPDatatype" owb:object="proxyFactory"
--SeedData.xml->                        persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'NVARCHAR'" LengthAllowed="true"
--SeedData.xml->                        LogicalName="'NVARCHAR'" P1="size" P1Default="'1'"
--SeedData.xml->                        P1Max="'4000'" P1Min="'1'" P1Type="range" P2="" P2Default=""
--SeedData.xml->                        P2Max="" P2Min="" P2Type="" Syntax="NVARCHAR(%size)"
--SeedData.xml->                        UOID="'2F9780592402B4A2E040578CA30A6D38'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'NVARCHAR');
	  put('Update data type NVARCHAR inside set DEFAULT of platform GENERIC - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set LengthAllowed='1', P1='size', P1Default='1', P1Max='4000', 
	    P1Min='1', P1Type='range', Syntax='NVARCHAR(%size)' 
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->        <Platform owb:InternalName="ORACLE_PLATFORM">
--SeedData.xml->            <owb:instantiate name="'ORACLE'" owb:method="createCMPPlatform"
--SeedData.xml->                owb:object="proxyFactory" persistent="true">
--SeedData.xml->                <workspace owb:object="@super(Workspace)"/>
--SeedData.xml->            </owb:instantiate>	  
      l_platformId := platformIdOf(x.elementId, 'ORACLE');	  
--SeedData.xml->            <PlatformTypeSet owb:InternalName="Oracle_PlatformTypeSet_Object">
--SeedData.xml->                <owb:instantiate name="'INTERNAL'"
--SeedData.xml->                    owb:method="createCMPPlatformTypeSet"
--SeedData.xml->                    owb:object="proxyFactory" persistent="true">
--SeedData.xml->                    <platform owb:object="@super(Platform)"/>
--SeedData.xml->                </owb:instantiate>
      l_typesetId := typesetIdOf(x.elementId, l_platformId, 'INTERNAL');	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_OWB_INTERNAL_FLOAT">
--SeedData.xml->                    <owb:instantiate name="'FLOAT'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'FLOAT'"
--SeedData.xml->                        DefaultFractionalSecPrecision="0" DefaultLength="0"
--SeedData.xml->                        DefaultPrecision="126" DefaultScale="0"
--SeedData.xml->                        FractionalSecPrecisionAllowed="false"
--SeedData.xml->                        LengthAllowed="false" LogicalName="'FLOAT'"
--SeedData.xml->                        MaximumFractionalSecPrecision="0" MaximumLength="0"
--SeedData.xml->                        MaximumPrecision="126" MaximumScale="0"
--SeedData.xml->                        MinimumFractionalSecPrecision="0" MinimumLength="0"
--SeedData.xml->                        MinimumPrecision="1" MinimumScale="0" P1="" P1Default=""
--SeedData.xml->                        P1Max="" P1Min="" P1Type="" P2="" P2Default="" P2Max=""
--SeedData.xml->                        P2Min="" P2Type="" PrecisionAllowed="true"
--SeedData.xml->                        ScaleAllowed="false" Syntax=""
--SeedData.xml->                        UOID="'651E88E641C44B6E9042221154ED0643'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'FLOAT');
	  put('Update data type FLOAT inside set INTERNAL of platform ORACLE - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set DefaultFractionalSecPrecision=0, DefaultLength=0, DefaultPrecision=126, DefaultScale=0, 
	    FractionalSecPrecisionAllowed='0', LengthAllowed='0', MaximumFractionalSecPrecision=0, MaximumLength=0,
	    MaximumPrecision=126, MaximumScale=0, MinimumFractionalSecPrecision=0, MinimumLength=0,
	    MinimumPrecision=1, MinimumScale=0, PrecisionAllowed='1', ScaleAllowed='0'
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_OWB_INTERNAL_RAW">
--SeedData.xml->                    <owb:instantiate name="'RAW'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'RAW'"
--SeedData.xml->                        DefaultFractionalSecPrecision="0" DefaultLength="1"
--SeedData.xml->                        DefaultPrecision="0" DefaultScale="0"
--SeedData.xml->                        FractionalSecPrecisionAllowed="false"
--SeedData.xml->                        LengthAllowed="true" LogicalName="'RAW'"
--SeedData.xml->                        MaximumFractionalSecPrecision="0" MaximumLength="2000"
--SeedData.xml->                        MaximumPrecision="0" MaximumScale="0"
--SeedData.xml->                        MinimumFractionalSecPrecision="0" MinimumLength="1"
--SeedData.xml->                        MinimumPrecision="0" MinimumScale="0" P1="" P1Default=""
--SeedData.xml->                        P1Max="" P1Min="" P1Type="" P2="" P2Default="" P2Max=""
--SeedData.xml->                        P2Min="" P2Type="" PrecisionAllowed="false"
--SeedData.xml->                        ScaleAllowed="false" Syntax=""
--SeedData.xml->                        UOID="'29C2F456CA32439E959FD515A8390AFC'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'RAW');
	  put('Update data type RAW inside set INTERNAL of platform ORACLE - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set DefaultFractionalSecPrecision= 0 , DefaultLength= 1 , DefaultPrecision= 0 , DefaultScale= 0 , 
	    FractionalSecPrecisionAllowed='0', LengthAllowed='1', MaximumFractionalSecPrecision= 0 , MaximumLength= 2000 ,
	    MaximumPrecision= 0 , MaximumScale= 0 , MinimumFractionalSecPrecision= 0 , MinimumLength= 1 ,
	    MinimumPrecision= 0 , MinimumScale= 0 , PrecisionAllowed='0', ScaleAllowed='0' 
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_OWB_INTERNAL_NCHAR">
--SeedData.xml->                    <owb:instantiate name="'NCHAR'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'NCHAR'"
--SeedData.xml->                        DefaultFractionalSecPrecision="0" DefaultLength="1"
--SeedData.xml->                        DefaultPrecision="0" DefaultScale="0"
--SeedData.xml->                        FractionalSecPrecisionAllowed="false"
--SeedData.xml->                        LengthAllowed="true" LogicalName="'NCHAR'"
--SeedData.xml->                        MaximumFractionalSecPrecision="0" MaximumLength="2000"
--SeedData.xml->                        MaximumPrecision="0" MaximumScale="0"
--SeedData.xml->                        MinimumFractionalSecPrecision="0" MinimumLength="1"
--SeedData.xml->                        MinimumPrecision="0" MinimumScale="0" P1="" P1Default=""
--SeedData.xml->                        P1Max="" P1Min="" P1Type="" P2="" P2Default="" P2Max=""
--SeedData.xml->                        P2Min="" P2Type="" PrecisionAllowed="false"
--SeedData.xml->                        ScaleAllowed="false" Syntax=""
--SeedData.xml->                        UOID="'8FBB720E867A49EBA3D91FFBCA7FCA1B'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'NCHAR');
	  put('Update data type NCHAR inside set INTERNAL of platform ORACLE - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set DefaultFractionalSecPrecision= 0 , DefaultLength= 1 , DefaultPrecision= 0 , DefaultScale= 0 , 
	    FractionalSecPrecisionAllowed='0', LengthAllowed='1', MaximumFractionalSecPrecision= 0 , MaximumLength= 2000 ,
	    MaximumPrecision= 0 , MaximumScale= 0 , MinimumFractionalSecPrecision= 0 , MinimumLength= 1 ,
	    MinimumPrecision= 0 , MinimumScale= 0 , PrecisionAllowed='0', ScaleAllowed='0'
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_OWB_INTERNAL_NVARCHAR2">
--SeedData.xml->                    <owb:instantiate name="'NVARCHAR2'"
--SeedData.xml->                        owb:method="createCMPDatatype" owb:object="proxyFactory"
--SeedData.xml->                        persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'NVARCHAR2'"
--SeedData.xml->                        DefaultFractionalSecPrecision="0" DefaultLength="1"
--SeedData.xml->                        DefaultPrecision="0" DefaultScale="0"
--SeedData.xml->                        FractionalSecPrecisionAllowed="false"
--SeedData.xml->                        LengthAllowed="true" LogicalName="'NVARCHAR2'"
--SeedData.xml->                        MaximumFractionalSecPrecision="0" MaximumLength="4000"
--SeedData.xml->                        MaximumPrecision="0" MaximumScale="0"
--SeedData.xml->                        MinimumFractionalSecPrecision="0" MinimumLength="1"
--SeedData.xml->                        MinimumPrecision="0" MinimumScale="0" P1="" P1Default=""
--SeedData.xml->                        P1Max="" P1Min="" P1Type="" P2="" P2Default="" P2Max=""
--SeedData.xml->                        P2Min="" P2Type="" PrecisionAllowed="false"
--SeedData.xml->                        ScaleAllowed="false" Syntax=""
--SeedData.xml->                        UOID="'CD6A491E65544165A99E833CEEDAE1C6'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'NVARCHAR2');
	  put('Update data type NVARCHAR2 inside set INTERNAL of platform ORACLE - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set DefaultFractionalSecPrecision=0, DefaultLength=1, DefaultPrecision=0, DefaultScale=0, 
	    FractionalSecPrecisionAllowed='0', LengthAllowed='1', MaximumFractionalSecPrecision=0, MaximumLength=4000,
	    MaximumPrecision=0, MaximumScale=0, MinimumFractionalSecPrecision=0, MinimumLength=1,
	    MinimumPrecision=0, MinimumScale=0, PrecisionAllowed='0', ScaleAllowed='0'
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->            <PlatformTypeSet owb:InternalName="Oracle_PlatformType_PLSQL">
--SeedData.xml->                <owb:instantiate name="'PLSQL'"
--SeedData.xml->                    owb:method="createCMPPlatformTypeSet"
--SeedData.xml->                    owb:object="proxyFactory" persistent="true">
--SeedData.xml->                    <platform owb:object="@super(Platform)"/>
--SeedData.xml->                </owb:instantiate>
      l_typesetId := typesetIdOf(x.elementId, l_platformId, 'PLSQL');	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_PL/SQL_FLOAT">
--SeedData.xml->                    <owb:instantiate name="'FLOAT'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'FLOAT'"
--SeedData.xml->                        DefaultFractionalSecPrecision="0" DefaultLength="0"
--SeedData.xml->                        DefaultPrecision="126" DefaultScale="0"
--SeedData.xml->                        FractionalSecPrecisionAllowed="false"
--SeedData.xml->                        LengthAllowed="false" LogicalName="'FLOAT'"
--SeedData.xml->                        MaximumFractionalSecPrecision="0" MaximumLength="0"
--SeedData.xml->                        MaximumPrecision="126" MaximumScale="0"
--SeedData.xml->                        MinimumFractionalSecPrecision="0" MinimumLength="0"
--SeedData.xml->                        MinimumPrecision="1" MinimumScale="0" P1="" P1Default=""
--SeedData.xml->                        P1Max="" P1Min="" P1Type="" P2="" P2Default="" P2Max=""
--SeedData.xml->                        P2Min="" P2Type="" PrecisionAllowed="true"
--SeedData.xml->                        ScaleAllowed="false" Syntax=""
--SeedData.xml->                        UOID="'9E011F35D16211D48D7100B0D02A59E8'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="Language_PL/SQL"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'FLOAT');
	  put('Update data type FLOAT inside set PLSQL of platform ORACLE - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set DefaultFractionalSecPrecision=0, DefaultLength=0, DefaultPrecision=126, DefaultScale=0, 
	    FractionalSecPrecisionAllowed='0', LengthAllowed='0', MaximumFractionalSecPrecision=0, MaximumLength=0,
	    MaximumPrecision=126, MaximumScale=0, MinimumFractionalSecPrecision=0, MinimumLength=0,
	    MinimumPrecision=1, MinimumScale=0, PrecisionAllowed='1', ScaleAllowed='0'
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_PL/SQL_RAW">
--SeedData.xml->                    <owb:instantiate name="'RAW'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'RAW'"
--SeedData.xml->                        DefaultFractionalSecPrecision="0" DefaultLength="1"
--SeedData.xml->                        DefaultPrecision="0" DefaultScale="0"
--SeedData.xml->                        FractionalSecPrecisionAllowed="false"
--SeedData.xml->                        LengthAllowed="true" LogicalName="'RAW'"
--SeedData.xml->                        MaximumFractionalSecPrecision="0" MaximumLength="32767"
--SeedData.xml->                        MaximumPrecision="0" MaximumScale="0"
--SeedData.xml->                        MinimumFractionalSecPrecision="0" MinimumLength="1"
--SeedData.xml->                        MinimumPrecision="0" MinimumScale="0" P1="" P1Default=""
--SeedData.xml->                        P1Max="" P1Min="" P1Type="" P2="" P2Default="" P2Max=""
--SeedData.xml->                        P2Min="" P2Type="" PrecisionAllowed="false"
--SeedData.xml->                        ScaleAllowed="false" Syntax=""
--SeedData.xml->                        UOID="'953DD1CE93B24395A983E4F4A1994D60'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="Language_PL/SQL"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'RAW');
	  put('Update data type RAW inside set PLSQL of platform ORACLE - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set DefaultFractionalSecPrecision=0, DefaultLength=1, DefaultPrecision=0, DefaultScale=0, 
	    FractionalSecPrecisionAllowed='0', LengthAllowed='1', MaximumFractionalSecPrecision=0, MaximumLength=32767,
	    MaximumPrecision=0, MaximumScale=0, MinimumFractionalSecPrecision=0, MinimumLength=1,
	    MinimumPrecision=0, MinimumScale=0, PrecisionAllowed='0', ScaleAllowed='0'
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_PL/SQL_NCHAR">
--SeedData.xml->                    <owb:instantiate name="'NCHAR'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'NCHAR'"
--SeedData.xml->                        DefaultFractionalSecPrecision="0" DefaultLength="1"
--SeedData.xml->                        DefaultPrecision="0" DefaultScale="0"
--SeedData.xml->                        FractionalSecPrecisionAllowed="false"
--SeedData.xml->                        LengthAllowed="true" LogicalName="'NCHAR'"
--SeedData.xml->                        MaximumFractionalSecPrecision="0" MaximumLength="32767"
--SeedData.xml->                        MaximumPrecision="0" MaximumScale="0"
--SeedData.xml->                        MinimumFractionalSecPrecision="0" MinimumLength="1"
--SeedData.xml->                        MinimumPrecision="0" MinimumScale="0" P1="" P1Default=""
--SeedData.xml->                        P1Max="" P1Min="" P1Type="" P2="" P2Default="" P2Max=""
--SeedData.xml->                        P2Min="" P2Type="" PrecisionAllowed="false"
--SeedData.xml->                        ScaleAllowed="false" Syntax=""
--SeedData.xml->                        UOID="'CA23CE7AC57F4594AD62E5455F7A87F3'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="Language_PL/SQL"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'NCHAR');
	  put('Update data type NCHAR inside set PLSQL of platform ORACLE - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set DefaultFractionalSecPrecision=0, DefaultLength=1, DefaultPrecision=0, DefaultScale=0, 
	    FractionalSecPrecisionAllowed='0', LengthAllowed='1', MaximumFractionalSecPrecision=0, MaximumLength=32767,
	    MaximumPrecision=0, MaximumScale=0, MinimumFractionalSecPrecision=0, MinimumLength=1,
	    MinimumPrecision=0, MinimumScale=0, PrecisionAllowed='0', ScaleAllowed='0'
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_PL/SQL_NVARCHAR2">
--SeedData.xml->                    <owb:instantiate name="'NVARCHAR2'"
--SeedData.xml->                        owb:method="createCMPDatatype" owb:object="proxyFactory"
--SeedData.xml->                        persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'NVARCHAR2'"
--SeedData.xml->                        DefaultFractionalSecPrecision="0" DefaultLength="1"
--SeedData.xml->                        DefaultPrecision="0" DefaultScale="0"
--SeedData.xml->                        FractionalSecPrecisionAllowed="false"
--SeedData.xml->                        LengthAllowed="true" LogicalName="'NVARCHAR2'"
--SeedData.xml->                        MaximumFractionalSecPrecision="0" MaximumLength="32767"
--SeedData.xml->                        MaximumPrecision="0" MaximumScale="0"
--SeedData.xml->                        MinimumFractionalSecPrecision="0" MinimumLength="1"
--SeedData.xml->                        MinimumPrecision="0" MinimumScale="0" P1="" P1Default=""
--SeedData.xml->                        P1Max="" P1Min="" P1Type="" P2="" P2Default="" P2Max=""
--SeedData.xml->                        P2Min="" P2Type="" PrecisionAllowed="false"
--SeedData.xml->                        ScaleAllowed="false" Syntax=""
--SeedData.xml->                        UOID="'108D7B9DC568452B8BA6BB9B7A7C74D5'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="Language_PL/SQL"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'NVARCHAR2');
	  put('Update data type NVARCHAR2 inside set PLSQL of platform ORACLE - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set DefaultFractionalSecPrecision=0, DefaultLength=1, DefaultPrecision=0, DefaultScale=0, 
	    FractionalSecPrecisionAllowed='0', LengthAllowed='1', MaximumFractionalSecPrecision=0, MaximumLength=32767,
	    MaximumPrecision=0, MaximumScale=0, MinimumFractionalSecPrecision=0, MinimumLength=1,
	    MinimumPrecision=0, MinimumScale=0, PrecisionAllowed='0', ScaleAllowed='0'
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->            <PlatformTypeSet owb:InternalName="Oracle_PlatformType_8i_9i">
--SeedData.xml->                <owb:instantiate name="'DEFAULT'"
--SeedData.xml->                    owb:method="createCMPPlatformTypeSet"
--SeedData.xml->                    owb:object="proxyFactory" persistent="true">
--SeedData.xml->                    <platform owb:object="@super(Platform)"/>
--SeedData.xml->                </owb:instantiate>	  
      l_typesetId := typesetIdOf(x.elementId, l_platformId, 'DEFAULT');	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_8i_9i_FLOAT">
--SeedData.xml->                    <owb:instantiate name="'FLOAT'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'FLOAT'"
--SeedData.xml->                        DefaultFractionalSecPrecision="0" DefaultLength="0"
--SeedData.xml->                        DefaultPrecision="126" DefaultScale="0"
--SeedData.xml->                        FractionalSecPrecisionAllowed="false"
--SeedData.xml->                        LengthAllowed="false" LogicalName="'FLOAT'"
--SeedData.xml->                        MaximumFractionalSecPrecision="0" MaximumLength="0"
--SeedData.xml->                        MaximumPrecision="126" MaximumScale="0"
--SeedData.xml->                        MinimumFractionalSecPrecision="0" MinimumLength="0"
--SeedData.xml->                        MinimumPrecision="1" MinimumScale="0" P1="precision"
--SeedData.xml->                        P1Default="'126'" P1Max="'126'" P1Min="'1'" P1Type="range"
--SeedData.xml->                        P2="" P2Default="" P2Max="" P2Min="" P2Type=""
--SeedData.xml->                        PrecisionAllowed="true" ScaleAllowed="false"
--SeedData.xml->                        Syntax="FLOAT[(%precision)]"
--SeedData.xml->                        UOID="'9E011F40D16211D48D7100B0D02A59E8'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'FLOAT');
	  put('Update data type FLOAT inside set DEFAULT of platform ORACLE - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set DefaultFractionalSecPrecision=0, DefaultLength=0, DefaultPrecision=126, DefaultScale=0, 
	    FractionalSecPrecisionAllowed='0', LengthAllowed='0', MaximumFractionalSecPrecision=0, MaximumLength=0,
	    MaximumPrecision=126, MaximumScale=0, MinimumFractionalSecPrecision=0, MinimumLength=0,
	    MinimumPrecision=1, MinimumScale=0, P1='precision', P1Default='126',
	    P1Max='126', P1Min='1', P1Type='range', PrecisionAllowed='1', 
	    ScaleAllowed='0', Syntax='FLOAT[(%precision)]' 
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_8i_9i_RAW">
--SeedData.xml->                    <owb:instantiate name="'RAW'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'RAW'"
--SeedData.xml->                        DefaultFractionalSecPrecision="0" DefaultLength="1"
--SeedData.xml->                        DefaultPrecision="0" DefaultScale="0"
--SeedData.xml->                        FractionalSecPrecisionAllowed="false"
--SeedData.xml->                        LengthAllowed="true" LogicalName="'RAW'"
--SeedData.xml->                        MaximumFractionalSecPrecision="0" MaximumLength="2000"
--SeedData.xml->                        MaximumPrecision="0" MaximumScale="0"
--SeedData.xml->                        MinimumFractionalSecPrecision="0" MinimumLength="1"
--SeedData.xml->                        MinimumPrecision="0" MinimumScale="0" P1="size"
--SeedData.xml->                        P1Default="'1'" P1Max="'2000'" P1Min="'1'" P1Type="range"
--SeedData.xml->                        P2="" P2Default="" P2Max="" P2Min="" P2Type=""
--SeedData.xml->                        PrecisionAllowed="false" ScaleAllowed="false"
--SeedData.xml->                        Syntax="RAW(%size)"
--SeedData.xml->                        UOID="'00C6D6490B794610B64AB301ADF26228'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'RAW');
	  put('Update data type RAW inside set DEFAULT of platform ORACLE - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set DefaultFractionalSecPrecision=0, DefaultLength=1, DefaultPrecision=0, DefaultScale=0, 
	    FractionalSecPrecisionAllowed='0', LengthAllowed='1', MaximumFractionalSecPrecision=0, MaximumLength=2000,
	    MaximumPrecision=0, MaximumScale=0, MinimumFractionalSecPrecision=0, MinimumLength=1,
	    MinimumPrecision=0, MinimumScale=0, P1='size', P1Default='1',
	    P1Max='2000', P1Min='1', P1Type='range', PrecisionAllowed='0', 
	    ScaleAllowed='0', Syntax='RAW(%size)' 
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_8i_9i_NCHAR">
--SeedData.xml->                    <owb:instantiate name="'NCHAR'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'NCHAR'"
--SeedData.xml->                        DefaultFractionalSecPrecision="0" DefaultLength="1"
--SeedData.xml->                        DefaultPrecision="0" DefaultScale="0"
--SeedData.xml->                        FractionalSecPrecisionAllowed="false"
--SeedData.xml->                        LengthAllowed="true" LogicalName="'NCHAR'"
--SeedData.xml->                        MaximumFractionalSecPrecision="0" MaximumLength="2000"
--SeedData.xml->                        MaximumPrecision="0" MaximumScale="0"
--SeedData.xml->                        MinimumFractionalSecPrecision="0" MinimumLength="1"
--SeedData.xml->                        MinimumPrecision="0" MinimumScale="0" P1="size"
--SeedData.xml->                        P1Default="'1'" P1Max="'2000'" P1Min="'1'" P1Type="range"
--SeedData.xml->                        P2="" P2Default="" P2Max="" P2Min="" P2Type=""
--SeedData.xml->                        PrecisionAllowed="false" ScaleAllowed="false"
--SeedData.xml->                        Syntax="NCHAR[(%size)]"
--SeedData.xml->                        UOID="'C03E0ADCAF84468CACF4B3A1C4E52793'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'NCHAR');
	  put('Update data type NCHAR inside set DEFAULT of platform ORACLE - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set DefaultFractionalSecPrecision=0, DefaultLength=1, DefaultPrecision=0, DefaultScale=0, 
	    FractionalSecPrecisionAllowed='0', LengthAllowed='1', MaximumFractionalSecPrecision=0, MaximumLength=2000,
	    MaximumPrecision=0, MaximumScale=0, MinimumFractionalSecPrecision=0, MinimumLength=1,
	    MinimumPrecision=0, MinimumScale=0, P1='size', P1Default='1',
	    P1Max='2000', P1Min='1', P1Type='range', PrecisionAllowed='0', 
	    ScaleAllowed='0', Syntax='NCHAR[(%size)]' 
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_8i_9i_NVARCHAR2">
--SeedData.xml->                    <owb:instantiate name="'NVARCHAR2'"
--SeedData.xml->                        owb:method="createCMPDatatype" owb:object="proxyFactory"
--SeedData.xml->                        persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'NVARCHAR2'"
--SeedData.xml->                        DefaultFractionalSecPrecision="0" DefaultLength="1"
--SeedData.xml->                        DefaultPrecision="0" DefaultScale="0"
--SeedData.xml->                        FractionalSecPrecisionAllowed="false"
--SeedData.xml->                        LengthAllowed="true" LogicalName="'NVARCHAR2'"
--SeedData.xml->                        MaximumFractionalSecPrecision="0" MaximumLength="4000"
--SeedData.xml->                        MaximumPrecision="0" MaximumScale="0"
--SeedData.xml->                        MinimumFractionalSecPrecision="0" MinimumLength="1"
--SeedData.xml->                        MinimumPrecision="0" MinimumScale="0" P1="size"
--SeedData.xml->                        P1Default="'1'" P1Max="'4000'" P1Min="'1'" P1Type="range"
--SeedData.xml->                        P2="" P2Default="" P2Max="" P2Min="" P2Type=""
--SeedData.xml->                        PrecisionAllowed="false" ScaleAllowed="false"
--SeedData.xml->                        Syntax="NVARCHAR2(%size)"
--SeedData.xml->                        UOID="'5F8367AE59AC4791B5DDBB7E0AC4FF53'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'NVARCHAR2');
	  put('Update data type NVARCHAR2 inside set DEFAULT of platform ORACLE - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set DefaultFractionalSecPrecision=0, DefaultLength=1, DefaultPrecision=0, DefaultScale=0, 
	    FractionalSecPrecisionAllowed='0', LengthAllowed='1', MaximumFractionalSecPrecision=0, MaximumLength=4000,
	    MaximumPrecision=0, MaximumScale=0, MinimumFractionalSecPrecision=0, MinimumLength=1,
	    MinimumPrecision=0, MinimumScale=0, P1='size', P1Default='1',
	    P1Max='4000', P1Min='1', P1Type='range', PrecisionAllowed='0', 
	    ScaleAllowed='0', Syntax='NVARCHAR2(%size)' 
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->        <Platform owb:InternalName="DB2UDB_PLATFORM">
--SeedData.xml->            <owb:instantiate name="'DB2UDB'" owb:method="createCMPPlatform"
--SeedData.xml->                owb:object="proxyFactory" persistent="true">
--SeedData.xml->                <workspace owb:object="@super(Workspace)"/>
--SeedData.xml->            </owb:instantiate>	  
      l_platformId := platformIdOf(x.elementId, 'DB2UDB');	  
--SeedData.xml->            <PlatformTypeSet
--SeedData.xml->                owb:InternalName="IBM_DB2_UDB_PlatformTypeSet_Object">
--SeedData.xml->                <owb:instantiate name="'DEFAULT'"
--SeedData.xml->                    owb:method="createCMPPlatformTypeSet"
--SeedData.xml->                    owb:object="proxyFactory" persistent="true">
--SeedData.xml->                    <platform owb:object="@super(Platform)"/>
--SeedData.xml->                </owb:instantiate>	  
      l_typesetId := typesetIdOf(x.elementId, l_platformId, 'DEFAULT');	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_DB2UDB_FLOAT">
--SeedData.xml->                    <owb:instantiate name="'FLOAT'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'FLOAT'" LogicalName="'FLOAT'"
--SeedData.xml->                        P1="precision" P1Default="'1'" P1Max="'53'" P1Min="'1'"
--SeedData.xml->                        P1Type="range" P2="" P2Default="" P2Max="" P2Min="" P2Type=""
--SeedData.xml->                        Syntax="FLOAT[(%precision)]"
--SeedData.xml->                        UOID="'2F5ADD1D0D3AF083E040578CA30A068A'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'FLOAT');
	  put('Update data type FLOAT inside set DEFAULT of platform DB2UDB - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set P1='precision', P1Default='1', P1Max='53', P1Min='1', 
	    P1Type='range', Syntax='FLOAT[(%precision)]' 
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->        <Platform owb:InternalName="SQLSERVER_PLATFORM">
--SeedData.xml->            <owb:instantiate name="'SQLSERVER'" owb:method="createCMPPlatform"
--SeedData.xml->                owb:object="proxyFactory" persistent="true">
--SeedData.xml->                <workspace owb:object="@super(Workspace)"/>
--SeedData.xml->            </owb:instantiate>	  
      l_platformId := platformIdOf(x.elementId, 'SQLSERVER');	  
--SeedData.xml->            <PlatformTypeSet
--SeedData.xml->                owb:InternalName="Microsoft_SQL_Server_PlatformTypeSet_Object">
--SeedData.xml->                <owb:instantiate name="'DEFAULT'"
--SeedData.xml->                    owb:method="createCMPPlatformTypeSet"
--SeedData.xml->                    owb:object="proxyFactory" persistent="true">
--SeedData.xml->                    <platform owb:object="@super(Platform)"/>
--SeedData.xml->                </owb:instantiate>	  
      l_typesetId := typesetIdOf(x.elementId, l_platformId, 'DEFAULT');	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_SQLSERVER_NCHAR">
--SeedData.xml->                    <owb:instantiate name="'NCHAR'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'NCHAR'" LogicalName="'NCHAR'"
--SeedData.xml->                        P1="size" P1Default="'1'" P1Max="'4000'" P1Min="'1'"
--SeedData.xml->                        P1Type="range" P2="" P2Default="" P2Max="" P2Min="" P2Type=""
--SeedData.xml->                        Syntax="nchar[(%size)]"
--SeedData.xml->                        UOID="'2F59277F194D1936E040578CA30A355C'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'NCHAR');
	  put('Update data type NCHAR inside set DEFAULT of platform SQLSERVER - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set P1='size', P1Default='1', P1Max='4000',P1Min='1', 
	    P1Type='range', Syntax='nchar[(%size)]' 
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_SQLSERVER_NVARCHAR">
--SeedData.xml->                    <owb:instantiate name="'NVARCHAR'"
--SeedData.xml->                        owb:method="createCMPDatatype" owb:object="proxyFactory"
--SeedData.xml->                        persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'NVARCHAR'" LogicalName="'NVARCHAR'"
--SeedData.xml->                        P1="size" P1Default="'1'" P1Max="'4000'" P1Min="'1'"
--SeedData.xml->                        P1Type="range" P2="" P2Default="" P2Max="" P2Min="" P2Type=""
--SeedData.xml->                        Syntax="nvarchar[(%size)]"
--SeedData.xml->                        UOID="'2F59277F194E1936E040578CA30A355C'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'NVARCHAR');
	  put('Update data type NVARCHAR inside set DEFAULT of platform SQLSERVER - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set P1='size', P1Default='1', P1Max='4000', P1Min='1', 
	    P1Type='range', Syntax='nvarchar[(%size)]' 
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_SQLSERVER_FLOAT">
--SeedData.xml->                    <owb:instantiate name="'FLOAT'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'FLOAT'" LogicalName="'FLOAT'"
--SeedData.xml->                        P1="precision" P1Default="'53'" P1Max="'53'" P1Min="'1'"
--SeedData.xml->                        P1Type="range" P2="" P2Default="" P2Max="" P2Min="" P2Type=""
--SeedData.xml->                        Syntax="float[(%precision)]"
--SeedData.xml->                        UOID="'2F59277F195C1936E040578CA30A355C'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'FLOAT');
	  put('Update data type FLOAT inside set DEFAULT of platform SQLSERVER - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set P1='precision', P1Default='53', P1Max='53', P1Min='1', 
	    P1Type='range', Syntax='float[(%precision)]' 
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->        <Platform owb:InternalName="FILE_PLATFORM">
--SeedData.xml->            <owb:instantiate name="'FILE'" owb:method="createCMPPlatform"
--SeedData.xml->                owb:object="proxyFactory" persistent="true">
--SeedData.xml->                <workspace owb:object="@super(Workspace)"/>
--SeedData.xml->            </owb:instantiate>	  
      l_platformId := platformIdOf(x.elementId, 'FILE');	  
--SeedData.xml->            <PlatformTypeSet owb:InternalName="File_PlatformType_Object">
--SeedData.xml->                <owb:instantiate name="'DEFAULT'"
--SeedData.xml->                    owb:method="createCMPPlatformTypeSet"
--SeedData.xml->                    owb:object="proxyFactory" persistent="true">
--SeedData.xml->                    <platform owb:object="@super(Platform)"/>
--SeedData.xml->                </owb:instantiate>	  
      l_typesetId := typesetIdOf(x.elementId, l_platformId, 'DEFAULT');	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_file_RAW">
--SeedData.xml->                    <owb:instantiate name="'RAW'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'RAW'" DefaultLength="0"
--SeedData.xml->                        DefaultPrecision="0" DefaultScale="0" LengthAllowed="true"
--SeedData.xml->                        LogicalName="'RAW'" MaximumLength="999999999"
--SeedData.xml->                        MaximumPrecision="0" MaximumScale="0" MinimumLength="0"
--SeedData.xml->                        MinimumPrecision="0" MinimumScale="0" P1="" P1Default=""
--SeedData.xml->                        P1Max="" P1Min="" P1Type="" P2="" P2Default="" P2Max=""
--SeedData.xml->                        P2Min="" P2Type="" PrecisionAllowed="false"
--SeedData.xml->                        ScaleAllowed="false" Syntax=""
--SeedData.xml->                        UOID="'EFB9184992413026E030578C480A4133'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'RAW');
	  put('Update data type RAW inside set DEFAULT of platform FILE - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set DefaultLength=0, DefaultPrecision=0, DefaultScale=0, LengthAllowed='1', 
	    MaximumLength=999999999, MaximumPrecision=0, MaximumScale=0, MinimumLength=0,
	    MinimumPrecision=0, MinimumScale=0, PrecisionAllowed='0', ScaleAllowed='0'
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_file_FLOAT">
--SeedData.xml->                    <owb:instantiate name="'FLOAT'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'FLOAT'" DefaultLength="0"
--SeedData.xml->                        DefaultPrecision="0" DefaultScale="0"
--SeedData.xml->                        LengthAllowed="false" LogicalName="'FLOAT'"
--SeedData.xml->                        MaximumLength="0" MaximumPrecision="0" MaximumScale="0"
--SeedData.xml->                        MinimumLength="0" MinimumPrecision="0" MinimumScale="0"
--SeedData.xml->                        P1="" P1Default="" P1Max="" P1Min="" P1Type="" P2=""
--SeedData.xml->                        P2Default="" P2Max="" P2Min="" P2Type=""
--SeedData.xml->                        PrecisionAllowed="false" ScaleAllowed="false" Syntax=""
--SeedData.xml->                        UOID="'EFB9184992493026E030578C480A4133'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'FLOAT');
	  put('Update data type FLOAT inside set DEFAULT of platform FILE - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set DefaultLength=0, DefaultPrecision=0, DefaultScale=0, LengthAllowed='0', 
	    MaximumLength=0, MaximumPrecision=0, MaximumScale=0, MinimumLength=0,
	    MinimumPrecision=0, MinimumScale=0, PrecisionAllowed='0', ScaleAllowed='0'
	    where workspaceId=x.elementId and elementId=l_typeId;	  
--SeedData.xml->        <Platform owb:InternalName="OBIEE_PLATFORM">
--SeedData.xml->            <owb:instantiate name="'OBIEE'" owb:method="createCMPPlatform"
--SeedData.xml->                owb:object="proxyFactory" persistent="true">
--SeedData.xml->                <workspace owb:object="@super(Workspace)"/>
--SeedData.xml->            </owb:instantiate>
      l_platformId := platformIdOf(x.elementId, 'OBIEE');	  
--SeedData.xml->            <PlatformTypeSet owb:InternalName="OBIEE_PlatformTypeSet_Object">
--SeedData.xml->                <owb:instantiate name="'DEFAULT'"
--SeedData.xml->                    owb:method="createCMPPlatformTypeSet"
--SeedData.xml->                    owb:object="proxyFactory" persistent="true">
--SeedData.xml->                    <platform owb:object="@super(Platform)"/>
--SeedData.xml->                </owb:instantiate>	  
      l_typesetId := typesetIdOf(x.elementId, l_platformId, 'DEFAULT');	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_OBIEE_FLOAT">
--SeedData.xml->                   <owb:instantiate name="'FLOAT'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'FLOAT'" LogicalName="'FLOAT'" P1=""
--SeedData.xml->                        P1Default="" P1Max="" P1Min="" P1Type="" P2="" P2Default=""
--SeedData.xml->                        P2Max="" P2Min="" P2Type="" Syntax="FLOAT"
--SeedData.xml->                        UOID="'372DC82E9D24C8E0E04044982ECB7415'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'FLOAT');
	  put('Update data type FLOAT inside set DEFAULT of platform OBIEE - id ' || l_typeId || EOL);	  
--SeedData.xml->        <Platform owb:InternalName="OWF_PLATFORM">
--SeedData.xml->            <owb:instantiate name="'OWF'" owb:method="createCMPPlatform"
--SeedData.xml->                owb:object="proxyFactory" persistent="true">
--SeedData.xml->                <workspace owb:object="@super(Workspace)"/>
--SeedData.xml->            </owb:instantiate>
      l_platformId := platformIdOf(x.elementId, 'OWF');	  
--SeedData.xml->            <PlatformTypeSet owb:InternalName="OWF_PlatformType_Default">
--SeedData.xml->                <owb:instantiate name="'DEFAULT'"
--SeedData.xml->                    owb:method="createCMPPlatformTypeSet"
--SeedData.xml->                    owb:object="proxyFactory" persistent="true">
--SeedData.xml->                    <platform owb:object="@super(Platform)"/>
--SeedData.xml->                </owb:instantiate>	  
      l_typesetId := typesetIdOf(x.elementId, l_platformId, 'DEFAULT');	  
--SeedData.xml->                <Datatype owb:InternalName="Datatype_OWF_FLOAT">
--SeedData.xml->                    <owb:instantiate name="'FLOAT'" owb:method="createCMPDatatype"
--SeedData.xml->                        owb:object="proxyFactory" persistent="true">
--SeedData.xml->                        <platformtypeset owb:object="@super(PlatformTypeSet)"/>
--SeedData.xml->                    </owb:instantiate>
--SeedData.xml->                    <owb:properties DataType="'FLOAT'" LogicalName="'FLOAT'"
--SeedData.xml->                        P1="precision" P1Default="'126'" P1Max="'126'" P1Min="'1'"
--SeedData.xml->                        P1Type="range" P2="" P2Default="" P2Max="" P2Min="" P2Type=""
--SeedData.xml->                        Syntax="FLOAT(%precision)"
--SeedData.xml->                        UOID="'371C4A79559A0013E0402382DE3557A2'">
--SeedData.xml->                        
--SeedData.xml->                        <OwningLanguage owb:object="null"/>
--SeedData.xml->                    </owb:properties>
--SeedData.xml->                </Datatype>	  
	  l_typeId := typeIdOf(x.elementId, l_typesetId, 'FLOAT');
	  put('Update data type FLOAT inside set DEFAULT of platform OWF - id ' || l_typeId || EOL);
	  update CMPDataType_r 
	    set P1='precision', P1Default='126', P1Max='126', P1Min='1', 
	    P1Type='range', Syntax='FLOAT(%precision)' 
	    where workspaceId=x.elementId and elementId=l_typeId;
	    
    END LOOP;
  
  -- =======================================================
  END; -- Inner block for utility function/variable usage
  -- =======================================================    
  
-- ##########################################################################
END; -- Outer block for utility functions/variables
-- ##########################################################################
/