Re: Technique critique?

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.