COBOL & COBOL II Name the divisions in a COBOL program ?. IDENTIFICATION DIVISION, ENVIRONMENT DIVISION, DATA DIVISION, PROCEDURE DIVISION. What are the different data types available in COBOL? Alpha-numeric (X), alphabetic (A) and numeric (9). What does the INITIALIZE verb do? - GS Alphabetic, Alphanumeric fields & alphanumeric edited items are set to SPACES. Numeric, Numeric edited items set to ZERO. FILLER , OCCURS DEPENDING ON items left untouched. What is 77 level used for ? Elementary level item. Cannot be subdivisions of other items (cannot be qualified), nor can they be subdivided themselves. What is 88 level used for ? For condition names. What is level 66 used for ? For RENAMES clause. What does the IS NUMERIC clause establish ? IS NUMERIC can be used on alphanumeric items, signed numeric & packed decimal items and unsigned numeric & packed decimal items. IS NUMERIC returns TRUE if the item only consists of 0-9. However, if the item being tested is a signed item, then it may contain 0-9, + and - . How do you define a table/array in COBOL? ARRAYS. 05 ARRAY1 PIC X(9) OCCURS 10 TIMES. 05 ARRAY2 PIC X(6) OCCURS 20 TIMES INDEXED BY WS-INDEX. Can the OCCURS clause be at the 01 level? No. What is the difference between index and subscript? - GS Subscript refers to the array occurrence while index is the displacement (in no of bytes) from the beginning of the array. An index can only be modified using PERFORM, SEARCH & SET. Need to have index for a table in order to use SEARCH, SEARCH ALL. What is the difference between SEARCH and SEARCH ALL? - GS SEARCH - is a serial search. 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. What should be the sorting order for SEARCH ALL? - GS It can be either ASCENDING or DESCENDING. ASCENDING is default. If you want the search to be done on an array sorted in descending order, then w
