MAINFRAME - COBOL INTERVIEW QUESTIONS 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? 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 usigned 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? 01 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? 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? 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? It can be either ASCENDING or DESCENDING. ASCENDING is default. If you want the search to be done on an array sorted in descending or
