practico 6 procedimiento

[Hugo Vera]

    PROCEDURE make (name_prog VARCHAR2)
    IS
        type_prog    VARCHAR2 (20);
    BEGIN
        type_prog := get_type (name_prog);

        IF type_prog = 'PACKAGE'
        THEN
            EXECUTE IMMEDIATE    'ALTER '
                             || type_prog
                             || ' '
                             || name_prog
                             || ' COMPILE'
                             || ' '
                             || 'BODY';
        ELSE
            EXECUTE IMMEDIATE    'ALTER '
                             || type_prog
                             || ' '
                             || name_prog
                             || ' COMPILE';
        END IF;

Hugo Vera
Consultor Business Intelligence
Ayi & asociados

Antonio del Viso 658            Av. Corrientes 640 3 Piso Of 38 A
Córdoba - Argentina             Buenos Aires - Argentina
54 351 4711900                   54 11 43286538

www.ayi-asociados.com