RE: Subprocedure in a module

Captain Peacock,

I think this is what you're after:

Source member 1:
 *-------
D vfyCust      pr            n
D  pr_custnbr               7  0
D cust         s            7  0
C
C           if   vfyCust(cust) = *on
C        **   do something here  **
C           endif
C
C           eval  *inlr = *on
 *-------

Source member 2:
 *-------
H nomain
Fcustmast  if   e       k disk
D vfyCust      pr            n
D  pr_custnbr               7  0

P vfyCust      b           export
D vfyCust      pi            n
D   custnbr                 7  0
C
C   custnbr    chain    custmast
C              if       %found
C                  return       *on
C              else
C              return   *off
C              endif
P vfyCust      e
 *-------

Note:  column positions may be (probably are) off.

Phil

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> Behalf Of The TrekTeam
> Sent: Sunday, March 03, 2002 5:31 PM
> To: rpg400-l@midrange.com
> 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.
>


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com