create or replace PROCEDURE LNK_USR_ITEM
IS
V_CDEXPORTEMPR         PARAMEMPRESA.CDEXPORTEMPR%TYPE;
V_CDEMPRESA            FILIAL.CDEMPRESA%TYPE;
V_CDFILIAL             FILIAL.CDFILIAL%TYPE;
V_CDEXFILIAL           PARAMFILIAL.CDEXFILIAL%TYPE;
V_CDPRODINTE           PRODUTO.CDPRODINTE%TYPE;
V_CDPRODUTO            PRODUTO.CDPRODUTO%TYPE;
V_NMPRODUTO            PRODUTO.NMPRODUTO%TYPE;
V_CDEAN13              INFADICPROD.CDEANPROD%TYPE;
V_CDDUN14              INFADICPROD.CDDUNPROD%TYPE;
V_DTINTEGRACAO         DATE;
V_IDINTEGRACAO         CHAR; 
V_DSFORMATODATA        VARCHAR2(10);
V_JAEXISTE             NUMBER;
V_CDDESTINOFINAL       NUMBER;
V_IDTIPOPESO           NUMBER; 
V_IDTIPOVALIDADE       NUMBER; 
V_QTDIASVALIDADE       NUMBER; 
V_IDATIVO              NUMBER;
V_IDTPSEPARADOR        NUMBER;
V_QTNUMERODEC          FLOAT;
V_VRTARA               FLOAT; 
V_QTPESOMIN            FLOAT; 
V_QTPESOMAX            FLOAT; 
V_VRREFDIETAKCAL       FLOAT;
V_QTCALORIAS           VARCHAR2(20);
V_QTCALORIASVXD        FLOAT;
V_QTCARBOIDRATOS       VARCHAR2(20);
V_QTCARBOIDRATOSVXD    FLOAT;
V_QTPROTEINAS          VARCHAR2(20);
V_QTPROTEINASVXD       FLOAT;
V_QTGORDTOTAIS         VARCHAR2(20);
V_QTGORDTOTAISVXD      FLOAT;
V_QTGORDSATURADAS      VARCHAR2(20);
V_QTGORDSATURADASVXD   FLOAT;
V_QTGORDMONOSAT        VARCHAR2(20);
V_QTGORDMONOSATVXD     FLOAT;
V_QTGORDURASTRANS      VARCHAR2(20);
V_QTCOLESTEROL         VARCHAR2(20);
V_QTCOLESTEROLVXD      FLOAT;
V_QTFIBRA              VARCHAR2(20);
V_QTFIBRAVXD           FLOAT;
V_QTCALCIO             VARCHAR2(20);
V_QTCALCIOVXD          FLOAT;
V_QTFERRO              VARCHAR2(20); 
V_QTFERROVXD           FLOAT;
V_QTSODIO              VARCHAR2(20);
V_QTSODIOVXD           FLOAT; 
V_QTGORDPOLIINSAT      VARCHAR2(20); 
V_QTGORDPOLIINSATVXD   FLOAT;
V_IDUNIDMEDIMPRES      FLOAT;
V_QTPESONOMINAL        FLOAT;
V_VRTOLINF             FLOAT;
V_VRTOLSUP             FLOAT;
V_DSTEXTOSIF           VARCHAR2(200);
V_DSFRASEPERIGO1       VARCHAR2(200);
V_DSFRASEPERIGO2       VARCHAR2(200);
V_DSFRASEPERIGO3       VARCHAR2(200);
V_DSFRASEPERIGO4       VARCHAR2(200);
V_DSCOMPOSICAO1        VARCHAR2(160);
V_DSCOMPOSICAO2        VARCHAR2(160);
V_DSCOMPOSICAO3        VARCHAR2(160);
V_DSOBSCONSERVACAO1    VARCHAR2(200);
V_DSOBSCONSERVACAO2    VARCHAR2(200);
V_DSOBSCONSERVACAO3    VARCHAR2(200);
V_DSOBSCONSERVACAO4    VARCHAR2(200);
V_DSOBSCONSERVACAO5    VARCHAR2(200);
V_CDITEMCORPORATIVO    VARCHAR2(200);
V_NMPROD_COMPL         VARCHAR2(200);
V_DSPREPARACAO         VARCHAR2(200);
V_DSREFDIETAKCAL       VARCHAR2(200);

