please help stored procedure not executing

My  code is as follows

DECLARE spgetname PROCEDURE FOR spGetName @Customer = :ls_customer, @Type = :ls_type, @CName = :ls_name  OUTPUT USING SQLCA; EXECUTE spgetname ; do while sqlca.sqlcode = 0 FETCH spgetname  INTO :s_message; if sqlca.sqlcode = 0 then MessageBox( "s_message", s_message) end if Loop

I am using pb11.2 and SqlServer snc connection. the procedure is not calling. Even when I am giving wrong procedure name , no error message is coming. Please looking for your help Regards Pol