Comments on: Hooray For Arrays.Part(2)

By: Anand

Anand — Thu, 27 Aug 2009 04:24:55 +0000

Of course, what you are saying is right.
I will mail you the output.

Thanks
AnandhRaj

By: administrator

administrator — Wed, 26 Aug 2009 15:00:30 +0000

Please e-mail your print file and your log file to me at steven@peoplesoftsqr.com. Also, while this is an interesting problem, I’m wondering why you’re trying to read 240 rows into a 100 row array. Our goal now is to debug a program that is designed to fail, to make it fail in the “right” way.

By: Anand

Anand — Wed, 26 Aug 2009 11:27:57 +0000

No it doesnt show any error in log.. instead i tried, what u said by selecting the value from table put it in array. and checked whether value is available.. I works fine to some extent.
Table contain 240 rows & array size 100 but now it prints 92 records only (8 records not printed) and the value of ‘J’ at the end of select statement is not printed.
why it is so..

begin-program
let #j=0
let #i=0
create-array name=emparr size=100
field=eno:number
field=empname:char
field=sall:number

begin-select
empno
ename
sal
put &empno &ename &sal into emparr(#j)
do checkarray
let #j=#j+1
from test_emp
end-select

Print #j (+1) center bold
end-program

begin-procedure checkarray
while #i <= #j
get #eno $empname #sall from emparr(#i)
print #eno (+1,5)
print $empname (,15)
print #sall (,25)
let #i=#i+1
end-while
print ‘ ‘ (+1)
end-procedure

Thanks,
AnandhRaj

By: administrator

administrator — Wed, 26 Aug 2009 05:53:11 +0000

Have you read your log file carefully? You may have an error message when the begin-select loop tries to put into emparr(10), which would stop the program before it executes any print commands.

By: Anand

Anand — Wed, 26 Aug 2009 04:51:21 +0000

Hi,

This is the program I tried for the Array.. test_emp table contain 14 records but but size of the array is 10.

!TO check Array

begin-setup
declare-variable
default-numeric=integer
end-declare
end-setup

begin-program
let #j=0
create-array name=emparr size=10
field=eno:number
field=empname:char
field=sall:number

begin-select
empno
ename
sal
put &empno &ename &sal into emparr(#j)
let #j=#j+1
from test_emp
end-select

while #i < #j
get #eno $empname #sall from emparr(#i)
print #eno (+1,5)
print $empname (,15)
print #sall (,25)
let #i=#i+1
end-while
end-program

Initially I thought that error would be in #j since it is decimal so i made default numeric in begin-setup. After that also it doesnt work, and i tried increasing the size of the array to 14 or more then it works fine…

By: administrator

administrator — Tue, 25 Aug 2009 19:14:14 +0000

Hi Anand,

You read each row from the database table and store some values in the array. You increment the array index either before or after each row. Then you look at values in the array, with an index value that you previously used to store values, and you don’t find anything. That sounds strange. If you use an index value less than zero or greater than 99, you should get a fatal error message that stops the program; it won’t clear the array and continue. Please send me a copy of the code that doesn’t work.

By: Anand

Anand — Mon, 24 Aug 2009 05:35:11 +0000

Hi all..

I tried with concept of Array.. My table consist of more than 500 rows.. I tried with minimum value to size of the array says 100.. when i was trying to retrieve the value from table to array.. It didnt retrieve any value from table.. And it doesnt show any error message also.. After I increased the size of the array. Its retrieves the value from table.. why its so.. I hope the sql statement runs beyond the size of the array.. even it is overflow r underflow atleast it should retrieve minimum records as i mentioned in size.. I want to know when overflow occurs whether the entire array is cleared.. (I am using brio 6.1 and SQR for oracle. extent is not there to increase the size of the array automatically)

Thanks in Advance
Anandhraj

By: administrator

administrator — Mon, 03 Aug 2009 17:22:47 +0000

I may do that. Thanks for the photo.

By: Bob Josephson

Bob Josephson — Mon, 03 Aug 2009 16:41:10 +0000

Maybe you should post the User Group info as a separate article, so people who don’t read about arrays will still see it.

Alas, I don’t live in Northern California. In fact, I’m not sure I even have a life outside of computers.
. .
|
~~~