V_COMANDO              VARCHAR2(5000);



CURSOR C_ITEM IS 
SELECT CDEXPORTEMPR, CDEMPRESA, CDFILIAL, CDEXFILIAL, CDPRODINTE, CDPRODUTO, NMPRODUTO, 
       CASE WHEN IDTIPOPESO = 'FIXO' THEN QTPESONOMINAL ELSE 0 END AS QTPESONOMINAL, 
       CDDESTINOFINAL, 
       CASE WHEN IDTIPOPESO = 'FIXO' THEN 1 
            WHEN IDTIPOPESO = 'VARIAVEL' THEN 2 ELSE 1 END AS IDTIPOPESO, 
       IDTIPOVALIDADE, 
       QTDIASVALIDADE, VRTARA, 
       CASE WHEN IDTIPOPESO = 'VARIAVEL' THEN QTPESOMIN ELSE 0 END AS QTPESOMIN, 
       CASE WHEN IDTIPOPESO = 'VARIAVEL' THEN QTPESOMAX ELSE 0 END AS QTPESOMAX,
       CDEAN13, CDDUN14, IDATIVO, IDINTEGRACAO, DTINTEGRACAO, IDUNIDMEDIMPRES, 
       IDTPSEPARADOR, QTNUMERODEC, DSFORMATODATA, VRREFDIETAKCAL, 
       TO_CHAR(QTCALORIAS,'90.999')      AS QTCALORIAS, QTCALORIASVXD, 
       TO_CHAR(QTCARBOIDRATOS,'90.999')  AS QTCARBOIDRATOS, QTCARBOIDRATOSVXD, 
       TO_CHAR(QTPROTEINAS,'90.999')     AS QTPROTEINAS, QTPROTEINASVXD, 
       TO_CHAR(QTGORDTOTAIS,'90.999')    AS QTGORDTOTAIS,  QTGORDTOTAISVXD, 
       TO_CHAR(QTGORDSATURADAS,'90.999') AS QTGORDSATURADAS, QTGORDSATURADASVXD, 
       TO_CHAR(QTGORDMONOSAT,'90.999')   AS QTGORDMONOSAT, QTGORDMONOSATVXD, 
       TO_CHAR(QTGORDURASTRANS,'90.999') AS QTGORDURASTRANS, 
       TO_CHAR(QTCOLESTEROL,'90.999')    AS QTCOLESTEROL, QTCOLESTEROLVXD, 
       TO_CHAR(QTFIBRA,'90.999')         AS QTFIBRA, QTFIBRAVXD, 
       TO_CHAR(QTCALCIO,'90.999')        AS QTCALCIO, QTCALCIOVXD, 
       TO_CHAR(QTFERRO,'90.999')         AS QTFERRO, QTFERROVXD, 
       TO_CHAR(QTSODIO,'90.999')         AS QTSODIO, QTSODIOVXD, 
       TO_CHAR(QTGORDPOLIINSAT,'90.999') AS QTGORDPOLIINSAT, QTGORDPOLIINSATVXD,
       'Registro no Ministerio da Agricultura SIF/DIPOA sob n'||DSTELEFONE||'/240' as DSTEXTOSIF,--DS_TEXTO_SIF
       SUBSTR(DSFRASEPERIGO,0,40) AS DSFRASEPERIGO1,--RESERVA1
       SUBSTR(DSFRASEPERIGO,41,40) AS DSFRASEPERIGO2,--RESERVA2
       SUBSTR(DSFRASEPERIGO,81,40) AS DSFRASEPERIGO3,--RESERVA3
       SUBSTR(DSFRASEPERIGO,121,50) AS DSFRASEPERIGO4,--RESERVA4
       SUBSTR(REPLACE(TRIM(DSCOMPOSICAO),CHR(10),''), 0, 140) AS DSCOMPOSICAO1,--NM_RUSSO
       SUBSTR(REPLACE(TRIM(DSCOMPOSICAO),CHR(10),''), 141, 140) AS DSCOMPOSICAO2,--NM_RUSSO2
       SUBSTR(REPLACE(TRIM(DSCOMPOSICAO),CHR(10),''), 301, 160) AS DSCOMPOSICAO3,--NM_ARABE
       SUBSTR(DSOBSCONSERVACAO, 0, 37) AS DSOBSCONSERVACAO1,--RESERVA5
       SUBSTR(DSOBSCONSERVACAO, 39, 38) AS DSOBSCONSERVACAO2,--RESERVA6
       SUBSTR(DSOBSCONSERVACAO, 77, 34) AS DSOBSCONSERVACAO3,--RESERVA7
       SUBSTR(DSOBSCONSERVACAO, 112, 32) AS DSOBSCONSERVACAO4,--RESERVA8
       SUBSTR(DSOBSCONSERVACAO, 144) AS DSOBSCONSERVACAO5,--DS_INFORMACAO_NUTRIOCIONAL
       CDARVPROD AS CDITEMCORPORATIVO,--CD_ITEM_CORPORATIVO
       NMPROD_COMPLETO,--NM_ITEM_SIF
       DSPREPARACAO,--RESERVA9
       'Porcao de '||VRREFDIETAKCAL||'g' AS DSREFDIETAKCAL,--RESERVA10,
       CASE WHEN IDTIPOPESO = 'FIXO' THEN VRTOLINF ELSE 0 END AS VRTOLINF,
       CASE WHEN IDTIPOPESO = 'FIXO' THEN VRTOLSUP ELSE 0 END AS VRTOLSUP
