Thanks susannah, I was able to pull some logic out of Jodye Yates article. I created a module I call from the RC job that rechedules the current job in 10 minutes or runs the job then re-schedules until next day. It isn't perfect because I get email notices every 4 to 5 minutes when this runs even though I set it for 10 minutes. I played around a bit with some offset minutes, but it wasn't worth the time to perfect.
Because I'm an open source backer here it is.
If there are any improvements worthwhile let me know.
-*********************************************************
-* THIS FEX IS UPDATES THE NEXT RUNTIME IN BOTSCHED
-*********************************************************
-*******************************************************************************
-* Passed to this fex must be the following vars: (otherwise defaulted to zero)
-* &SCHED_ID = this is the schedule ID for the RC job
-* &incDAYS = this is the number of days you want to increment the start time to
-* &incHOURS = this is the number of hours you want to increment the start time to
-* &incMINUTES = this is the number of minutes you want to increment the start time to
-* &incFROMNOW = this indicator is set if you want the start time vars to be added to
-* the current time. Otherwise times are added to 12AM. Values are Y/N.
-** EXAMPLE:
-** EX app/SCHEDRCJ incDAYS='0',incHOURS='2',incMINUTES='30',incFROMNOW='Y',SCHEDid='S1230tfl9003'
-*******************************************************************************
-DEFAULT &incDAYS=0;
-DEFAULT &incHOURS=0;
-DEFAULT &incMINUTES=0;
-DEFAULT &incFROMNOW='Y';
-DEFAULT &SCHEDid=' ';
-RUN
-SET &incDAYS_IN_MS=1000 * 60 * 60 * 24 * &incDAYS;
-SET &incHOURS_IN_MS=1000 * 60 * 60 * &incHOURS;
-SET &incMINUTES_IN_MS=1000 * 60 * &incMINUTES;
-SET &incTOTAL_IN_MS=(&incDAYS_IN_MS + &incHOURS_IN_MS + &incMINUTES_IN_MS) / 1000;
-SET &NOWDATE=&YYMD;
-* The following offset is for daylight savings *********************
-SET &OFFSETHOURS = IF &NOWDATE IS-FROM 20070401 TO 20071028 THEN 5
-ELSE IF &NOWDATE IS-FROM 20080406 TO 20081026 THEN 5
-ELSE IF &NOWDATE IS-FROM 20090405 TO 20091025 THEN 5
-ELSE IF &NOWDATE IS-FROM 20100404 TO 20101031 THEN 5
-ELSE 6;
-********************************************************************
DEFINE FILE BOTSCHED
-* Get (in milliseconds) :
-* the # of days from 19700101 to now
-* the hours/mins from start of today to now
-* the offset for next run time from now
-* Add them together and set equal to next run time.
-*******************************************************************************
-* Getting date diff
DAYSDIFF/D8=DATEDIF('19700101','&YYMD', 'D');
-* Milliseconds to now from the start of 19700101
-* 1000 millisec (1 sec) x 60 (1 minute) x 60 (1 hour) x 24 (1 day) x #ofDays
DAY_DIFF_IN_MS/D32=1000*60*60*24*DAYSDIFF;
-*******************************************************************************
-* Getting hour/min diff
NOWDATETIME_A/HYYMDS=HGETC(8, 'HYYMDS');
NOWDATETIME/HYYMDS=HADD(NOWDATETIME_A, 'minute', -3, 8, 'HYYMDS');
HRMN_FROMNOW_IND/A1 WITH SCHEDULEID='&incFROMNOW';
HOURMIN_DIFF_IN_MS/D12 = IF HRMN_FROMNOW_IND EQ 'N' THEN 0 ELSE (HTIME(8, NOWDATETIME, 'D12.2'));
-*******************************************************************************
-* Getting increment amount until next run time
OFFSET_IN_MS/D12=( &OFFSETHOURS * 60 * 60 * 1000) + ( &incTOTAL_IN_MS * 1000);
-*******************************************************************************
-* Add millisecond times together
NEXTRUNTIME_IN_MS/D13=DAY_DIFF_IN_MS + HOURMIN_DIFF_IN_MS + OFFSET_IN_MS;
-* Pad next run time in MS with zeros
NEXTRUNTIME_NEW/A32 = '0000000000000000000' | (FTOA(NEXTRUNTIME_IN_MS, '(D13c)', 'A13'));
END
SET ASNAMES = ON
TABLE FILE BOTSCHED
PRINT SCHEDULEID NEXTRUNTIME_NEW AS NEXTRUNTIME
-* NOWDATETIME_A
-* NOWDATETIME
-* HOURMIN_DIFF_IN_MS
WHERE SCHEDULEID EQ '&SCHEDid'
ON TABLE HOLD AS SCHDHOLD
END
-IF &RECORDS EQ 0 GOTO NOUPDATE;
-RUN
MODIFY FILE BOTSCHED
FIXFORM FROM SCHDHOLD
MATCH SCHEDULEID
ON MATCH UPDATE NEXTRUNTIME
ON NOMATCH REJECT
DATA ON SCHDHOLD
END
-NOUPDATE
-RUN
wf 767 running on w2k3 srvr