Cobol Programming Guide

Cobol Programming Guide COBOL Programming Guide COBOL Common Business Oriented Language is a highlevel programming language designed for business applications Its known for its readability structured format and ability to handle large amounts of data While its popularity has waned in recent years COBOL remains relevant in legacy systems and continues to be used in industries like finance insurance and government This guide provides an introduction to COBOL programming covering fundamental concepts and essential aspects for understanding and working with this language 1 Basic Structure of a COBOL Program A COBOL program follows a structured format divided into four major divisions 11 IDENTIFICATION DIVISION PROGRAMID Specifies the unique name of the program AUTHOR Identifies the programmer who created the program INSTALLATION Indicates the installation where the program is used DATEWRITTEN Records the date of program creation DATECOMPILED Shows the date when the program was last compiled 12 ENVIRONMENT DIVISION CONFIGURATION SECTION Defines the computer system used to run the program INPUTOUTPUT SECTION Specifies the files and devices used for input and output operations 13 DATA DIVISION FILE SECTION Describes the structure of the data files used in the program WORKINGSTORAGE SECTION Defines variables and temporary storage locations for the program LINKAGE SECTION Used for data passed between programs during subroutine calls 14 PROCEDURE DIVISION Contains the actual program logic and instructions Performs operations manipulates data and controls program flow 2 2 Data Types and Variables COBOL uses various data types for representing different kinds of data Numeric Holds numerical values integer decimal etc Alphanumeric Stores character strings containing letters digits and special characters Alphabetic Stores only alphabetical characters Boolean Represents true or false values can be implemented using numeric data types 21 Variable Declaration Variables are declared in the DATA DIVISION using the DATA keyword and a specific format cobol 01 EMPLOYEEDATA 05 EMPLOYEEID PIC 99 05 EMPLOYEENAME PIC X30 05 SALARY PIC 97V99 01 defines a level number for grouping data elements EMPLOYEEDATA is the variable name 05 is a sublevel number for individual data items PIC specifies the data type and size picture clause 9 represents a numeric character X represents an alphanumeric character and V indicates the decimal point position 3 Input and Output Operations COBOL provides statements for handling input and output operations primarily through files OPEN Opens a file for reading or writing CLOSE Closes a file after processing READ Reads data from a file into a variable WRITE Writes data from a variable to a file 4 Program Control Flow COBOL employs various control flow statements to direct the execution of program logic PERFORM Executes a specific paragraph or section of code IFTHENELSE Performs different actions based on a conditional statement GO TO Transfers program execution to a specific label 3 STOP RUN Terminates the program execution 5 Arithmetic Operations COBOL allows basic arithmetic operations ADD Adds two or more values SUBTRACT Subtracts one value from another MULTIPLY Multiplies two values DIVIDE Divides one value by another COMPUTE Performs complex calculations using various operators and functions 6 String Manipulation COBOL supports operations for manipulating character strings MOVE Copies data from one variable to another INSPECT Counts the occurrences of specific characters within a string STRING Concatenates multiple strings into a single string UNSTRING Separates a string into individual parts 7 Debugging and Testing DEBUGGING COBOL provides features like trace points and dump statements to help identify program errors TESTING Thorough testing is crucial for ensuring the correctness and reliability of COBOL programs 8 Examples 81 Simple Interest Calculation cobol IDENTIFICATION DIVISION PROGRAMID SIMPLEINTEREST DATA DIVISION WORKINGSTORAGE SECTION 01 PRINCIPAL PIC 95V99 01 INTERESTRATE PIC 9V99 01 TIME PIC 99 01 SIMPLEINTEREST PIC 97V99 PROCEDURE DIVISION 4 ACCEPT PRINCIPAL ACCEPT INTERESTRATE ACCEPT TIME COMPUTE SIMPLEINTEREST PRINCIPAL INTERESTRATE TIME 100 DISPLAY Simple Interest SIMPLEINTEREST STOP RUN 82 Employee Data Processing cobol IDENTIFICATION DIVISION PROGRAMID EMPLOYEEDATA DATA DIVISION FILE SECTION FD EMPLOYEEFILE 01 EMPLOYEERECORD 05 EMPLOYEEID PIC 95 05 EMPLOYEENAME PIC X30 05 SALARY PIC 97V99 WORKINGSTORAGE SECTION 01 WSEMPLOYEERECORD 05 WSEMPLOYEEID PIC 95 05 WSEMPLOYEENAME PIC X30 05 WSSALARY PIC 97V99 PROCEDURE DIVISION OPEN INPUT EMPLOYEEFILE READ EMPLOYEEFILE INTO WSEMPLOYEERECORD PERFORM UNTIL WSEMPLOYEEID 0 DISPLAY Employee ID WSEMPLOYEEID DISPLAY Employee Name WSEMPLOYEENAME DISPLAY Salary WSSALARY READ EMPLOYEEFILE INTO WSEMPLOYEERECORD ENDPERFORM 5 CLOSE EMPLOYEEFILE STOP RUN Conclusion This guide provides a foundational understanding of COBOL programming covering key concepts and elements While COBOL might not be the most modern language its robust structure and established use in critical systems ensure its continued relevance This guide serves as a starting point for further exploration and learning allowing you to develop your COBOL skills and work effectively with legacy systems