EncryptOnce

var UserName     = "Fred";
var UserPassword = CAS.EncryptOnce("zorphon");

function DeleteMessage( MessageHandle)
  {
  var Tl = CAS.New();
  CAS.AddTag(Tl,"DELETE_MESSAGE","");
  CAS.AddTag(Tl,"REGISTERED_NAME",UserName);
  CAS.AddTag(Tl,"REGISTERED_PASSWORD",UserPassword);
  CAS.AddTag(Tl,"MESSAGE_HANDLE",MessageHandle);
    // Delete message on this already open session
  Tl = CAS.Send(cInst,Tl);
  LastErrorNum = CAS.GetTag(Tl,"STATUS_NUM",0);
  LastErrorStr = CAS.GetTag(Tl,"STATUS",0);
  CAS.Delete(Tl);
  return( LastErrorNum);
  }