Re: Declaring a *dec data area

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