pears.CollectionDelete [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

====== pears.CollectionDelete ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
create procedure "pears"."CollectionDelete"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  in "pCollectionID" char(20) ) 
result( "pResult" char(250) ) 
begin
  if exists(select * from "collection" where "collectionid" = "pcollectionid") then
    delete from "collection" where "collectionid" = "pcollectionid";
    select '0:~Success'
  else select '1:~Collection not found'
  end if
end
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."CollectionDelete" IS 
{create procedure CollectionDelete 

/* Application Maintained Function / Procedure - DO NOT EDIT*/

(  in pCollectionID char(20) )
result (pResult char(250))
begin
 if  exists(select * from collection where collectionid = pcollectionid) then
     delete from collection where collectionid = pcollectionid;
  select '0:~Success';
  else    select '1:~Collection not found';
  end if ;
end
}
</code>