Adding a procedure to an existing program

["daparnin@xxxxxxxxxxxxxxxxxx" <DAParnin@xxxxxxxxxxxxxxxxxx>]

This is a basic question about how to add a procedures to a program.  I
have a one-shot program that's importing some data.  The fields being
imported are all alpha and some require conversion before putting them into
a numeric field.  Everything was going fine using data structures until I
hit a field that has decimal positions.  It might have 0, 1, or 2 positions
to the right of the decimal.  I found the following code in the FAQ
http://faq.midrange.com/data/cache/52.html

My use of procedures so far has been limited to prototyping QCMDEXEC for
use within a RPGLE program.  Can I just copy and paste everything from the
NOMAIN line to the
 p getNumAny       e
line after the last line in my existing program and put the prototype
definition in the D-specs?  Since this is a one-shot program I don't need
to do anything fancy like making it an external procedure.

We are at V5R1.  Thanks.

Dave Parnin
Nishikawa Standard Company
Topeka, IN  46571
daparnin@xxxxxxxxxxxxxxxxxx