RE: SBMJOB - with delay

I've had to do this type of thing often enough that I just wrote an RPG
program that calculates the future time and returns that to my CL programs
and does a SBMJOB with SCDTIME of the calculated value. Just pass the
current time (or time of your choosing) and the number of minutes to skip
(or you can change the code for seconds if needed)

http://code.midrange.com/f4d6991214.html

Then i just call it to get the time
CHGVAR &SKIPAHEAD '5'
CALL GETTIME PARM(&TIME &SKIPAHEAD)

SBMJOB CMD(VRYCFG N1910BGP *CTL *ON) JOB(N1910BGP) SCDTIME(&TIME)
SBMJOB CMD(VRYCFG N1910GIP *CTL *ON) JOB(N1910GIP) SCDTIME(&TIME)

Thanks,
Tommy Holden



From: "Steinmetz, Paul" <PSteinmetz@xxxxxxxxxx>
To: "'Midrange Systems Technical Discussion'"
<midrange-l@xxxxxxxxxxxx>
Date: 11/12/2014 02:50 PM
Subject: RE: SMBJOB - with delay
Sent by: "MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx>



Alan,

Good thought, but that would work.
I should have clarified, I'm actually doing a HLDJOBJS, which is changing
the status of the AJS (advanced job scheduler) from *READY to *HOLD
SBMJOB CMD(HLDJOBJS JOB(&JOBNAME)) JOB(HLDJOBJS)
The intermittent problem is that HLDJOBJS failed because the AJS record
was still in use QUSRIJS/QAIJSMST
Record 40 in use by job 545328/CPASFTPC/BRCSFTBCS

Paul

-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
Alan Campin
Sent: Wednesday, November 12, 2014 3:41 PM
To: Midrange Systems Technical Discussion
Subject: Re: SMBJOB - with delay

submit on hold and have submitting job release when it is ready?

On Wed, Nov 12, 2014 at 1:37 PM, Steinmetz, Paul <PSteinmetz@xxxxxxxxxx>
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/


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at
http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.