create or replace package ptmp is
  procedure p1(pin in number,pout out number);
end;

create or replace package body ptmp is
  procedure p1(pin in number,pout out number) is
  begin
    pout := pin * 4;
  end;
end;

TMP
  N
  S Connection=##class(%Library.SQLGatewayConnection).%New()
  S RET=Connection.Connect("DSN","USER","PASSWORD")
  Q:'RET
  S RET=Connection.AllocateStatement(.Statment)
  Q:'RET
  S SQLString="begin ptmp.p1(?,?); end;"
  S Param(1)=$LB(1,4)
  S Param(2)=$LB(4,4)
  S Param(3)=$LB("","")
  S Param(4)=$LB("","")
  S Param(5)=$LB(10,10)
  S RET=Connection.BindParameters(Statment,Param(1),Param(2),Param(3),Param(4),Param(5))
  Q:'RET
  S RET=Connection.SetParameter(Statment,$LB(5),1)
  Q:'RET
  S RET=Connection.SetParameter(Statment,$LB(5),2)
  Q:'RET
  S RET=Connection.Prepare(Statment,SQLString)
  Q:'RET
  S RET=Connection.Execute(Statment)
  Q:'RET
  S RET=Connection.GetParameter(Statment,2,.VALUE)
  W $LI(VALUE),!
  ZZDUMP VALUE
  Q:'RET
  S RET=Connection.DropStatement(Statment)  
  Q:'RET
  S RET=Connection.Disconnect()
  Q

LIB>d ^TMP
12338
 
0000: 04 04 32 30                                             ..20
LIB>

  S Param(1)=$LB(1,4)
  S Param(2)=$LB(12,12)
  S Param(3)=$LB("","")
  S Param(4)=$LB("","")
  S Param(5)=$LB(4096,4096)

d ^TMP


0000: 02 01                                                   ..