Explore topic-wise InterviewSolutions in .

This section includes InterviewSolutions, each offering curated multiple-choice questions to sharpen your knowledge and support exam preparation. Choose a topic below to get started.

1.

Write a COBOL program example for demonstrating the DELETE concept from a file based on a matching record.

Answer»

IDENTIFICATION DIVISION.PROGRAM-ID. ENVIRONMENT DIVISION.INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT RECORD-FILE ASSIGN TO DISK1. ORGANIZATION IS INDEXED. ACCESS MODE IS RANDOM. RECORD KEY IS STD-ID. FILE STATUS IS WS-FS. DATA DIVISION. FILE SECTION. FD RECORD-FILE. 01 STD-RECORD. 02 STD-ID PIC 9(03). 02 STD-NAME PIC X(20). WORKING-STORAGE SECTION. 77 WS-FS PIC 9(02). 01 WS-EOF-SW PIC X(01) VALUE 'N'. 88 EOF-SW VALUE 'Y'. PROCEDURE DIVISION. DISPLAY 'ENTER THE STUDENT ID TO BE MATCHED' ACCEPT STD-ID. DISPLAY 'OPENING FILE TO DELETE MATCHING RECORD..'. OPEN INPUT RECORD-FILE. PERFORM UNTIL EOF-SW READ RECORD-FILE KEY IS STD-ID AT END MOVE 'Y' TO WS-EOF-SW IF WS-FS = 00 DELETE STD-RECORD MOVE 'Y' TO WS-EOF-SW ELSE DISPLAY 'RECORD NOT AVAILABLE' END-IF END-PERFORM. CLOSE RECORD-FILE. DISPLAY STD-RECORD . STOP RUN. Conclusion

COBOL has been around for many decades and has found its use in various business purposes due to its strong computational capabilities. In this article, we have seen the most commonly asked COBOL interview questions for both freshers and experienced professionals.
Discussion
2.

Write a COBOL program that takes 2 numbers as inputs and performs addition and multiplication on them and displays the result.

Answer» IDENTIFICATION DIVISION.PROGRAM-ID. DATA DIVISION.WORKING-STORAGE SECTION.01 NUMBER1 PIC 9 VALUE ZEROS.01 NUMBER2 PIC 9 VALUE ZEROS.01 RESULTANT PIC 99 VALUE ZEROS.01 OPERATOR PIC X VALUE SPACE.PROCEDURE DIVISION.ADDER-MULTIPLIER. DISPLAY "FIRST INPUT: " WITH NO ADVANCING ACCEPT NUMBER1 DISPLAY "SECOND INPUT: " WITH NO ADVANCING ACCEPT NUMBER2 DISPLAY "ENTER + FOR ADD AND * FROM MULTIPLY: " WITH NO ADVANCING ACCEPT OPERATOR IF OPERATOR = "+" THEN ADD NUMBER1, NUMBER2 GIVING RESULTANT END-IF IF OPERATOR = "*" THEN MULTIPLY NUMBER1 BY NUMBER2 GIVING RESULTANT END-IF DISPLAY "RESULT OF OPERATION = ", RESULTANT STOP RUN.
Discussion
3.

Write a COBOL program that allows users to enter the names of students of a class and then displays it. Try to use OCCURS clause for achieving this.

Answer»
  • OCCURS clause is used for specifying the table where the contents can be accessed using indexing. It is advantageous when we do not require different data entries for data of a similar kind.
  • COBOL Program:
IDENTIFICATION DIVISION PROGRAM-IDENVIRONMENT DIVISIONDATA DIVISIONWORKING-STORAGE SECTION 01 N PIC 9(2) VALUE 0 01 I PIC 9(2) VALUE 0 01 NAME-IN 02 NAME PIC X(10) OCCURS 10 times 01 KEY-IN PIC X VALUE SPACEPROCEDURE DIVISION P-1 DISPLAY(1 1) ERASE DISPLAY(3 5) "HOW MANY STUDENTS?" ACCEPT N DISPLAY(1 1) ERASE PERFORM GET-DATA-PROC N TIMES DISPLAY(1 1) ERASE MOVE 0 to I PERFORM DISPLAY-DATA-PROC N TIMES STOP RUNGET-DATA-PROC ACCEPT NAME(I) ADD 1 TO IDISPLAY-DATA-PROC DISPLAY NAME(I) ACCEPT KEY-IN ADD 1 TO I
Discussion