INPUT PROCEDURE is executed before the sort and records must be RELEASEd to the sort work file from the input procedure. GIVING can be substituted by OUTPUT PROCEDURE IS para-1 THRU para-2.įile-1 is the sort (work) file and must be described using SD entry in FILE SECTION.įile-2 is the input file for the SORT and must be described using an FD entry in FILE SECTION and SELECTįile-3 is the out file from the SORT and must be described using an FD entry in FILE SECTION and SELECTįile-1, file-2 & file-3 should not be opened explicitly. USING can be substituted by INPUT PROCEDURE IS para-1 THRU para-2

GSĪ15) Syntax: SORT file-1 ON ASCENDING/DESCENDING KEY key. Q15) How do you sort in a COBOL program? Give sort file definition, sort statement syntax and meaning. Due to a bug, I find that even if the program access the

Q14) My program has an array defined to have 10 items. If it matches, fine else repeat the process with the left half or the right half depending on where the item lies. Compare the item to be searched with the item at the center. (You must load the table in the specified order).Ī13) Search on a sorted array. If you want the search to be done on an array sorted in descending order, then while defining the array, you should give DESCENDING KEY clause. Q12) What should be the sorting order for SEARCH ALL? - GSĪ12) It can be either ASCENDING or DESCENDING. SEARCH ALL - is a binary search & the table must be sorted ( ASCENDING/DESCENDING KEY clause to be used & data loaded in this order) before using SEARCH ALL. Q11) What is the difference between SEARCH and SEARCH ALL? - GS Need to have index for a table in order to use SEARCH, SEARCH ALL. Thx for getting back to us and providing the resolution to your problem.An index can only be modified using PERFORM, SEARCH & SET. One of the line has null/period and Evaluate seems to be ignored. IGYPS2113-E The explicit scope terminator 'END-EVALUATE' was found without a matching verb. IF this is case am pretty sure you might have got a message like this during compilation.

Īm guessing in your program, you might have put a period somewhere in between the nested EVALUATE. Suggest you show us the 'actual-code' instead of your interpretation of the code. Syntax makes it much easier to read and understand what would otherwise be nested/complex if statements - so if you can have nested-IFs(and I pre-assume you agree) then you can have nested-EVALUATEs too. There is no way we can relate the error lines and what you have provided as code.Īn evaluate is just IF statements. You are being disingenuous with the error message display. Would like to confirm Nested evaluate is acceptable in COBOL. I agree we can surely have alternatives for this. Is it possible to have multiple evaluates with EVALUATE verb in COBOL. Evaluate within Evaluate - multiple -IBM Mainframes

Evaluate statement cobol