Index out of Range Array error when adding dummy variable to array value
Marcus
mbeach at vegena.net
Fri Jun 27 12:31:14 PDT 2008
I apologise for not being more clear with what's happening.
When line 43 runs, ii is equal to 7 so it gets past the if, ut is equal to
0, and saleunit[ii] successfully evaluates to 1. Where it breaks is when it
trys to make ut equal to ut + saleunit[ii]. I've found a work around by
declaring a variable named 'placeholder' that is a (3, .0) and changing the
Then on line 43 to read
placeholder = saleunit[ii]; ut = ut + placeholder
This gets rid of the error and everything evaluates correctly allowing the
report to run just fine. The error seems to only appear when I try to add a
dummy variable to an array element and store the result in either the same
dummy variable or another dummy variable. I have to admit that at this
point I really just want to know why this gets an error as everyone I've
talked to about thinks it should work.
Thank you for your advise, it gave me the idea to try using the placeholder.
-Marcus
-----Original Message-----
From: Nancy Palmquist [mailto:nlp at vss3.com]
Sent: Friday, June 27, 2008 11:07 AM
To: Marcus
Cc: filepro-list at lists.celestial.com
Subject: Re: Index out of Range Array error when adding dummy variable to
array value
Marcus wrote:
> Hello everyone,
>
> Thank you for taking the time to look at this.
>
> I am a newcomer to the filePro community and still learning, so please
> keep that in mind as you read this.
> The issue I'm having is that when I try to run the operation 'ut = ut
> + saleunit[ii]' I get the following error.
>
>
> *** A filePro Error Has Occurred ***
>
> Array Index Out of Range: dim salu(12) -- Index: 0
>
> Output Processing
> Line Number: 43
> Process contains a syntax error at position indicated.
>
>
> Here are the declareations of the variables and the lines they are
> declared on.
> dim saleunit[12](3, .0) 'line 5
> ut(5, .0) 'line 8
> ii(2, .0) 'line 8
> wt(5, .0) 'line 8
>
> I have confirmed that the values the variables contain are the
> following just before the operation is run.
> ut = "0"
> ii = "7"
> saleunit["7"] = "1"
> saleunit[ii] = "1"
> ut + saleunit[ii] = "1"
>
> I am able to use a show statement to print all values to the screen
> including the add operation.
> Trying to run the operation 'wt = ut + saleunit[ii]' gives the same
> result as trying to run 'ut = ut + saleunit[ii]'.
>
> I have tried locating a similar error online with no success and after
> spending a couple of days trying to figure this out I've run out of ideas.
>
> I have approached my boss, who has several years experience with
> filePro, with this error. After looking it over, and not seeing the
> cause of the error, he has advised me to present it to the filePro mailing
list.
>
> We are running filePro version 5.0.14R4 on SCO UNIX 5.07.
>
> I have included the table below. The line giving the error is 43.
>
> Thank you again for taking the time to look at this. Any advise
> and/or solutions are greatly appreciated.
>
> I can be reached at mbeach at vegena.net
>
> -Marcus Beach
>
>
> 1 ------- - - - - - - - - - - - - - - -
-
> . If: 'This table takes records from the sort select table
> vWarDenRep .
> Then: 'and processes them for the Warranty denial claims report
> .
> 2 ------- - - - - - - - - - - - - - - -
-
> . If: 'test var
> .
> Then: declare test(1, yesno)
> .
> 3 ------- - - - - - - - - - - - - - - -
-
> . If: 'external vars
> .
> Then: declare extern startdate, enddate .
> 4 ------- - - - - - - - - - - - - - - -
-
> . If: 'arrays
> .
> Then:
> .
> 5 ------- - - - - - - - - - - - - - - -
-
> . If: 'holds unit sales from INV .
> Then: dim saleunit[12](3, .0):za .
> 6 ------- - - - - - - - - - - - - - - -
-
> . If: 'holds unit warrenties from INV .
> Then: dim warunit[12](3, .0):zm .
> 7 ------- - - - - - - - - - - - - - - -
-
> . If: 'engine family var
> .
> Then: ef(20, *, g)
> .
> 8 ------- - - - - - - - - - - - - - - -
-
> . If: 'counting and total vars
> .
> Then: ii(2, .0); ut(5, .0); wt(5, .0); tu(5, .0, g) .
> 9 ------- - - - - - - - - - - - - - - -
-
> . If: 'subtotal vars
> .
> Then: us(4, .0, g); ds(9, .2, g); td(9, .2, g); ua(4, .0, g);
> pc(3, .0, g); tp(3, .0, g)
> 10 ------- - - - - - - - - - - - - - - -
-
> . If: 'test vars
> .
> Then: declare failcd(4, .0, g), partnum(20, allup, g) .
> 11 ------- - - - - - - - - - - - - - - -
-
> . If: failcd ne 12 'if fail code has changed .
> Then: us = "0"; ds = "0"; failcd = 12 'reset subtotal vars .
> 12 ------- - - - - - - - - - - - - - - -
-
> . If: partnum ne 4 'if part number has changed .
> Then: gosub partcng
> .
> 13 ------- - - - - - - - - - - - - - - -
-
> . If: 110 ne "Y" 'if not a duplicate field increment units .
> Then: us = us + "1"; ua = ua +1 .
> 14 ------- - - - - - - - - - - - - - - -
-
> . If: 'add claim cost to subtotal and total and calc % .
> Then: ds = ds + 37; td = td + 37; pc = (us*"100")/tu; tp =
> (ua*"100")/tu.
> 15 ------- - - - - - - - - - - - - - - -
-
> . If: 'end of output processing .
> Then: end
> .
> 16 ------- - - - - - - - - - - - - - - -
-
> datenum. If: 'This gosub takes a date and returns the integer value of
> the .
> Then: ' date's month.
> .
> 17 ------- - - - - - - - - - - - - - - -
-
> . If: 'gosub passed/return vars .
> Then: declare local pdate(10, mdyy/), dnretval(2, .0) .
> 18 ------- - - - - - - - - - - - - - - -
-
> . If: 'gosub internal vars
> .
> Then: declare local bdate(10, mdyy/), edate(10, mdyy/) .
> 19 ------- - - - - - - - - - - - - - - -
-
> . If: 'initialize vars for loop .
> Then: bdate = boy(pdate); edate = addmonth(bdate); dnretval = "1"
> .
> 20 ------- - - - - - - - - - - - - - - -
-
> dnloop . If: 'loops through until month is found .
> Then: 'if pdate not between bdate and edate, increment and loop
> .
> 21 ------- - - - - - - - - - - - - - - -
-
> . If: not (pdate ge bdate and pdate lt edate) .
> Then: bdate = addmonth(bdate); edate = addmonth(edate);
> dnretval = dnretval + "1"; goto dnloop
> 22 ------- - - - - - - - - - - - - - - -
-
> . If:
> .
> Then: return
> .
> 23 ------- - - - - - - - - - - - - - - -
-
> saletot. If: 'this section calculates the number of parts sold for the
> date .
> Then: 'range given
> .
> 24 ------- - - - - - - - - - - - - - - -
-
> . If: 'date holding vars
> .
> Then: declare startmonth(2, .0), endmonth(2, .0) .
> 25 ------- - - - - - - - - - - - - - - -
-
> . If: 'lookup to INV by part number .
> Then: lookup invlk = INV k=4 i=A -npxu
> .
> 26 ------- - - - - - - - - - - - - - - -
-
> . If: not invlk 'if look up fails, display error and exit .
> Then: input popup test "ERROR: PART NUMBER NOT FOUND. CONTACT
> ADMINISTRATOR"; write invlk; close invlk; exit
> 27 ------- - - - - - - - - - - - - - - -
-
> . If: ' get unit sales values from INV file .
> Then: saleunit["1"] = invlk(119); saleunit["2"] = invlk(120) .
> 28 ------- - - - - - - - - - - - - - - -
-
> . If: ' get unit sales values from INV file .
> Then: saleunit["3"] = invlk(121); saleunit["4"] = invlk(122) .
> 29 ------- - - - - - - - - - - - - - - -
-
> . If: ' get unit sales values from INV file .
> Then: saleunit["5"] = invlk(123); saleunit["6"] = invlk(124) .
> 30 ------- - - - - - - - - - - - - - - -
-
> . If: ' get unit sales values from INV file .
> Then: saleunit["7"] = invlk(125); saleunit["8"] = invlk(126) .
> 31 ------- - - - - - - - - - - - - - - -
-
> . If: ' get unit sales values from INV file .
> Then: saleunit["9"] = invlk(132); saleunit["10"] = invlk(131) .
> 32 ------- - - - - - - - - - - - - - - -
-
> . If: ' get unit sales values from INV file .
> Then: saleunit["11"] = invlk(128); saleunit["12"] = invlk(129)
> .
> 33 ------- - - - - - - - - - - - - - - -
-
> . If: ' get unit warranty values from INV file .
> Then: warunit["1"] = invlk(387); warunit["2"] = invlk(388) .
> 34 ------- - - - - - - - - - - - - - - -
-
> . If: ' get unit warranty values from INV file .
> Then: warunit["3"] = invlk(389); warunit["4"] = invlk(390) .
> 35 ------- - - - - - - - - - - - - - - -
-
> . If: ' get unit warranty values from INV file .
> Then: warunit["5"] = invlk(391); warunit["6"] = invlk(392) .
> 36 ------- - - - - - - - - - - - - - - -
-
> . If: ' get unit warranty values from INV file .
> Then: warunit["7"] = invlk(393); warunit["8"] = invlk(394) .
> 37 ------- - - - - - - - - - - - - - - -
-
> . If: ' get unit warranty values from INV file .
> Then: warunit["9"] = invlk(395); warunit["10"] = invlk(396) .
> 38 ------- - - - - - - - - - - - - - - -
-
> . If: ' get unit warranty values from INV file .
> Then: warunit["11"] = invlk(397); warunit["12"] = invlk(398) .
> 39 ------- - - - - - - - - - - - - - - -
-
> . If: 'init vars
> .
> Then: ii = startmonth; ut = "0"; wt = "0"; .
You are assigning ii=startmonth but I do not find where you give
startmonth
the correct value. You need to trace the value of startmonth and see why is
is "0". That is the fault.
Also the condition on line 43 should keep it from failing when ii < "0" or >
"12" . You might want to add spaces around the AND if it is failing with
the condition in place. If you added that to control the error, and you are
still getting the error, I am puzzled.
Nancy
> 40 ------- - - - - - - - - - - - - - - -
-
> . If: endmonth eq "12" 'set end month to next month for loop .
> Then: endmonth = "1"; test = "Y"
> .
> 41 ------- - - - - - - - - - - - - - - -
-
> . If: test ne "Y"
> .
> Then: endmonth = endmonth + "1"
> .
> 42 ------- - - - - - - - - - - - - - - -
-
> . If: 'reset test var
> .
> Then: test = ""
> .
> 43 ------- - - - - - - - - - - - - - - -
-
> stloopa. If: (ii ge "1")and(ii le "12") 'add values for month ii to
> total var .
> Then: ut = ut + saleunit[ii]
> .
> 44 ------- - - - - - - - - - - - - - - -
-
> . If: (ii ge "1")and(ii le "12") 'add values for month ii to
> total var .
> Then: wt = wt + warunit[ii]
> .
> 45 ------- - - - - - - - - - - - - - - -
-
> . If: 'add values for month ii to total var .
> Then: ut = ut + saleunit[ii]
> .
> 46 ------- - - - - - - - - - - - - - - -
-
> . If: ii eq "12" 'if ii is 12, loop back to 1, set test var .
> Then: ii = "1"; test = "Y"
> .
> 47 ------- - - - - - - - - - - - - - - -
-
> . If: test ne "Y" ' if ii was not just reset to 1, increment .
> Then: ii = ii + "1"
> .
> 48 ------- - - - - - - - - - - - - - - -
-
> . If: 'reset test var
> .
> Then: test = ""
> .
> 49 ------- - - - - - - - - - - - - - - -
-
> . If: ii ne endmonth ' if not past end month .
> Then: goto stloopa ' loop back .
> 50 ------- - - - - - - - - - - - - - - -
-
> . If: ' get out of INV file
> .
> Then: write invlk; close invlk
> .
> 51 ------- - - - - - - - - - - - - - - -
-
> . If: 'else values for period totaled and return .
> Then: return ' end saletot
> .
> 52 ------- - - - - - - - - - - - - - - -
-
> partcng. If: 'this runs to set values when the part number changes .
> Then:
> .
> 53 ------- - - - - - - - - - - - - - - -
-
> . If: 'reset vars
> .
> Then: partnum = 4; ua = "0"; td = "0"
> .
> 54 ------- - - - - - - - - - - - - - - -
-
> . If: 'get int value for starting month .
> Then: pdate = startdate; gosub datenum; startmonth = dnretval .
> 55 ------- - - - - - - - - - - - - - - -
-
> . If: 'get int value for ending month .
> Then: pdate = enddate; gosub datenum; endmonth = dnretval .
> 56 ------- - - - - - - - - - - - - - - -
-
> . If: 'get totals from INV
> .
> Then: gosub saletot; tu = ut - wt .
> 57 ------- - - - - - - - - - - - - - - -
-
> . If: 'lookup to get engine family .
> Then:
> .
> 58 ------- - - - - - - - - - - - - - - -
-
> . If: 'return
> .
> Then: return
> .
> 59 ------- - - - - - - - - - - - - - - -
-
> . If:
> .
> Then:
> .
> 60 ------- - - - - - - - - - - - - - - -
-
> . If:
> .
> Then:
> .
>
>
>
>
>
> E-mail message checked by Spyware Doctor (5.5.1.322) Database version:
> 5.10130e http://www.pctools.com/en/spyware-doctor/
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> http://mailman.celestial.com/mailman/listinfo/filepro-list
>
>
--
Nancy Palmquist MOS & filePro Training Available
Virtual Software Systems Web Based Training and Consulting
PHONE: (412) 835-9417 Web site: http://www.vss3.com
E-mail message checked by Spyware Doctor (5.5.1.322) Database version:
5.10130e http://www.pctools.com/en/spyware-doctor/
E-mail message checked by Spyware Doctor (5.5.1.322)
Database version: 5.10130e
http://www.pctools.com/en/spyware-doctor/
More information about the Filepro-list
mailing list