InterviewSolution
| 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. |
|