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.