Re: Subprocedure in a module

["Troy Dills" <troyd@xxxxxxxxxxx>]

Are you familiar with Service Programs?

The way I learned was to put all the prototypes in a service
program (I'm assuming you know how to name a prototype)
exit the prototype and compile

Create a program that has the H spec NOMAIN

I use copy books to get the defined prototyped call in my Service Program

Name each procedure just like you would in your main program and when
you are finished compile.

In the RPG Program don't forget to define the Service program in the D specs

In my RPG Program I prefer to use the eval statement to return a value from
a service program example   eval (GetDate : CCYY : MM : DD)

I'm going by memory, I don't have an example right off, but maybe this will
help you.
Thanks
Troy Dills


----- Original Message -----
From: "The TrekTeam" <trekteam@pacbell.net>
To: <rpg400-l@midrange.com>
Sent: Sunday, March 03, 2002 5:31 PM
Subject: Subprocedure in a module


> Hi All,
>
> I'm attempting to learn subprocedures and don't quite get something.
> I've got subprocedures in a single program all figured out, but when it
> comes to a subprocedure in a seperate (nomain)module that's used in the
> entry module, I'm lost.
> Does anybody have a small example that they would like to share?
>
> -or-
>
> Do I need to code the Prototype in the main (entry) module and also in the
> bound (nomain) module?
> Do I need to use the EXTPROC keyword on this Prototype?
> Do I have to call the subprocedure with a CallP? or can I use it like a
BIF?
>
> Hope these questions make sense...
>
> Thanks,
> Capt.j
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>