SQL> 
SQL> CREATE OR REPLACE PROCEDURE SP_MYPROC(ORGID   IN NUMBER,
   2                                         ORGNAME OUT VARCHAR2) AS
   3   BEGIN
   4     FOR CUR IN (SELECT V.NAME
   5                   FROM HR.HR_ALL_ORGANIZATION_UNITS V
   6                  WHERE V.ORGANIZATION_ID = ORGID)
   7     LOOP
   8       ORGNAME := CUR.NAME;
   9       --    DBMS_OUTPUT.put_line(CUR.NAME);
  10     END LOOP;
  11     RETURN;
  12   END;
  13   /
 
Procedure created
 
SQL> 

SQL> DECLARE
   2     V_RES VARCHAR2( 40 );
   3   BEGIN
   4     SP_MYPROC( 84 ,
   5               V_RES);
   6     DBMS_OUTPUT.PUT_LINE(V_RES);
   7   END;
   8   /
 
PL/SQL procedure successfully completed
 
SQL> 

// Имя хранимой процедуры
  СоединениеТекущее.Команда.CommandText = "sp_MyProc";
  
  СоединениеТекущее.Команда.CommandType =  8 ;
  //СоединениеТекущее.NamedParameters     = Истина;  
  OrgID = Новый COMОбъект("ADODB.Parameter"); 
  OrgID = СоединениеТекущее.Команда.CreateParameter("OrgID",  3 ,  1 ,  32 );
  
  // добавить параметры
  СоединениеТекущее.Команда.Parameters.Append(OrgID);
  СоединениеТекущее.Команда.Parameters("OrgID").Value = "84";
  СоединениеТекущее.Команда.Prepared = Истина; 
    
  // ПротоколированиеЗапрос();
  Выборка = СоединениеТекущее.Команда.Execute();

СоединениеТекущее.Команда.CommandType =  8 ;