pears.CollectionDelete

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
}