CREATE OR REPLACE PROCEDURE maanedloenn ( p_melding OUT VARCHAR2 )
IS

  CURSOR c1 IS
    SELECT * FROM ansatt
    ORDER BY navn;

  v_mndLoenn NUMBER(10,2);

BEGIN
  p_melding := "";
  FOR v_c1 IN c1 LOOP
    IF ( v_c1.timeloenn IS NULL ) THEN
      p_melding := CONCAT( p_melding, 'Ansnr: ' || v_c1.ansnr || ' Navn: ' || v_c1.navn || ' Mndlønn: ' || ' Timelønn ikkje satt ' || CHR(10) );
    ELSE
      v_mndLoenn := v_c1.timeloenn*0.6*7*30;
      p_melding := CONCAT( p_melding, 'Ansnr: ' || v_c1.ansnr || ' Navn: ' || v_ct1.navn || ' Mndlønn: ' || v_mndLoenn );
    END IF;
  END LOOP;
END;
/

DECLARE
p_melding VARCHAR2(200);
BEGIN
maanedloenn( p_melding );
DBMS_OUTPUT.PUT_LINE( p_melding );
END;
/