RE: subprocedure questions

["Rick DuVall" <R_C_DuVall@xxxxxxxxxx>]

I would first remove the 'Value' from the parms. Passing by value does not
allow returning changed values.

Regards

Rick DuVall
Systems Manager
Dealer's Auto Auction of Okc, Inc.
Rick@daaokc.com <mailto:Rick@daaokc.com>
(405) 947-2886


> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> Behalf Of D B
> Sent: Thursday, November 07, 2002 7:53 AM
> To: rpg400-l@midrange.com
> Subject: subprocedure questions
>
>
> I'm an old hand at RPG-IV coding, but a newbie with
> subprocedures.  I'd like to isolate a new subroutine
> into a subprocedure, mostly for isolating the
> subprocedure's variables but also to get started in
> using procedures.  I have glossed over the
> easy-to-read-NOT F.M., in fact, followed an example of
> a subprocedure it provided.
>
> I have a working version of a very simple program
> using the SUBROUTINE; this program works.  I copied
> the source into another source and converted the
> subroutine into a SUBPROCEDURE, and got it to compile
> after several mods, but the results from the
> subprocedure are not coming back to the main module.
>
> Here's the procedure definition and the CALLP in the
> main module:
>
>      D CVTA2N          PR
>      D   ACGAMT                      10A   VALUE
>      D   N_ACGAMT                     8S 2 VALUE
>      D   Z_AMTERR                    30A   VALUE
>
>      C    .......   CALLP     CVTA2N(ACGAMT :
>                                      N_ACGAMT :
>                                      Z_AMTERR )
>
> Here's the procedure module:
>
>      P CVTA2N          B
>      D CVTA2N          PI
>      D   ACGAMT                      10A   VALUE
>      D   Z_ACGAMT                     8S 2 VALUE
>      D   Z_AMTERR                    30A   VALUE
> <snip>
>      C    .........  EVAL      Z_ACGAMT = N_ACGAMT
>      C    .........  RETURN
>      P                 E
>
> I am attempting to return the values for Z_ACGAMT and
> Z_AMTERR back to the main module, but am getting
> nothing.
>
> Any hints?
>
> TIA, Dan
>
> __________________________________________________
> Do you Yahoo!?
> U2 on LAUNCH - Exclusive greatest hits videos
> http://launch.yahoo.com/u2
> _______________________________________________
> 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.