PROCEDURE CercaTipo(
    LaTipologia     IN TipiMacchinari.TipologiaMacchinario%TYPE DEFAULT NULL, --parametri
    IlModello   IN TipiMacchinari.Modello%TYPE DEFAULT NULL)
  AS
  IlTipo TipiMacchinari%ROWTYPE; --dichiarazioni
  BEGIN
      FOR IlTipo IN(
        --[QUERY]
      ) LOOP
        --[creazione e visualizzazione campi]
  END CercaTipo;




PROCEDURE RisultatiRicercaTipo(Contesto VARCHAR2 DEFAULT '', SessionID VARCHAR2 DEFAULT '', txtTipologiaDiMacchinario VARCHAR2 DEFAULT '', txtModello VARCHAR2 DEFAULT '') AS
  BEGIN
    --[........]
        emgui.CreaTabellaElementi();
          --[creazione intestazioni]
          emgui.CreaContenutoElementi();
          CercaTipo(txtTipologiaDiMacchinario, txtModello); --chiamo la procedura che ricerca i tipi di macchinario e visualizza i risultati

        emgui.ChiudiTabellaElementi();
    --[........]
  END RisultatiRicercaTipo;