pears.IQXNetSetPassword

CREATE PROCEDURE "pears"."IQXNetSetPassword"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "pIQXNetUserID" CHAR(20),IN "pPWD" CHAR(50),IN "pKey" CHAR(50) ) 
BEGIN
  UPDATE "IQXNetUser" SET "password" = "encrypt"("pPWD","pKey"),"PasswordSet" = (IF "length"("trim"("isnull"("pPWD",''))) = 0 THEN 0 ELSE 1 endif) WHERE "IQXNetUserID" = "pIQXNetUserID"
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."IQXNetSetPassword" IS 
{CREATE PROCEDURE IQXNetSetPassword 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN pIQXNetUserID CHAR(20),IN pPWD CHAR(50),IN pKey CHAR(50))
BEGIN
  UPDATE IQXNetUser SET password = encrypt(pPWD,pKey),PasswordSet=(IF LENGTH(TRIM(isnull(pPWD,'')))=0 THEN 0 ELSE 1 endif) WHERE IQXNetUserID = pIQXNetUserID
END
}