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

Answer Posted / 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



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

How can we find that module can be called – whether DYNAMICALLY or STATICALLY?

712


What is the default value(s) for an initialize? What keyword will allow for an override of the default?

661


i need a small 3d program using inline and outline.

1637


Which is not true about evaluate statement

1577


What are all the divisions of a COBOL program?

663






A table has two indexes defined. Which one will be used by the SEARCH?

758


What is difference between static and dynamic call in cobol?

777


which is Best IBM Mainframe Training and Placement Institute in Ameerpet Hyderabad

1024


What is a scope terminator give example?

657


how to convert the recors form vsam file to db2 table tru file aid

2763


What is the difference between Global and External Variables?

666


If you are current on the owner of a set, what is the difference between an obtain next and obtain first? Actually in which topic will we use dis???Plz explain it clearly

2658


What is the local-storage section?

681


Write a program to enter and display the names of students in a class using the occurs clause.

652


How can i load all the data from a file to Table (array) in cobol.How i manage the occurs clause with out reading the file.Any options avilable ? Please can any one help me it is urgent?

2098