PBY_08.04

SET SERVEROUTPUT ON
DECLARE
/**
    v_nombre VARCHAR2(300);
    v_sueldo NUMBER(10);
 */
    v_monto_apoyo NUMBER(12);
    v_nuevo_sueldo tbl_apoyo_economico.nuevo_sueldo%TYPE;
    v_nombre newtbl.first_name%TYPE;
    v_sueldo newtbl.salary%TYPE;

    v_idmin newtbl.employee_id%TYPE;
    v_idmax newtbl.employee_id%TYPE;
   -- v_control NUMBER(2):=0;
    v_codTrabajo employees.job_id%TYPE;



BEGIN

    SELECT
        MIN(employee_id), MAX(employee_id)
    INTO
        v_idmin, v_idmax
    FROM newtbl;

    WHILE v_idmin < v_idmax LOOP
   -- WHILE v_control < 20 LOOP

        SELECT        first_name, salary    INTO v_nombre, v_sueldo    FROM newtbl
        WHERE employee_id = v_idmin;

        SELECT        job_id    INTO        v_codTrabajo
        FROM employees        WHERE employee_id = v_idmin;

        DBMS_OUTPUT.put_line('BIENVENID@!!! '||v_nombre);
        IF v_sueldo > 10000 THEN
            DBMS_OUTPUT.put_line('Usted tiene un buen sueldo, trabaja de '||v_codTrabajo);
        ELSE
            DBMS_OUTPUT.put_line('Podrias ganar más');
            v_monto_apoyo:= v_sueldo * 0.5;
            v_nuevo_sueldo:= v_sueldo + v_monto_apoyo;
            DBMS_OUTPUT.put_line('Usted tiene un buen trabajo gana: $'||v_nuevo_sueldo||', sueldo antiguo '||v_sueldo);
        END IF;
        INSERT INTO tbl_apoyo_economico VALUES (v_nombre, v_sueldo, v_monto_apoyo, v_nuevo_sueldo);
        v_idmin:=v_idmin + 1;
       -- v_control:= v_control + 1;
     END LOOP;
END;
/
SELECT * FROM tbl_apoyo_economico;