Power Builder - Como crear un store procedure

//Se declara el DataStore

DataStore lds_dias_vencidos

//Se crea el DataStore

lds_dias_vencidos= create DataStore

//Se asigna la datawindows Object previamente creada

lds_dias_vencidos.DataObject = "d_recordatorios_datastore"

lds_dias_vencidos.SetTransObject(Sqlca)

//Se ejecuta la Rutina

// Se detruye DataStore al momento de liberarlo de Memoria

destroy lds_dias_vencidos

string s_parametro1,s_parametro2

s_parametro1="valor"

DECLARE proc1 PROCEDURE FOR sp_stored_procedure

/*

donde

"proc1"" es el nuevo nombre del stored procedure

"sp_stored_procedure" es el nombre real del stored procewdure

*/

@parametro1=:s_parametro1, //se asocia la variable con  el parametro de entrada

@parametro2:=s_parametro2 OUT;  //se asocia la variable con el  parametro de salida

/*nota q  coloke la palabra reservada OUT para specificar q "s_parametro2" es un parametro de salida del stored procedure. En el caso de la variable "s_parametro2" al no colocarle OUT se considera como parametro IN.

Otra cosa, el orden en q declares las variables IN o OUT deben ser en el mismo orden y del mismo tipo q los definistes en tu stored procedure */

EXECUTE proc1;

FETCH proc1 INTO : s_parametro2;

/* en este momento ya tiens almacenado en la variabel de salida "_parametro2" el valord e retorno del stored procedure*/

CLOSE proc1;

DECLARE  sp_procedure PROCEDURE FOR eje.usp_Status

@opcion  = 1,

@status = 0

using sqlca;

EXECUTE sp_procedure ;

FETCH sp_procedure INTO :valor, :status;

DO WHILE sqlca.sqlcode = 0

      Messagebox("Resultado",string(valor)+" " +string(status))

      FETCH sp_procedure INTO :valor,:status;

LOOP

CLOSE sp_procedure;

integer valor, status, opcion, valores

opcion = 1

valores = 0

DECLARE  sp_procedure PROCEDURE FOR tsr.usp_S_tb_cat_StatusCheque :opcion, :valores using sqlca;

EXECUTE sp_procedure ;

FETCH sp_procedure INTO :valor, :status;

DO WHILE sqlca.sqlcode = 0

      Messagebox("Resultado",string(valor)+" " +string(status))

      FETCH sp_procedure INTO :valor,:status;

LOOP

CLOSE sp_procedure;