Mein Weg ist immer dieser:

CPYSRCF in Sicherung Q#Version#SRC
CRTSRCPF QTEMP/QKEYSRC ... ACCPTH(*KEYED)
CPYSRCF nach QTEMP/QKEYSRC mit SRCOPT(*SEQNBR) SRCSEQ(1.00 10.00)
OVR,
CALL TOOL,
DLTOVR,
CPYSRCF zurück mit SRCOPT(*SEQNBR) SRCSEQ(1.00 1.00)

...so auf die Schnelle, aus dem Kopf ;-)