Automate Scheduler Using Macros

Chapter 6: PropertiesExampleThis example demonstrates the use of the PurgeComplete andPurgeCompletedAfter properties of the Options objectSub Main()Dim objSchedApp As ObjectDim objOptions As ObjectDim intResponse As IntegerDim strQualifier As StringSet objSchedApp = CreateObject("Cognosbatcher.Application")Set objOptions = objSchedApp.OptionsWith objOptions'PurgeCompleted is a Boolean propertyIf .PurgeCompleted ThenstrQualifier = ""ElsestrQualifier = " not"End IfintResponse = MsgBox("Scheduler currently is " & _strQualifier & " configured to automatically purge " & _"completed tasks. Do you wish to toggle this setting? " & _,259,"Toggle automatic purging?")If intResponse = 6 Then.PurgeCompleted = Not(.PurgeCompleted)End IfIf .PurgeCompleted Then'PurgeCompletedAfter is an integer value.PurgeCompletedAfter = Val(InputBox("Scheduler is " & _"currently configured to purge completed tasks " &_"automatically after" & Str(.PurgeCompletedAfter) & _"days. Type in a new value or press ENTER to accept " & _"the current value.", "Automatic purging of completed " & _"tasks",.PurgeCompletedAfter))End If.SaveEnd WithSet objOptions = NothingSet objSchedApp = NothingEnd SubRecurCyc PropertySyntaxSchedule.RecurCycApplies ToScheduleDesriptionSets or returns the frequency number for a recurring task regardless ofunit.112 Automate Scheduler Using Macros