Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
171 lines (148 sloc) 3.25 KB
601,100
602,"Bedrock.Chore.TimeOfDay.Run"
562,"NULL"
586,
585,
564,
565,"qQJN=D7XtdwC49UAja;bC8:1q\_P?[@r5upyWiau>wpEUj[Ij<TP^;<vkaEBPra6GJbzCsc[W=UEI1e>BI3uoBFu2_m>2kRn\pk]NVdCyPy7DStjzOeCa2DZDGrs0YleUp6xaGMYhnWx<8yrErfYR4l0yedNU>6`=QK^AxEs=wQa?2@MWcV_?9Z[2`12AFZg=ZQnoCK4"
559,1
928,0
593,
594,
595,
597,
598,
596,
800,
801,
566,0
567,","
588,"."
589,
568,""""
570,
571,
569,0
592,0
599,1000
560,3
pStartTime
pEndTime
pDebug
561,3
1
1
1
590,3
pStartTime,7
pEndTime,22
pDebug,0
637,3
pStartTime,"Time to start running chore from in 24 hr time (at start of hour)"
pEndTime,"Time to finish chore being able to start in 24 hr time (at end of hour)"
pDebug,"Debug Mode"
577,0
578,0
579,0
580,0
581,0
582,0
603,0
572,67
#****Begin: Generated Statements***
#****End: Generated Statements****
####################################################################################
##~~Copyright bedrocktm1.org 2011 www.bedrocktm1.org/how-to-licence.php Ver 3.1.0~~##
#####################################################################################
# This process will quit a chore if the day of the week index does not validate against the week parameter.
### Constants ###
cProcess = 'Bedrock.Chore.TimeOfDay.Run';
cTimeStamp = TimSt( Now, '\Y\m\d\h\i\s' );
sRandomInt = NumberToString( INT( RAND( ) * 1000 ));
cDebugFile = GetProcessErrorFileDirectory | cProcess | '.' | cTimeStamp | '.' | sRandomInt ;
### Initialise Debug ###
If( pDebug >= 1 );
# Set debug file name
sDebugFile = cDebugFile | 'Prolog.debug';
# Log start time
AsciiOutput( sDebugFile, 'Process Started: ' | TimSt( Now, '\d-\m-\Y \h:\i:\s' ) );
# Log parameters
AsciiOutput( sDebugFile, 'Parameters: pStarttime: ' | NumberToString ( pStarttime) );
AsciiOutput( sDebugFile, ' pEndtime: ' | NumberToString ( pEndtime) );
AsciiOutput( sDebugFile, '' );
EndIf;
################################
##~~ Check whether to run: do not run during overnight batch window
sMinute = TIMST(NOW, '\h:\i:00');
vTimeNow = StringToNumber(SubSt(sMinute, 1, 2));
bQuit = 0;
IF( pStartTime = 0 % pEndTime = 0 % pEndTime <= pStartTime );
# time exclusion parameters are incorrect so we ignire them
ElseIF( vTimeNow < pStartTime % vTimeNow > pEndTime );
# exclusion params are OK and we are in the exclusion zone do not execute Data tab, proceed directly to Epilog
bQuit = 1;
Else;
# exclusion params are OK and we are not in the exclusion zone, proceed as normal
EndIF;
If( pDebug >= 1 );
AsciiOutput( sDebugFile, 'Time is: ' | sMinute );
EndIf;
If( bQuit = 1 );
If( pDebug >= 1 );
AsciiOutput( sDebugFile, 'Chore will quit.' );
# Log finish time
AsciiOutput( sDebugFile, 'Process Finished: ' | TimSt( Now, '\d-\m-\Y \h:\i:\s' ) );
EndIf;
If( pDebug <= 1 );
ChoreQuit;
EndIf;
EndIf;
573,3
#****Begin: Generated Statements***
#****End: Generated Statements****
574,3
#****Begin: Generated Statements***
#****End: Generated Statements****
575,3
#****Begin: Generated Statements***
#****End: Generated Statements****
576,CubeAction=1511 DataAction=1503 CubeLogChanges=0
930,0
638,1
804,0
1217,0
900,
901,
902,
938,0
937,
936,
935,
934,
932,0
933,0
903,
906,
929,
907,
908,
904,0
905,0
909,0
911,
912,
913,
914,
915,
916,
917,0
918,1
919,0
920,50000
921,""
922,""
923,0
924,""
925,""
926,""
927,""