how will u retreive value from a table.write it with syntex. 01 ws-table 05

how will u retreive value from a table.write it with syntex.
01 ws-table
05 ws-table1 occurs 10 times.
05 ws-table2 occurs 10 times.

the above is 2 dimensional array..how will u retrieve 1st
element of an array

Question Posted / sdexcellent@yahoo.co.in

3 Answers
7286 Views
ADP, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

how will u retreive value from a table.write it with syntex. 01 ws-table 05 ws-table1 occurs 10..

Answer / veenaibm

Multidimentional array is as follows:

01 TABLE-REC-1.
05 ROWS OCCURS 1 TO 10 TIMES.
10 COLUMNS OCCURS 1 TO 10 TIMES.
20 CELL PIC X(1).

Now if we want to access the value of the variable CELL,

we can use
Perform x from 1 by 1 until x>10
Perform y from 1 by 1 until y>10
cell(x,y).

In the question, it is not a 2 dimentional array.

It is 2 single dimentional array which can be accessed
independently.

Is This Answer Correct ?

7 Yes

0 No

how will u retreive value from a table.write it with syntex. 01 ws-table 05 ws-table1 occurs 10..

Answer / talluri

01 ws-array
05 ws-table1 occurs 10 times.
05 ws-table2 occures 10 times.
01 i pic 9(2).
01 j pic 9(2).
procedure division.
perform varing i from 1 by 1 until i>10
perform varing j from 1 by 1 until i>10
accept ws-table1(i,J)
accept ws-table2(i,J)
end-perform
end-perform.
perform varing i from 1 by 1 until i>10
display ws-table1(i,J)
end-perfrom.

Is This Answer Correct ?

4 Yes

2 No

how will u retreive value from a table.write it with syntex. 01 ws-table 05 ws-table1 occurs 10..

Answer / abhishek

while declaring a two dimensional array we have to use the
INDEXED BY clause

01 ws-array
05 ws-table1 occurs 10 times INDEXED BY I
10 ws-table2 occures 10 times INDEXED BY J
15 var-1 pic x(4)
15 var-2 pic x(5)

01 i pic 9(2).
01 j pic 9(2).

procedure division.
perform varing i from 1 by 1 until i>10

AFTER varing j from 1 by 1 until i>10
accept var-1(i,J)
accept var-2(i,J)

end-perform.

Is This Answer Correct ?

1 Yes

0 No

Post New Answer