Re: SMBJOB - with delay

[John Ross <jross-ml@xxxxxxxxxxxxxxx>]

Here is what I do from RPGLE  and SBMJOB does have   SCDTIME

I might have missed some of the code but this should be a start

D SchDate         S               D
D SchTime         S               T

I stop it at 210000 and start it up the next day  and do it every 20 minutes

If JobTime > %Time(210000: *HMS) or Day# = 0 or Day# = 6 ;
  SchDate = JobDate + %Days(1) ;
  SchTime = %Time(060530: *HMS) ;
Else ;
  SchDate = JobDate ;
  SchTime = JobTime + %Hours(0) + %Minutes(20) ;
EndIF ;

I adjust it depending on when it is in the hour, I forget why.

Minutes# = %subdt(JobTime:*MINUTES          );
Select ;
When Minutes# >= 00 and Minutes# <= 04 ;
  SchTime = SchTime + %Minutes(04) ;
When Minutes# >= 14 and Minutes# <= 17 ;
  SchTime = SchTime + %Minutes(04) ;
When Minutes# >= 28 and Minutes# <= 32 ;
  SchTime = SchTime + %Minutes(05) ;
When Minutes# >= 56 and Minutes# <= 60 ;
  SchTime = SchTime + %Minutes(09) ;
EndSl ;

cmdString = 'SBMJOB CMD(CALL PGM(SCSCANDLY)) JOBQ(QS36EVOKE)' +
   ' MSGQ(*NONE) JOB(SCSCANDLY) ' +
   ' SCDDATE('+ %EditC(%Dec(%Char(SchDate:*mdy0):6:0): 'X') + ')' +
   ' SCDTIME('+ %EditC(%Dec(%Char(SchTime:*hms0):6:0): 'X') + ')' ;
ExecCmd(%trim(cmdString):%len(%trim(cmdString)));



You could also use SLEP in the called RPGLE program
D sleep           pr            10i 0 ExtProc( 'sleep' )
D  seconds                      10u 0 Value

CallP sleep(300);



On 11/12/2014 3:37 PM, Steinmetz, Paul wrote:
> I’ve run into multiple case where I’m doing a SBMJOB, with either  a cmd or pgm.
> But, for this process to be successful (job I’m submitting from needs to end to rid record locks),  I need to have a 5 second delay.
>
> SBMJOB does not have a built in delay option.
>
> Any thoughts from the group?
>
> Thank You
> _____
> Paul Steinmetz
> IBM i Systems Administrator
>
> Pencor Services, Inc.
> 462 Delaware Ave
> Palmerton Pa 18071
>
> 610-826-9117 work
> 610-826-9188 fax
> 610-349-0913 cell
> 610-377-6012 home
>
> psteinmetz@xxxxxxxxxx<mailto:psteinmetz@xxxxxxxxxx>
> http://www.pencor.com/