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.
midrange.com
