Re: Inserting a line in a source member programmatically

[Scott Klement <klemscot@xxxxxxxxxxxx>]

>
> We are trying to search through all our program source members looking
> for a specific file, and if found, insert a line of source via an RPGLE
> program.  When writing the new line of source, we set the sequence
> number (SRCSEQ)to be between the two lines where we want to add the new
> line.

The sequence numbers don't really mean anything.  They're just stored in
the record so that it can "remember" them for the next time you use SEU.

> When the program ends and we look at the source via SEU, the new
> lines are always at the end.  The system automagically resets the
> sequence # of the new lines.  How do we get around this?

Write the records to the member in the order in which you'd like them
to appear.

While you're reading the member (you must be reading it in order to
search it, right?) write each record to a work space of some type (you can
use an array, a work file, a user space, whatever you like)

When you find the line where you need to insert another line, write that
extra line to the work space.

Once you've written the whole member to the work space, and inserted the
appropriate new source lines, CLRPFM the original member, and copy the
data back.

Or -- if you prefer -- use CPYF to put them back.

Either way, be careful.  Back up the file before you try running your
program the first time :)