RE: Adding a procedure to an existing program

Charles,

I was thinking the same thing this morning as I was driving to work.  We
are currently at V5R1 on this box and plan to upgrade in July to V5R3 but I
could well have another use for this routine in the mean time.  This is my
first attempt at attaching procedures.  I seem to remember a post that said
to get started use procedures in place of subroutines.  Once I see that
it's working as part of the main program (a subprocedure?) I will try to
break it out into its own module (a service program?).  Don't worry, I
won't throw the opportunity away.

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





 

                      "Wilt, Charles"

                      <CWilt@xxxxxxxxxxx        To:       RPG programming on
the AS400 / iSeries               
                      m>
<rpg400-l@xxxxxxxxxxxx>@SMTP@CTB                              
                      Sent by:                  cc:       (bcc: David A
Parnin/Topeka/NISCO/SPCO)              
                      rpg400-l-bounces@m        Subject:  RE: Adding a
procedure to an existing program        
                      idrange.com

 

 

                      03/24/2005 08:23

                      AM

                      Please respond to

                      RPG programming on

                      the AS400 /

                      iSeries

                      <rpg400-l@midrange

                      .com>

 




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.
>
>

--
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.