🚀 go-pugleaf

Oops , I meant EXECIO 1 DISKR in the second part and i to be 1000 or so
Never post an untested program (alas I can't any more :-( )
Thanks,
Walter

---- "Brenton schrieb:
> Walter,
>
> Here are the results of your test:
>
> 07:28:33
> 10000 rc=0
> 07:28:33
> 1
> 07:28:33
>
> So I changed your time() to time('L') and got:
>
> 07:29:52.908970
> 10000 rc=0
> 07:29:52.947868
> 1
> 07:29:52.986289
>
> Hope this helps
>
>
> Ren
>
>
> -----Original Message-----
> From: TSO REXX Discussion List [mailto:TSO-REXX@VM.MARIST.EDU] On Behalf Of Walter Pachl
> Sent: Wednesday, February 13, 2013 7:15 AM
> To: TSO-REXX@VM.MARIST.EDU
> Subject: [TSO-REXX] Looking ahead in large input files
>
> Can some kind soul please run this program in TSO and show us/me the output?
>
> /* REXX */
> "ALLOC FI(I1) DA(some large data set) SHR REUSE"
> Say time()
> 'EXECIO 10000 DISKR I1 (STEM L. FINIS'
> Say l.0 'rc='rc
> Say time()
> "ALLOC FI(I2) DA(the same data set) SHR REUSE"
> Do i=1 To 10000
>   'EXECIO 10000 DISKR I2 (STEM L.'
>   If rc<>0 Then Leave
>   End
> Say i-1
> 'EXECIO 0 DISKR I2 (FINIS'
> Say time()
>
> Walter (being just curious)
>
> ----------------------------------------------------------------------
> For TSO-REXX subscribe / signoff / archive access instructions, send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX
>
> The information contained in this message is proprietary and/or confidential. If you are not the intended recipient, please: (i) delete the message and all copies; (ii) do not disclose, distribute or use the message in any manner; and (iii) notify the sender immediately. In addition, please be aware that any message addressed to our domain is subject to archiving and review by persons other than the intended recipient. Thank you.

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX