1) CRTSRCPF FILE(QTEMP/QWRKSRC) ACCPTH(*KEYED)

2) CPYSRCF FROMFILE(MYLIB/QRPGSRC) TOFILE(QTEMP/QWRKSRC)
FROMMBR(MYPROGRAM) SRCOPT(*SEQNBR) SRCSEQ(1.00 1.00)

3) jetzt kann Dein Tool bis zu .99 Zeilen hinter jeder gelesenen Anweisung in QWRKSRC einfügen

4) Ergebnis nach Prüfung aus QWRKSRC zurück nach QRPGSRC