Re: Define *DEC Data Area in /free

[dlclark@xxxxxxxxxxxxxxxx]

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 02/14/2017 11:42:09 
AM:
> I've been trying for 30 minutes to get a data area defined as numeric.
>
> The Data Area is defined as *DEC, length 8,0.
>
> Here is my code that compiles.  When I execute I get RNX0411....
> "data area was defined to be of type *CHAR and length 8."
>
> Here is my definition
> /free
>   dcl-ds lcaNxtId dtaara;
>      reckey zoned(8:0);
>   end-ds;
> /end-free
>
> I tried zoned(8:0) on dcl-ds but that's not allowed.

        The first problem is that a *DEC data area is packed-decimal in 
RPG -- not zoned decimal.


Sincerely,

Dave Clark