RE: Technique critique?

Yes - this. I thought I remembered the DOxx commands being added to CL. I am on 7.1 so I do have access to these. Definitely changing it to a DOWHILE.

Thanks
Bob Cagle

-----Original Message-----
From: Glenn Gundermann

Hi Bob,

You could use something like:

CHGVAR &CHECK '1'

DOWHILE COND(&check = '1')
RTVDTAARA DataArea rtnvar(&Check)
IF COND(&CHECK = '1')
DLYJOB DLY(30)
ENDIF
ENDDO

By the way, you might consider something more meaningful than '1', e.g. 'IN USE'.

Yours truly,
Glenn Gundermann