Interested to Buy Any Domain ? << Click Here >> for more details...
I have 2 dimensional array with having 100 elements. So how
to find the 11th item in an array?
- 6 Answers
- 16010 Views
- IBM, I also Faced
- E-Mail Answers
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 |
What is the difference between a subscript and an index in a table definition?
What is the maximum length of a field you can define using COMP-3?
4 Answers Complex System, Infosys,
how do you reference the fixed unblock file formats from cobol programs
) How do u handle errors in BMS macro
I need to compare 3 variables(dates) and do some processing based on the earliest date. There could be more then 1 date record in any of the 3 fields. What is the best way to code this?
Explain how to differentiate call by context by comparing it to other calls?
What are the differences bitween cobol and cobol-2?
what is label record is standard or omitted in file description of data division?
What is the use of LINKAGE SECTION?
What is difference between com and com3? Eg. s9(4) so what is the memory it will occupy com and com3.
can we use reference modification an arry.
I have PS flat file with 14 records. I want to read from 4th to 9th record and want to write those 6 records (4th record to 9th record) to another PS file (output file). there is no key defined in the input file. I just want read a certain Consecutive records. can any one please give me the procedure division Coding for this. I have coded the below coding but the READ-PARA is performing only 1 time even though I have 14 records in my input file (i.e FILE-1): PROCEDURE DIVISION. A000-SECTION. MOVE 0 TO I. OPEN INPUT FILE-1. IF CHECK-KEY1 > 0 DISPLAY "OPEN ERROR FOR FILE-1, CODE IS:" CHECK-KEY1 END-IF. OPEN EXTEND NEWFILE-1 IF CHECK-KEY3 > 0 DISPLAY "OPEN ERROR FOR NEWFILE-1 COD IS" CHECK-KEY3 END-IF. PERFORM READ-PARA THRU EXIT-PARA UNTIL EOF-REC = 'YES'. DISPLAY " FINALLY OUT OF LOOP" CLOSE FILE-1 CLOSE NEWFILE-1 STOP RUN. READ-PARA. ADD 1 TO I READ FILE-1 AT END MOVE 'YES' TO EOF-REC IF I > 3 AND < 10 PERFORM WRITE-PARA ELSE DISPLAY "NOT IN RANGE" END-IF. EXIT-PARA. EXIT. WRITE-PARA. WRITE NEW-REC FROM FILE1-REC.
COBOL 
