midrange.com code scratchpad |
Name:
calculate schedule time for SBMJOB
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
11/12/2014 08:54:07 pm
|
IP:
Logged
|
|
Description:
calculate schedule time for SBMJOB
|
Code:
- dGetTime pr
- d CurTime 8a
- d Skip_Ahead 6a
-
- dGetTime pi
- d CurTime 8a
- d Skip_Ahead 6a
-
- d Jump_Ahead s 10i 0
- d Work_Time s t
- If Skip_Ahead = ' ';
- Skip_Ahead = '5';
- EndIf;
- Jump_Ahead = %Int( Skip_Ahead );
- Work_Time = %Time() + %Minutes( Jump_Ahead );
- CurTime = %Char(Work_Time:*HMS);
- Return;
|
|
|