$! MONTHLY_PROCESSING.COM
$! Note: Define the following logicals in SYLOGICALS.COM:
$!
$! ARCH$DIR
$!      Directory to contain Archived log files
$!
$! See if we've been restarted
$!
$ SCHED_HOUR == F$CVTIME(,,"HOUR")
$ SCHED_WKDY == F$CVTIME(,,"WEEKDAY")
$ SCHED_MTHDY == F$CVTIME(,,"DAY")
$ SCHED_MONTH == F$CVTIME(,"ABSOLUTE","MONTH")  ! Use DD-MMM-YYYY format
$ SCHED_YEAR == F$CVTIME(,,"YEAR")
$ if $RESTART 
$ then 
$   if f$type(BATCH$RESTART) .nes. "" 
$   then 
$     request/TO=CENTRAL "Restarting MONTHLY_PROCESSING at step
''BATCH$RESTART'"
$     goto 'BATCH$RESTART
$   endif
$ else
$   request/TO=CENTRAL "Restarting MONTHLY_PROCESSING from beginning."
$ endif
$!
$! Close system log files and move to archive area
$!
$ @TASM$COM:CUTTER