Power Builder - PowerBuilder Recuperar datos de un procedimiento

Net = MessageBox("Generar ","Esta Seguro de generar la partida contable ....",Exclamation!, OKCancel!,1)

IF Net = 1 THEN

    String clasif_partida

    ifecha_partida = Date(em_fecha_partida.value)

    iganio = year(ifecha_partida)

    igmes = month(ifecha_partida)

    sqlca.autocommit = false

    clasif_partida='D'

    DECLARE Emp_proc procedure for dbo.generar_partidas_planilla_patronal

        @anio =:iganio,

        @mes_planilla =:igmes,

        @cod_empre =:g_empresa,

        @fecha_partidad =:ifecha_partida,

        @clasif_partida =:clasif_partida using sqlca;

    execute Emp_proc  ;

    if sqlca.sqlcode<>0  and sqlca.sqlcode<>100 then

        messagebox("Revisar","Error al realizar la contabilidad de la planilla de aportaciones patronales :"+string(sqlca.sqlcode)+" "+sqlca.sqlerrtext)

        rollback using sqlca;

        sqlca.autocommit = true

        return

    else

        messagebox("OK","partida generada con exito")

        FETCH Emp_proc INTO : clasif_partida,:numero_partida;

        commit using sqlca;

    end if

    dw_1.settransobject(sqlca)

    dw_1.retrieve(g_empresa,numero_partida,datetime(ifecha_partida),'D')

end if

sqlca.autocommit=true