🚀 go-pugleaf

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.