Interested to Buy Any Domain ? << Click Here >> for more details...
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
- 3 Answers
- 7874 Views
- ADP, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
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 |
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 |
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 |
what is a zoned decimal data type and how it will be stored?
how do you reference the printer file formats from cobol programs
Are you comfortable in cobol or jcl?
What are VS COBOL 11 special features?
WORKING-STORAGE SECTION. 01 A PIC X(3) VALUE 'ABC' 01 B PIC 9(3). PROCEDURE DIVISION. MOVE A TO B. STOP RUN. OUTPUT IS: AB3 WHY AND HOW THIS IS HAPPENING.
What guidelines should be followed to write a structured cobol prgm?
what is Pic 9v99 Indicates?
I hv ten records in ps file and i hv say some 15 records in vsam file .i hv empno and age in ps file n empno,empname,dept n desig in vsam file. i hv 2 read the ps file n check wid matching empno in vsam file and then insert all fields from ps and vsam into db2 table....plz help in writin the procedure division
which is better comp or comp-3 in terms of memory utilization?
what will happen if pass values more than 100 using PARM parameter?
I have a COBOL main program which is calling sub program, the number of calling parameters used in main program are 4 whereas in sub program it's 5. Sub program is passing 5 parameters back to main program Will there be any compilation error? Or main program parameters displays junk values?
What is COMP-1? COMP-2?
COBOL 
