-- Pour trouver l'id de l'utilisateur
declare
p_user_id number:=portal.wwctx_api.get_user_id;
begin
htp.prn('Votre id est '||p_user_id);
end;
/

-- Pour trouver le login de l'utilisateur
declare
p_user_name varchar2(30):=portal.wwctx_api.get_user;
begin
htp.prn('Votre login est '||p_user_name);
end;
/

-- Pour trouver la langue utilisée par le browser de l'utilisateur
declare
p_lang varchar2(10):=portal.wwctx_api.get_nls_language;
begin
htp.prn('La langue actuellement utilisée est '||p_user_id);
end;
/

-- Pour trouver l'id de l'utilisateur
declare
p_user_name varchar2(30):='HELYOS';
p_user_id number:=portal.wwsec_api.id(upper(p_user_name));
begin
htp.prn('L''id de l''utilisateur '||p_user_name||' est '||p_user_id);
end;
/

-- Pour trouver le login de l'utilisateur
declare
p_user_id number:='2003';
p_user_name varchar2(30):=portal.wwsec_api.user_name(p_user_id);
begin
htp.prn('Le login correspondant à l''id '||p_user_id||' est ' || p_user_name );
end;
/

CREATE OR REPLACE  PROCEDURE write_clob(p_clob CLOB) IS
    v_buffer   VARCHAR2(32000);
    v_offset   PLS_INTEGER DEFAULT 1;
    v_taille   PLS_INTEGER;
    v_longueur PLS_INTEGER;
    v_chunk    PLS_INTEGER;
    v_clob     CLOB := p_clob;
  BEGIN
    v_chunk    := dbms_lob.getchunksize(v_clob);
    v_longueur := dbms_lob.getlength(v_clob);
    WHILE v_offset < v_longueur LOOP
      IF v_longueur - (v_offset - 1) > v_chunk THEN
        v_taille := v_chunk;
      ELSE
        v_taille := v_longueur - (v_offset - 1);
      END IF;
      v_buffer := NULL;
      dbms_lob.READ(v_clob, v_taille, v_offset, v_buffer);
      htp.prn(v_buffer);
      v_offset := v_offset + v_taille;
    END LOOP;
  EXCEPTION
    WHEN OTHERS THEN
        htp.print(SQLERRM);
  END;