RE: Adding a procedure to an existing program

Dave,

You wouldn't want to copy the nomain line, otherwise yes that would work.

BUT, please reconsider.  This is a perfect example of a procedure that should 
be in a service program.  Sure, you say you only need it this one time, but 
unless you are upgrading to v5r3 next week, I'd be willing to bet you'll need 
it again.

Even if you do upgrade, this may come in handy.

You are throwing away an excellent opportunity here.

Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
> daparnin@xxxxxxxxxxxxxxxxxx
> Sent: Wednesday, March 23, 2005 4:20 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Adding a procedure to an existing program
> 
> 
> 
> 
> 
> 
> 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
> 
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
>