RE: Compile Time Array...

No, DIM says how many elements are in the array.  PERRCD says how many
elements appear on each line.  Nothing indicates how many lines are
necessary to fill the array.

I confirmed my last post.  The error you're getting is a result of having
another record after your line of state abbs that is not '**' in cols. 1&2

- Dan Bale
(I am *NOT* "Dale"
http://archive.midrange.com/midrange-l/200105/msg00281.html )
SAMSA, Inc.
989-790-0507
DBale@SAMSA.com <mailto:DBale@SAMSA.com>
  Quiquid latine dictum sit altum viditur.
  (Whatever is said in Latin seems profound.)

-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
Behalf Of Kevin Monahan
Sent: Thursday, April 18, 2002 2:32 PM
To: rpg400-l@midrange.com
Subject: RE: Compile Time Array...


If you have all the state codes in 1 line, you should have Dim(1) PerRcd(50)
I believe the DIM keyword tells the compiler how many lines of data are in
the
compile time array.  I suspect the compile has a severity 00 (or 10) message
saying you have not filled the array because it expects 50 lines and only
finds one.
I could be very wrong here, of course, but what have you got to lose except
time? <g>

Kevin Monahan
Sr Programmer/Analyst
JL Hammett Co
781-848-1000 x1114
www.hammett.com


> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> Behalf Of Feador, Jerry
> Sent: Thursday, April 18, 2002 2:18 PM
> To: 'rpg400-l@midrange.com'
> Subject: RE: Compile Time Array...
>
>
> When I include the PerRcd(50) the compile bombs with: Too many records
> provided to initialize array or table; excess entries ignored.
>
>
> -----Original Message-----
> From: Kevin Monahan [mailto:kevin.monahan@hammett.com]
> Sent: Thursday, April 18, 2002 11:20 AM
> To: rpg400-l@midrange.com
> Subject: RE: Compile Time Array...
>
>
> I think you need PERRCD(50)
>
> Kevin Monahan
> Sr Programmer/Analyst
> JL Hammett Co
> 781-848-1000 x1114
> www.hammett.com
>
>
> > -----Original Message-----
> > From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> > Behalf Of Feador, Jerry
> > Sent: Thursday, April 18, 2002 2:10 PM
> > To: 'rpg400-l@midrange.com'
> > Subject: Compile Time Array...
> >
> >
> > Hi All,
> >
> > Can I join the Drain Bread Club?
> > I must be missing something... I'm trying to load a simple array
> > with state
> > abbreviations using compile time data. I'm only getting the
> first element
> > loaded. (?) the rest are blank. What am I missing? Anyone?
> >
> > D abbrev            S                  2        Dim(50) CtData
> >
> > ...<program snip>...
> >
> > **
> > ALAKASAZAR...
> >
> > Jerry L. Feador
> > Programmer/Analyst II
> > Kia Motors America, Inc.
> > (949) 595-5810