pears.MainBackupProcMWF

CREATE PROCEDURE "pears"."MainBackupProcMWF"()
BEGIN
  DECLARE "ValidText" long VARCHAR;
  DECLARE "LogText" long VARCHAR;
  DECLARE "FailureCode" CHAR(20);
  DECLARE "NewLine" CHAR(2);
  RETURN;
  SET "NewLine" = "char"(13)+"char"(10);
  SET "FailureCode" = '00000';
  SELECT "validationresults"() INTO "validtext";
  SET "logtext" = 'Validation: '+"isnull"("validtext",'')+"newline"+'Backup: ';
  commit WORK;
  BEGIN
    backup DATABASE directory 'D:\\IQXDBBackup\\SQLA16BlankDB\\MWF' TRANSACTION log TRUNCATE // Edit here AS appropriate
  exception
    WHEN others THEN SET "FailureCode" = sqlstate
  END;
  IF "failurecode" = '00000' THEN
    SET "logtext" = "logtext"+'Successfully Completed'
  ELSE
    SET "logtext" = "logtext"+"string"('Failed with error ',"failurecode")
  END IF;
  INSERT INTO "iqbackuplog"( "timecompleted","description" ) VALUES( CURRENT TIMESTAMP,"logtext" ) 
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."MainBackupProcMWF" IS 
{CREATE PROCEDURE pears."MainBackupProcMWF"()
BEGIN
  DECLARE "ValidText" long VARCHAR;
  DECLARE "LogText" long VARCHAR;
  DECLARE "FailureCode" CHAR(20);
  DECLARE "NewLine" CHAR(2);
RETURN;
  SET "NewLine" = "char"(13)+"char"(10);
  SET "FailureCode" = '00000';
  SELECT "validationresults"() INTO "validtext";
  SET "logtext" = 'Validation: '+"isnull"("validtext",'')+"newline"+'Backup: ';
  commit WORK;
  BEGIN
    backup DATABASE directory 'D:\\IQXDBBackup\\SQLA16BlankDB\\MWF' TRANSACTION log TRUNCATE // Edit here AS appropriate
  exception
    WHEN others THEN SET "FailureCode" = sqlstate
  END;
  IF "failurecode" = '00000' THEN
    SET "logtext" = "logtext"+'Successfully Completed'
  ELSE
    SET "logtext" = "logtext"+"string"('Failed with error ',"failurecode")
  END IF;
  INSERT INTO "iqbackuplog"( "timecompleted","description" ) VALUES( CURRENT TIMESTAMP,"logtext" ) 
END
}