Re: Technique critique?

[Charles Wilt <charles.wilt@xxxxxxxxx>]

Consider using a lock on the data area, as opposed to checking it's
contents...

If you want the interactive program to be able to run if the batch job
crashes and doesn't update the value in the data area.

Charles

On Wed, May 18, 2016 at 2:45 PM, Bob Cagle <bcagle@xxxxxxxxxxx> wrote:

> This is more of a CL programming question:
>
> Background:  I have an interactive program that I need to have NOT run
> while a specific batch job is running.  Currently the batch job updates a
> data area with a flag at the start of the job and then clears it at the
> end.  Interactive jobs can then check for this flag before running.
>
> I have this code in my CL:
>
> CHECK:
> /* Check data area to see if job is running */
> Rtvdtaara DataArea rtnvar(&Check)
> If (&Check = '1') then( DO )
>
>   /* wait 30 seconds and then try again */
>  Dlyjob dly(30)
>   Goto CHECK
> ENDDO
>
>
> The GOTO is bothering me, so the question is - would you code this
> different?  This seems simple and straight-forward, but in your opinion is
> there a better way?
>
> Thanks
>
> Bob Cagle
> IT Manager
> Lynk
>
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.