Re: Declaring a *dec data area

[Brian Parkins <goodprophet.bp@xxxxxxxxx>]

As others have already indicated, your problem is (3,2) - should be 
(3:2). Zoned or Packed for OVRHDR makes no difference; the following 
works just fine:

**Free
   Dcl-S DtaaraVar1 Packed(5:2) Dtaara('TSTDECDTA');
   Dcl-S DtaaraVar2 Zoned(5:2) Dtaara('TSTDECDTA');

   In DtaaraVar1;
   In DtaaraVar2;

   *InLR = *On;

   Dump(A);
   Return;

where,
CRTDTAARA DTAARA(*CURLIB/TSTDECDTA) TYPE(*DEC) LEN(5 2) VALUE(123.45) 
TEXT('Decimal Data Area')

The Dump Listing shows,
 NAME                  ATTRIBUTES           VALUE
 DTAARAVAR1            PACKED(5,2) 123.45           '12345F'X
 DTAARAVAR2            ZONED(5,2) 123.45           'F1F2F3F4F5'X



On 28/06/2018 21:41, Alan Shore wrote:
> Hi everyone
> We are on V7r1
>
> I am trying to declare a data area that is created as *DEC (3,2)
> I tried the following
> dcl-s Ovrhdr      packed(3,2) dtaara('OVRHDTAARA');
> But that received a compile error of
>
> *RNF3402 20 a      012200  Length entry is not valid; defaults to blanks.
> Pointing to the 3,2 in the compile listing
>
> Anyone know what I am doing wrong?
>
> As always - all answers gratefully accepted
>
>
> Alan Shore
> E-mail : ASHORE@xxxxxxxx
> Phone [O] : (631) 200-5019
> Phone [C] : (631) 880-8640
> 'If you're going through hell, keep going.'
> Winston Churchill