Re: Inserting a line in a source member programmatically

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxxxxxxxxxxxx>]

David, 2 methods - I recommend the second.

1. You could use a QMQRY to

     select * from sourcefile order by srcseq

When you use STRQMQRY, make the output be the source file and member you 
are sorting - it'll replace it in place.

Yes, very scary - be careful!!!!!!!

You need an override to the member before running the STRQMQRY.

2. But another, safer, gentler way is to use PDM option 25 with F13. Then, 
once the file name is found, run a macro that does 2 back tabs, types 'i', 
does an [enter], types in the line you want, does an [enter], then does a 
[pf16] to find further instances, if any. Once you find no more, press F3 
and continue merrily on your way.

HTH

Vern

At 03:18 PM 3/26/2003 -0500, you wrote:
> 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.  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?
>
> David Smith
> Tri-State Hospital Supply Corp.
> IT Consultant
> dsmith@xxxxxxxxx
> 517.546.5400