Inserting a line in a source member programmatically

[Frank.Kolmann@xxxxxxxxxx]

This shows my age but,
after you have closed the source member you could
sort (FMTDTA) the mbr (use Input over Output)
FMTDTA INFILE((lib/QRPGSRC mbr))
       OUTFILE(lib/QRPGSRC mbr)
       SRCFILE(lib/QFMTSRC) SRCMBR(SORTSRC)
This is the  lib/QFMTSRC SORTSRC specs.
0001.00      HFILE      6A         X
0002.00      FNC   1   6
0003.00      FDC   1   6
0004.00      FDC   7  12
0005.00      FDC  13  92    <<<<<< The 92 may need to change
to match length of your source file records.
Regards
Frank Kolmann

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