Re: Data Decimal error - already checked midrange.com archives

Thanks for all your help.  I chose the easy way out and went around the
problem and passed all the parms as *char.

Frank

----- Original Message -----
From: "Barbara Morris" <bmorris@ca.ibm.com>
Newsgroups: gmane.comp.lang.as400.rpg
To: <rpg400-l@midrange.com>
Sent: Monday, June 03, 2002 12:29 PM
Subject: Re: Data Decimal error - already checked midrange.com archives


> rob@dekko.com wrote:
> > You are trying to pass a binary value into a 1S0 value.  Try:
> > 1)  Declaring like variables
> > 2)  Changing your *ENTRY to a prototyped interface and using CONST on
all
> > variables not being passed back to the CLP.
>
> At first I thought it was passing a binary value too, but the %binary
> assignment in the CL is setting the *DEC value to a valid packed value.
>
> D P01APPIDIN      S                1  0
> DCL        VAR(&PAPPIDIN)    TYPE(*DEC)    LEN(1 0)
>
> The RPG definition declares a packed(1,0) value that matches the CL *DEC
> 1 0 definition.
>
> Frank, are you sure you have this form of the definition of P01APPIDIN
> in the failing program?  I can only repeat what Buck said, to check your
> cross reference.  If I hadn't seen your D spec, I would have guessed
> that the definition of P01APPIDIN was coming from an
> externally-described data structure which defined it as zoned.
>
>
> _______________________________________________
> 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.
>