Question reusing some code

I'm trying to create new function using some existing code. This was a one
off program to write locations to a Location master.

The program does this for a range of locations

buildRange('B' : 9 :01: 9:30:'A' );

Buildrange is a procedure in the same program. It's definition is:

P BuildRange B
D BuildRange PI
D let 3A VALUE
D frais 3P 0 VALUE
D frslt 3P 0 VALUE
D toais 3P 0 VALUE
D toslt 3P 0 VALUE
d letters 10a value

I would like to use that procedure without copying it to another source
member. I don't think I can do that. What is the best way to reuse the
code? I can copy it out to another source and change this one off program
to reference it also?

Thank you.