FROM USR_ITEM;

BEGIN

   OPEN C_ITEM;
   LOOP
      FETCH C_ITEM INTO V_CDEXPORTEMPR, V_CDEMPRESA, V_CDFILIAL, V_CDEXFILIAL, V_CDPRODINTE, V_CDPRODUTO, V_NMPRODUTO, V_QTPESONOMINAL, V_CDDESTINOFINAL, V_IDTIPOPESO, 
                        V_IDTIPOVALIDADE, V_QTDIASVALIDADE, V_VRTARA, V_QTPESOMIN, V_QTPESOMAX, V_CDEAN13, V_CDDUN14, V_IDATIVO, V_IDINTEGRACAO, V_DTINTEGRACAO, V_IDUNIDMEDIMPRES,
                        V_IDTPSEPARADOR, V_QTNUMERODEC, V_DSFORMATODATA, V_VRREFDIETAKCAL, V_QTCALORIAS, V_QTCALORIASVXD, V_QTCARBOIDRATOS, 
                        V_QTCARBOIDRATOSVXD, V_QTPROTEINAS, V_QTPROTEINASVXD, V_QTGORDTOTAIS, V_QTGORDTOTAISVXD, V_QTGORDSATURADAS, V_QTGORDSATURADASVXD, 
                        V_QTGORDMONOSAT, V_QTGORDMONOSATVXD, V_QTGORDURASTRANS, V_QTCOLESTEROL, V_QTCOLESTEROLVXD, V_QTFIBRA, V_QTFIBRAVXD, V_QTCALCIO, 
                        V_QTCALCIOVXD, V_QTFERRO, V_QTFERROVXD, V_QTSODIO, V_QTSODIOVXD, V_QTGORDPOLIINSAT, V_QTGORDPOLIINSATVXD,
                        V_DSTEXTOSIF, V_DSFRASEPERIGO1, V_DSFRASEPERIGO2, V_DSFRASEPERIGO3, V_DSFRASEPERIGO4, V_DSCOMPOSICAO1, V_DSCOMPOSICAO2, V_DSCOMPOSICAO3, V_DSOBSCONSERVACAO1, 
                        V_DSOBSCONSERVACAO2, V_DSOBSCONSERVACAO3, V_DSOBSCONSERVACAO4, V_DSOBSCONSERVACAO5, V_CDITEMCORPORATIVO, V_NMPROD_COMPL, V_DSPREPARACAO, V_DSREFDIETAKCAL, V_VRTOLINF, V_VRTOLSUP;
      EXIT WHEN C_ITEM%NOTFOUND;
      
            V_COMANDO := NULL;
            V_COMANDO := 'BEGIN SELECT CD_ITEM INTO  '||V_JAEXISTE||' FROM MBS_ITEM WHERE CD_ITEM = '||CHR(39)||V_CDPRODINTE||CHR(39)||'; EXCEPTION WHEN OTHERS THEN '||V_JAEXISTE||' := 0; END;';
            EXECUTE IMMEDIATE V_COMANDO;

            IF V_JAEXISTE = 0 THEN
            
                V_COMANDO := NULL;
                V_COMANDO := 'INSERT INTO MBS_ITEM(CD_EMPRESA, CD_FILIAL, CD_ITEM, NM_ITEM, QT_PESO_NOMINAL, CD_DESTINO_FINAL, ID_TIPO_PESO, 
                                     QT_DIAS_VALIDADE, QT_PESO_TARA, QT_PESO_MINIMO, QT_PESO_MAXIMO, CD_EAN13, CD_DUN14, ID_ATIVO,  ID_IMPRIME_ETIQUETA, 
                                     QT_CALORIAS, QT_CALORIAS_VXD, QT_CARBOIDRATOS, QT_CARBOIDRATOS_VXD, 
                                     QT_PROTEINAS, QT_PROTEINAS_VXD, QT_GORDURAS_TOTAIS, QT_GORDURAS_TOTAIS_VXD, QT_GORDURAS_SATURADAS, QT_GORDURAS_SATURADAS_VXD, QT_GORDURAS_MONOSATURADAS, 
                                     QT_GORDURAS_MONOSATURADASVXD, QT_COLESTEROL, QT_COLESTEROL_VXD, QT_FIBRA, QT_FIBRA_VXD, QT_CALCIO, QT_CALCIO_VXD, QT_FERRO, 
                                     QT_FERRO_VXD, QT_SODIO, QT_SODIO_VXD, QT_GORDURAS_POLIINSATURADA, QT_GORDURAS_POLIINSATURADAVXD,
                                     DS_TEXTO_SIF, RESERVA1, RESERVA2, RESERVA3, RESERVA4, NM_RUSSO, NM_RUSSO2, NM_ARABE, RESERVA5, RESERVA6, RESERVA7, RESERVA8, 
                                     DS_INFORMACAO_NUTRIOCIONAL, CD_ITEM_CORPORATIVO, NM_ITEM_SIF, RESERVA9, RESERVA10, QT_TOLERANCIA_INF, QT_TOLERANCIA_SUP)

                VALUES('||CHR(39)||V_CDEXPORTEMPR      ||CHR(39)||','
                        ||CHR(39)||V_CDEXFILIAL        ||CHR(39)||','       
                        ||CHR(39)||V_CDPRODINTE        ||CHR(39)||','
                        ||CHR(39)||V_NMPRODUTO         ||CHR(39)||','
                                 ||V_QTPESONOMINAL     ||         ','
                        ||CHR(39)||V_CDDESTINOFINAL    ||CHR(39)||','
                        ||CHR(39)||V_IDTIPOPESO        ||CHR(39)||','
                                 ||V_QTDIASVALIDADE    ||         ','
                                 ||V_VRTARA            ||         ','           
                                 ||V_QTPESOMIN         ||         ','      
                                 ||V_QTPESOMAX         ||         ','       
                        ||CHR(39)||V_CDEAN13           ||CHR(39)||','         
                        ||CHR(39)||V_CDDUN14           ||CHR(39)||','         
                        ||CHR(39)||V_IDATIVO           ||CHR(39)||','           
                        ||CHR(39)||V_IDUNIDMEDIMPRES   ||CHR(39)||','
                                 ||V_QTCALORIAS        ||         ','        
                                 ||V_QTCALORIASVXD     ||         ','    
                                 ||V_QTCARBOIDRATOS    ||         ',' 
                                 ||V_QTCARBOIDRATOSVXD ||         ','
                                 ||V_QTPROTEINAS       ||         ','      
                                 ||V_QTPROTEINASVXD    ||         ','  
                                 ||V_QTGORDTOTAIS      ||         ','   
                                 ||V_QTGORDTOTAISVXD   ||         ',' 
                                 ||V_QTGORDSATURADAS   ||         ','
                                 ||V_QTGORDSATURADASVXD||         ',' 
                                 ||V_QTGORDMONOSAT     ||         ','     
                                 ||V_QTGORDMONOSATVXD  ||         ',' 
                                 ||V_QTCOLESTEROL      ||         ','   
                                 ||V_QTCOLESTEROLVXD   ||         ',' 
                                 ||V_QTFIBRA           ||         ','         
                                 ||V_QTFIBRAVXD        ||         ','        
                                 ||V_QTCALCIO          ||         ',' 
                                 ||V_QTCALCIOVXD       ||         ','       
                                 ||V_QTFERRO           ||         ','           
                                 ||V_QTFERROVXD        ||         ','      
                                 ||V_QTSODIO           ||         ','        
                                 ||V_QTSODIOVXD        ||         ','      
                                 ||V_QTGORDPOLIINSAT   ||         ',' 
                                 ||V_QTGORDPOLIINSATVXD||         ','
                        ||CHR(39)||V_DSTEXTOSIF        ||CHR(39)||','        
                        ||CHR(39)||V_DSFRASEPERIGO1    ||CHR(39)||','   
                        ||CHR(39)||V_DSFRASEPERIGO2    ||CHR(39)||','
                        ||CHR(39)||V_DSFRASEPERIGO3    ||CHR(39)||','
                        ||CHR(39)||V_DSFRASEPERIGO4    ||CHR(39)||','
                        ||CHR(39)||V_DSCOMPOSICAO1     ||CHR(39)||',' 
                        ||CHR(39)||V_DSCOMPOSICAO2     ||CHR(39)||',' 
                        ||CHR(39)||V_DSCOMPOSICAO3     ||CHR(39)||',' 
                        ||CHR(39)||V_DSOBSCONSERVACAO1 ||CHR(39)||',' 
                        ||CHR(39)||V_DSOBSCONSERVACAO2 ||CHR(39)||',' 
                        ||CHR(39)||V_DSOBSCONSERVACAO3 ||CHR(39)||',' 
                        ||CHR(39)||V_DSOBSCONSERVACAO4 ||CHR(39)||',' 
                        ||CHR(39)||V_DSOBSCONSERVACAO5 ||CHR(39)||',' 
                        ||CHR(39)||V_CDITEMCORPORATIVO ||CHR(39)||',' 
                        ||CHR(39)||V_NMPROD_COMPL      ||CHR(39)||',' 
                        ||CHR(39)||V_DSPREPARACAO      ||CHR(39)||','
                        ||CHR(39)||V_DSREFDIETAKCAL    ||CHR(39)||',' 
                                 ||V_VRTOLINF          ||         ',' 
                                 ||V_VRTOLSUP          ||')';
                
                EXECUTE IMMEDIATE V_COMANDO;         
            ELSE

               V_COMANDO := NULL;
               V_COMANDO := 'UPDATE MBS_ITEM
                  SET NM_ITEM                       = '||CHR(39)||V_NMPRODUTO          ||CHR(39)||',
                      QT_PESO_NOMINAL               = '||CHR(39)||V_QTPESONOMINAL      ||CHR(39)||', 
                      CD_DESTINO_FINAL              = '||CHR(39)||V_CDDESTINOFINAL     ||CHR(39)||',
                      ID_TIPO_PESO                  = '||CHR(39)||V_IDTIPOPESO         ||CHR(39)||',
                      QT_DIAS_VALIDADE              = '         ||V_QTDIASVALIDADE     ||',
                      QT_PESO_TARA                  = '         ||V_VRTARA             ||', 
                      QT_PESO_MINIMO                = '         ||V_QTPESOMIN          ||',
                      QT_PESO_MAXIMO                = '         ||V_QTPESOMAX          ||',
                      CD_EAN13                      = '||CHR(39)||V_CDEAN13            ||CHR(39)||', 
                      CD_DUN14                      = '||CHR(39)||V_CDDUN14            ||CHR(39)||', 
                      ID_ATIVO                      = '||CHR(39)||V_IDATIVO            ||CHR(39)||',  
                      ID_IMPRIME_ETIQUETA           = '||CHR(39)||V_IDUNIDMEDIMPRES    ||CHR(39)||', 
                      QT_CALORIAS                   = '         ||V_QTCALORIAS         ||', 
                      QT_CALORIAS_VXD               = '         ||V_QTCALORIASVXD      ||', 
                      QT_CARBOIDRATOS               = '         ||V_QTCARBOIDRATOS     ||', 
                      QT_CARBOIDRATOS_VXD           = '         ||V_QTCARBOIDRATOSVXD  ||',
                      QT_PROTEINAS                  = '         ||V_QTPROTEINAS        ||',
                      QT_PROTEINAS_VXD              = '         ||V_QTPROTEINASVXD     ||', 
                      QT_GORDURAS_TOTAIS            = '         ||V_QTGORDTOTAIS       ||',
                      QT_GORDURAS_TOTAIS_VXD        = '         ||V_QTGORDTOTAISVXD    ||',
                      QT_GORDURAS_SATURADAS         = '         ||V_QTGORDSATURADAS    ||',
                      QT_GORDURAS_SATURADAS_VXD     = '         ||V_QTGORDSATURADASVXD ||',
                      QT_GORDURAS_MONOSATURADAS     = '         ||V_QTGORDMONOSAT      ||',
                      QT_GORDURAS_MONOSATURADASVXD  = '         ||V_QTGORDMONOSATVXD   ||',
                      QT_COLESTEROL                 = '         ||V_QTCOLESTEROL       ||',
                      QT_COLESTEROL_VXD             = '         ||V_QTCOLESTEROLVXD    ||',
                      QT_FIBRA                      = '         ||V_QTFIBRA            ||',
                      QT_FIBRA_VXD                  = '         ||V_QTFIBRAVXD         ||',
                      QT_CALCIO                     = '         ||V_QTCALCIO           ||',
                      QT_CALCIO_VXD                 = '         ||V_QTCALCIOVXD        ||',
                      QT_FERRO                      = '         ||V_QTFERRO            ||',
                      QT_FERRO_VXD                  = '         ||V_QTFERROVXD         ||',
                      QT_SODIO                      = '         ||V_QTSODIO            ||',
                      QT_SODIO_VXD                  = '         ||V_QTSODIOVXD         ||', 
                      QT_GORDURAS_POLIINSATURADA    = '         ||V_QTGORDPOLIINSAT    ||', 
                      QT_GORDURAS_POLIINSATURADAVXD = '         ||V_QTGORDPOLIINSATVXD ||',
                      DS_TEXTO_SIF                  = '||CHR(39)||V_DSTEXTOSIF         ||CHR(39)||',
                      RESERVA1                      = '||CHR(39)||V_DSFRASEPERIGO1     ||CHR(39)||',
                      RESERVA2                      = '||CHR(39)||V_DSFRASEPERIGO2     ||CHR(39)||',
                      RESERVA3                      = '||CHR(39)||V_DSFRASEPERIGO3     ||CHR(39)||',
                      RESERVA4                      = '||CHR(39)||V_DSFRASEPERIGO4     ||CHR(39)||',
                      NM_RUSSO                      = '||CHR(39)||V_DSCOMPOSICAO1      ||CHR(39)||',
                      NM_RUSSO2                     = '||CHR(39)||V_DSCOMPOSICAO2      ||CHR(39)||',
                      NM_ARABE                      = '||CHR(39)||V_DSCOMPOSICAO3      ||CHR(39)||',
                      RESERVA5                      = '||CHR(39)||V_DSOBSCONSERVACAO1  ||CHR(39)||',
                      RESERVA6                      = '||CHR(39)||V_DSOBSCONSERVACAO2  ||CHR(39)||',
                      RESERVA7                      = '||CHR(39)||V_DSOBSCONSERVACAO3  ||CHR(39)||',
                      RESERVA8                      = '||CHR(39)||V_DSOBSCONSERVACAO4  ||CHR(39)||',
                      DS_INFORMACAO_NUTRIOCIONAL    = '||CHR(39)||V_DSOBSCONSERVACAO5  ||CHR(39)||',
                      CD_ITEM_CORPORATIVO           = '||CHR(39)||V_CDITEMCORPORATIVO  ||CHR(39)||',
                      NM_ITEM_SIF                   = '||CHR(39)||V_NMPROD_COMPL       ||CHR(39)||',
                      RESERVA9                      = '||CHR(39)||V_DSPREPARACAO       ||CHR(39)||',
                      RESERVA10                     = '||CHR(39)||V_DSREFDIETAKCAL     ||CHR(39)||',
                      QT_TOLERANCIA_INF             = '         ||V_VRTOLINF           ||',
                      QT_TOLERANCIA_SUP             = '         ||V_VRTOLSUP           ||'
                WHERE CD_ITEM = '||CHR(39)||V_CDPRODINTE||CHR(39);
                
               EXECUTE IMMEDIATE V_COMANDO;

               COMMIT;

            END IF;

           COMMIT;

   END LOOP;

   COMMIT;


END;
/