Re: Technique critique?

[Jack Tucky <jacktucky@xxxxxxxxx>]

Don't forget to write a program to clear the data area for when the batch
job fails.

I like to create the data area, have the batch job do an ALCOBJ *EXCL, then
when it ends the object is released.

The interactive program can try to do the ALCOBJ too, and if it receives
CPF1002 it retries.

Jack

On Wed, May 18, 2016 at 3:35 PM, Alan Shore <ashore@xxxxxxxx> wrote:

> CLP can now use
> Dowhile
> Code
> Enddo
>
>
> This is code from an existing program in production
>
> RCVF       RCDFMT(DVS100) OPNID(*NONE)
> Dowhile    COND(&EOF *NE '1')
> CHGVAR     VAR(&CLIB) VALUE(&DVSLB)
> IF         COND(&CLIB *NE 'NHPROD') THEN(CALLSUBR +
>              SUBR(EXSUBR))
> RCVF       RCDFMT(DVS100) OPNID(*NONE)
> MONMSG     MSGID(CPF0864) EXEC(CHGVAR VAR(&EOF) +
>              VALUE('1'))
> Enddo
>
> Alan Shore
> E-mail : ASHORE@xxxxxxxx
> Phone [O] : (631) 200-5019
> Phone [C] : (631) 880-8640
> 'If you're going through hell, keep going.'
> Winston Churchill
>
>
> -----Original Message-----
> From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob
> Cagle
> Sent: Wednesday, May 18, 2016 2:46 PM
> To: RPG400-L@xxxxxxxxxxxx
> Subject: 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.
>
> --
> 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.