Re: Record Number / RPG cycle

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

M
Hello Carl,

And exactly what happens to your incremental count when the file contains 
deleted records?

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      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
//--- forwarded letter -------------------------------------------------------
> X-Mailer: Microsoft Outlook CWS, Build 9.0.2416 (9.0.2910.0)
> Date: Wed, 16 Feb 2000 19:23:05 -0330
> From: "Carl Pitcher" <cpitcher@roadrunner.nf.net>
> To: RPG400-L@midrange.com
> Reply-To: RPG400-L@midrange.com
> Subject: Record Number / RPG cycle
> Importance: Normal

> 
> Maybe I can be officially included in the "old geezer" section for this
> reply ... if you define your file as input, primary and don't specify key,
> just set up a counter as the cycle processes the file sequentially and
> you've got yourself the record number in ascending sequence.  Without using
> the cycle,  an alternative method is to use the file information data
> structure (binary 397 - 400) for the relative record number.  This method
> would probably force most of us to get out the manuals for the INFDS layout.
> It's a matter of choice but let's not get rid of the cycle without coming up
> with a new name for RPG.  Suggestions for a new name anyone?
> 

+---
| 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
+---