Interested to Buy Any Domain ? << Click Here >> for more details...
How do u sort the table for Search ALL? Is it only using
ASCENDING KEY IS statement in occurs clause? If the data is
input in non ascending order, will the ASC KEY IS
automatically sort the data? or will it throw compile time
error?
- 1 Answers
- 10863 Views
- CTS, I also Faced
- E-Mail Answers
Answer Posted / snehatechm
for using SEARCH ALL your table must be defined with KEY IS
along with the OCCURS caluse and INDEXED BY.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 XXX-TABLE.
03 XXX-TEXT PIC X OCCURS 10 TIMES
ASCENDING KEY IS XXX-TEXT
INDEXED BY AXIDX.
In the above case my table is ordered in ascending sequence.
i can order my table in descending sequence also.
01 SRCHXXX PIC X.
01 XXXPOS PIC 99.
PROCEDURE DIVISION.
Begin.
ACCEPT SRCHXXX
SET AXIDX TO 1
SEARCH ALL XXX-TEXT
AT END DISPLAY "NO LETTER FOUND"
WHEN XXX-TEXT(AXIDX) = SRCHXXX
SET XXXPOS TO AXIDX
DISPLAY SRCHXX " IS IN " XXXPOS
END-SEARCH
STOP RUN.
If data input in non ascending order, the ASC KEY will not
automatically sort the data
| Is This Answer Correct ? | 10 Yes | 0 No |
Post New Answer View All Answers
how do you reference the ksds vsam file formats from cobol programs
What are the different data types in cobol?
What are declaratives and what are their uses in cobol?
Explain about different table spaces.
input 1 input2 ouput1 output2 output 3 1 re 300 1 re 200 1 re 300 3 rc 500 1 re 200 2 rr 400 1 re 300 2 rr 400 1 rc 400 3 rc 500 1 rc 400 2 rr 700 2 rr 700 5 tt 900 5 tt 900 2 inputs r in flat file and output 1 is matched records,ouptput2 is unmatched of input1,output3 is unmatched of input2! how vl u get the output files using sequential order and to check with each and every records! let me know the procedure division ?
what is the difference between COBOL2 AND COBOL390?
How do define dynamic array in cobol. how do you define single dimensional array and multidimensional array in your cobol?
i want a program using by if, evaluate , string, unstring, perform, occurs?
How do u write test cases?
What type of SDLC u followed? Why?
What is the difference between external and global variables in COBOL?
What is the LINKAGE SECTION used in COBOL?
how to refer the data field?
What is the usage of comp fields in cobol?
What are the different types of condition in cobol and write their forms.
