こんばんは。キーワード「ストアド」や「OUT」で検索し、
1日過去ログ読みまくりましたが、どれもしっくりこず、
こんがらがるばかりで、ギブアップしました。
やりたいことは、PB側Functionにてストアドを実行し、
ストアド内で値を判断して、メッセージをユーザーに出力したいのです。
エラーではなく、メッセージです。

PB側オブジェクトFunction
[f_sp_test]  int  result
             string get_message
    DECLARE cur_sp PROCEDURE FOR sp_test
            @区分       = :para_kubun,
            @部署コード  = :para_hokan,
            @No         = :para_no,
   @result     = :result OUTPUT,
   @message    = :get_message OUTPUT
            ;
    EXECUTE cur_sp  ;

    IF sqlca.sqlcode = -1 THEN
MessageBox(\"sp_test error\",sqlca.sqlerrtext,StopSign!)
ROLLBACK ;
return FALSE
     ELSE
          Fetch cur_sp 
  Into :get_message;
          close cur_sp;
messagebox(\"sp_test\",get_message)
    END IF
-------------------------------------------------------------------
ストアドプロシジャ 
[sp_test]
CREATE PROCEDURE sp_test
    @区分            int
   ,@部署コード      char(6)
   ,@No             CODE
   ,@result          int=0        output
   ,@message         varchar(255) output
AS
begin
    declare @依頼区分 int

     select  @依頼区分  =  区分1
      from  部署マスタ
     where  部署コード   =  @部署コード
    if  @依頼区分  <>  2        
    begin
         select @result = 1
                ,@message = \'部署コード\' + @部署コード + \'は処理対象外です\'
        return
    end
一応こんな感じで試してはみたのですが、
PBデバックにて、どちらの変数にも値は入りませんでした。
本来ならば、SQLの掲示板に行くべきかもしれませんが、
PBとストアドの受け渡し方で約束事などあれば、教えてください。
よろしくお願いします。