Lycka Bonita

Esta mañana me surgió la necesidad de implementar un procedimiento en PL/PSQL. Gracias a la ayudita del Vélez, he podido hacer esto en una hora. 

Un ejemplo de prueba y no tiene que ver con nada real podría ser: 

CREATE OR REPLACE PROCEDURE ESQUEMA_PROPIETARIO.DESBLOQUEO_SOLICITUDES (codidgoSolicitud IN NUMBER) IS

/*********************************************************************

   NAME:       DESBLOQUEO_SOLICITUDES

   PURPOSE:      Desbloquear solicitudes del esquema

   REVISIONS:

   Ver        Date        Author           Description

   ———  ———-  —————  —————————

   1.0        12/06/2008          1. Created this procedure.

*********************************************************************/

/* Variables auxiliares */

codigoOrganismoAUX   NUMBER;

CURSOR codigoOrganismo IS

    SELECT codigoOrganismo

        FROM tabla_organismos

        WHERE codigoSolicitud = codigoSolicitud;

BEGIN

    /* Inicializamos las variables */

    OPEN codigoOrganismo;

    FETCH codigoOrganismo INTO codigoOrganismoAUX;

    CLOSE codigoOrganismo ;

dbms_output.put_line(' El valor de la codigoSolicitud es      –> '  || codigoSolicitud );

dbms_output.put_line(' El valor de la codigoOrganismoAUX es   –> '  || codigoOrganismoAUX);

    /* Desbloqueamos la solicitud */

    update

        tabla_solicitudes

    set ESTADO_SOLCITUD = 'EDICION'

    where codigo_solicitud = codSolicitud;

    /* Desbloqueamos las propuestas de la solicitud */

    update

        tabla_propuestas

    set ESTADO_SOLCITUD = 'EDICION'

    where codigo_organismo = codigoOrganismoAUX;

dbms_output.put_line('FIN DEL PROCEDIMIENTO ');

EXCEPTION

   WHEN OTHERS

   THEN

        rollback;

        raise;

END DESBLOQUEO_SOLICITUDES;

/

Nuestra querida diosa de Oracle, cuyo nombre no mencionaré en vano, me ha dicho que es una mierdecilla, y que el lunes me enseña… ardo en deseos de aprender :)