Re: parsing a numeric field (timings)

Same thing here.  I even added another loop to test splitting the dollars & 
cents using a data structure AND another loop using %EDIT to convert to char 
and 2 SUBST commands to split.

I tried them all using 100,000  500,000   1,000,000  and 5,000,000 
iterations.

At lower iterations, there is no significant difference between the Z-ADD 
loop, the MOVE loop, & the DATA STRUCTURE loop.  But the %EDIT w/SUSTR loop 
lags behind quite a bit.

THE FINALS AT 5,000,000 ITERATIONS
Tied for 1st
#1  Z-add (3 seconds)           (2 lines of code)
#1  Data Structure (3 seconds)  (5 lines of code)
#2  MOVE & MOVEL  (6 seconds)
#3  %EDIT & SUBST  (28 seconds)

Well, this has been fun, but I should get some work done.

>From: "Simon Coulter" <shc@flybynight.com.au>
>Reply-To: RPG400-L@midrange.com
>To: RPG400-L@midrange.com
>Subject: Re: parsing a numeric field (timings)
>Date: Sun, 22 Apr 01 08:54:20 +1000
>
>M
>Hello James,
>
>Your code sends an inquiry message.  You will see three messages during
>the run but if you look at them from QCMD (or the joblog) you'll see six
>messages -- an inquiry message results in the sender copy being sent to
>the same queue.  The order is Sender Copy, Inquiry, Sender Copy, Inquiry,
>Sender Copy, Inquiry, etc.
>
>Are you sure you are not looking at the Inquiry for MIDLTIME, the Sender
>Copy for STOPTIME, and the Inquiry for STOPTIME?
>
>Without wishing to enter yet another pissing contest I ran your code
>unmodified on my 170-2291 and the entire program finshed in less than a
>second thus STARTTIME, MIDDLETIME, and STOPTIME were identical.
>
>I increased the loop value (and the size of COUNT -- oops!) and ran each
>loop 100,000 times resulting in 0 seconds elapsed for the first loop and 1
>second elapsed for the second loop on the first run and 0 seconds elapsed
>for both loops on each subsequent run.
>
>I ran it again for 1,000,000 iterations and got 1 second elapsed for the
>first loop and 3 seconds elapsed for the second loop.  These numbers were
>consistent across multiple runs.
>
>Regards,
>Simon Coulter.
>
>«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
>«» FlyByNight Software         AS/400 Technical Specialists       «»
>«» Eclipse the competition - run your business on an IBM AS/400.  «»
>«»                                                                «»
>«» Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\   «»
>«» Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /   «»
>«»                                                           X    «»
>«»               ASCII Ribbon campaign against HTML E-Mail  / \   «»
>«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
>+---
>| This is the RPG/400 Mailing List!
>| To submit a new message, send your mail to RPG400-L@midrange.com.
>| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
>| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator: 
>david@midrange.com
>+---

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---