All pastes #229059 Raw Edit

Someone

public sql v1 · immutable
#229059 ·published 2006-10-30 12:10 UTC
rendered paste body
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;/DECLAREp_melding VARCHAR2(200);BEGINmaanedloenn( p_melding );DBMS_OUTPUT.PUT_LINE( p_melding );END;/