Re: Passing decimal data

["Francis Lapeyre" <flapeyre@xxxxxxxxx>]

You can't use INZ on an *ENTRY parameter. From
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/topic/books_web/c0925085362.htm#HDRDINZ
:

>  A data structure, data-structure subfield, or standalone field defined
> with the INZ keyword cannot be specified as a parameter on an *ENTRY PLIST.
  On Fri, Jun 6, 2008 at 10:53 AM, Booth Martin <booth@xxxxxxxxxxxx> wrote:

> We haven't seen the code, but I w0nder how the parm is defined in the
> RPG program?   Sometimes I've found that if I use the "INZ" keyword on
> the D-spec where I define the numeric parm, a lot of surprises disappear.
>
> Michael Soucy wrote:
> > I'm looking for some help with passing decimal data from a CL to a RPG
> program.  I have a CL program where it brings up a green screen display file
> (prompt screen) and asks the user to enter in a couple of fields.  One of
> the fields is a 2 digit decimal field.  Once the data is entered I would
> like to pass the data to a series of CLs that are submitted to batch, and in
> turn pass the data to a couple of RPG programs.  When I run my CL I get a
> decimal data area in the RPG program.  The parameter field in my RPG program
> is defend as 2 digit packed decimal field.  The paramter in the CL program
> that calls the RPG program is defined is 2 digit decimal field.  I know this
> should be something simple, but I can't for the life of me figure out what
> I'm doing wrong.  Any ideas where I'm going wrong?
> >   Michael Soucy
> >   michaelsoucy@xxxxxxxxxxx
> --
> ---------------------------------
> Booth Martin
> http://www.Martinvt.com <http://www.martinvt.com/>
> ---------------------------------
>
> --
> 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.