I have 2 dimensional array with having 100 elements. So how
to find the 11th item in an array?
Answers were Sorted based on User's Feedback
Answer / dipali jaju
give subscript as 11 ,like if we have temp as table name,
then
display "temperature : " temp(11)
but if table is two dimentional then
__________________________
| 1 | 2 |
|_________ _|____________|
| | | | |
|0-25 |26-50|51-75|76-100|
|_ele_|_ele |_ele |_ele |
so to fetch 11 the record we have to write temp(1,11)
| Is This Answer Correct ? | 13 Yes | 2 No |
Answer / sreejith
index
0 1 2 3 4 5 6 7 8 9
0 |
1-this is 11 th item in array
2
3
4
5
6
7
8
9
that is arrymame(1,0)=11th item
| Is This Answer Correct ? | 13 Yes | 7 No |
Answer / dinesh
use INDEX by and serach it for 11th displacement.
would you want to straightly go to 11 position.
MOVE 11 to INDEX-NAME.
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / ajay kumar ande
search for element "ajay" in name column using 2d array.suppose a table of 5*5,
procedure division
MOVE +1 TO I
PERFORM UNTILL I>5
MOVE +1 TO J
PERFORM UNTILL J>5
IF NAME = "AJAY"
DISPLAY "FOUND"
ELSE DISPLAY "NOT FOUND"
ADD +1 TO J
END-PERFORM
ADD +1 TO I
END-PERFORM
| Is This Answer Correct ? | 0 Yes | 2 No |
Answer / neelam saini
i think above answers r worng.
working-storage section.
01 WS-ARR.
02 WS-A OCCURS 10 TIMES.
03 WS-D OCCURS 10 TIMES PIC XX.
01 I PIC 9(2).
01 J PIC 9(2).
PROCEDURE DIVISION.
MAIN-SECTION.
MAIN-PARA.
PERFORM PARA1 VARYING I FROM 1 BY 1 UNTIL I > 10
AFTER J FROM 1 BY 1 UNTIL J > 10.
DISPLAY WS-D(1,2).
STOP RUN.
PARA1.
ACCEPT WS-D(I , J).
| Is This Answer Correct ? | 12 Yes | 16 No |
Consider the following: 77 W-NUM PIC 9 VALUE 0 ------ MOVE 1 TO W-NUM PERFORM PARA-X UNTIL W-NUM > 9. ------ PARA-X ADD 1 TO W-NUM How many times PARA-X is executed ?
what is the difference between implicit and explicit scope terminator with example?
Can printer files (having 133 characters) be of variable length?
soc-7 is a bad data,invalid data. when ever we are moving the alphabets in the position of numeric then we got this abend. so my question is if o1 ws-data pic 9(1) value passing the alphabet some x. then we got soc-7 or not? i want clarification ?
consider the following piece of code 01 GROUP-ITEM 05 AMOUNT-1 PIC 99V9 USAGE COMP VALUE 50 05 AMOUNT-2 PIC 9(4)V99 USAGE COMP MOVE ZERO TO GROUP-ITEM ADD 50 TO AMOUNT-1 what will be the content of AMOUNT-1? a.50 b.100 c.0 d.unpredictable
how we separate the cobol cics statements from cobol&cics programming?
what is the difference between Plan & package
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
IF I mention stop run in CICS what happens?
what happens of we dont give time stamp in precompilation process
What are the rules of the move verb?
how would you resolve sb37 and SE37?