COBOL Lab Program – Evaluate the equation Z = (A -B) * C .

Introduction

This COBOL lab program demonstrates how to evaluate the equation Z = (A – B) * C using the Compute verb in COBOL

Program

IDENTIFICATION DIVISION.
PROGRAM-ID. GINK1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 Z     PIC +(10).Z(2).
77 A     PIC S9(6)V9(4).
77 B     PIC S9(6)V9(4).
77 C     PIC S9(6)V9(4).
PROCEDURE DIVISION.
MAIN-PARA.
    DISPLAY "ENTER THE INPUT DATA".
    ACCEPT A.
    ACCEPT B.
    ACCEPT C.
    COMPUTE Z = (A - B) * C.
    DISPLAY "Z = ", Z.
    STOP RUN.





If you enjoyed this post, please consider leaving a comment or subscribing to the RSS feed to have future articles delivered to your feed reader.

Leave a Reply


x

Interesting BlogPosts to read

How to print title on every page in Microsoft Excel?
Most of the time we might end up having a long workbook with huge amount of data and they have lot o...
How to quickly remove multiple line breaks in Excel using VBA code?
There are times when you might copy few data from different source and you would end up getting unne...
How to change orientation of the worksheets in Microsoft Excel ?
This blog post will show the steps that are needed to change the orientation of the current workshee...