Re: Schecduling a Job Every 2 weeks

[Mark_McCarty@xxxxxxxxxxxxxxx]

Hector,

I use a process in a utility for CHGJOBSCDE.   I call an rpg pgm to get the
new date using the ADDDUR opcode and pass the new date back to use in the
SCDDATE parm.  It has been working well, and I don't have to remember to go
in and change the date manually.

Here is a snippet of the process:

CHGVAR     VAR(&NEWDATE) VALUE(%SUBSTRING(&QDATE 1 2) +
             *CAT '/' *CAT %SUBSTRING(&QDATE 3 2) +
             *CAT '/' *CAT %SUBSTRING(&QDATE 5 2))
CALL       PGM(SETDATE) PARM(&NEWDATE)

CHGJOBSCDE JOB(TIMECHG) ENTRYNBR(000185) CMD(CALL +
             PGM(*LIBL/TIMCHGUTC)) FRQ(*ONCE) +
             SCDDATE(&NEWDATE) SCDTIME('02:00:01') +
             SAVE(*SAME)

Hope this can be of assistance.
Mark A McCarty
Navy Exchange Service Command




                    "Hector Sanchez"
                    <Hector.Sanchez@dch        To:     <MIDRANGE-L@midrange.com>
                    cc.org>                    cc:
                    Sent by:                   Subject:     Schecduling a Job 
Every 2 weeks
                    midrange-l-admin@mi
                    drange.com


                    10/03/2002 05:19 PM
                    Please respond to
                    midrange-l






This is a multi-part message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
I am working WRKJOBSCDE (Work with Job Schedule Entries).  I am trying
to schedule a job to run every other Friday.  I see everyway of
scheduling this (Monthly etc).  But I don't see way to do it every 2
weeks.  Is there a way?





Hector Sanchez

Programmer

Driscoll Children's Hospital



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






***************************defiant************************************
This email and any files transmitted with it are intended solely for
the use of the individual or agency to whom they are addressed. If
you have received this email in error please notify the Navy Exchange
Service Command e-mail administrator.

This footnote also confirms that this email message has been scanned
for the presence of computer viruses.

messaging_support_team@nexnet.navy.mil
**********************************************************************