COBOL Introduction

COBOL stands for Common Business Oriented Language. The US Department of Defense developed this language for writing application programs for data processing. In olden days, COBOL programs have been used in various domains like retail, banking, and insurance to handle a huge volume of data. COBOL was implemented in the year 1960. After that, it was assigned to ANSI(American National Standards Institute) for developing new COBOL standards. There are four divisions available in COBOL. Identification division Environment division Data division Procedure division The below sample program MYCBLFL handle INFILE1 file for the write operation. IDENTIFICATION DIVISION. PROGRAM-ID. MYCBLFL. AUTHOR. Joe. DATE-WRITTEN. 03-01-2020. DATE-COMPILED. 03-01-2020. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INFILE1 ASSIGN TO DD1 ORGANIZATION IS INDEXED ACCESS MODE IS RANDOM RECORD KEY IS EMP-NO FILE STATUS IS FS1. DATA DIVISION. FILE SECTION. FD INFILE1. 01 IN-REC. 05 EMP-NO PIC X(4). 05 EMP-NAME PIC X(10). 05 SALARY PIC 9(5). 05 FILLER PIC X(61). WORKING-STORAGE SECTION. 77 FS1 PIC XX. 77 CHN PIC X VALUE 'Y'. PROCEDURE DIVISION. 1000-MAIN-SECTION. PROCESS-PARA. OPEN OUTPUT INFILE1. DISPLAY FS1. PERFORM WRITE-PARA UNTIL CHN = 'N'. CLOSE INFILE1. STOP RUN. WRITE-PARA. ACCEPT EMP-NO. ACCEPT EMP-NAME. ACCEPT SALARY. ACCEPT CHN. WRITE IN-REC. DISPLAY 'FILE STATUS ' FS1. 1000-EXIT-MAIN. STOP RUN.