RE: order out of chaos in a pf

[Colleen Marone <CM@xxxxxxxxxxxxxxxxxxxxx>]

If I understand the problem, you would like to assign numbers
automatically... 1,2,3, etc. Is this correct? You could use a control
file. Here is one I am currently using to assign numbers. It's not
high-tech and this is not a heavy load program.:
 R SRQN                 
   REQN           5  0  
   INCR1          4  0  
 K REQN                 
Use your program to increment Incr1 and move the value into Reqn and use
the value in Reqn for any updates. 
Hope this helps.
Colleen 

> -----Original Message-----
> From: mohammad khan [SMTP:mohammadakhan@yahoo.com]
> Sent: Tuesday, January 12, 1999 12:04 AM
> To:   RPG400-L@midrange.com
> Subject:      order out of chaos in a pf
> 
> hi!
> 
> i'm sitting here thinking over
> a problem i'd like to solve soon.
> 
> it concerns an interactive pgm.
> that is meant to add a sequentially
> assigned number (determined by the 
> pgm) if the user chooses the add
> add function.
> 
> now, i'll be using a pf that i've
> already created. problem is that
> whenever i create my pf's i 
> randomly just type all sorts of
> junk in there. so to begin with,
> my pf does not have any sequential
> numbers in it.
> 
> it may have for example,
> 
> 1, 2, 222, 8000...
> 
> and since this is the case my
> pgm. ought to "fill in the blanks"
> so to speak, you know, and THEN assigning
> numbers sequentially should the 
> user choose the add function.
> 
> regards,
> 
> Mohammad
> 
> 
> 
> _________________________________________________________
> DO YOU YAHOO!?
> Get your free @yahoo.com address at http://mail.yahoo.com
> 
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * *
> * This is the RPG/400 Discussion Mailing List!  To submit a new
> *
> * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe
> *
> * from this list send email to MAJORDOMO@midrange.com and specify
> *
> * 'unsubscribe RPG400-L' in the body of your message.  Questions
> should *
> * be directed to the list owner / operator: david@midrange.com
> *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *