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 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...
How to hide page breaks in worksheets in Microsoft Excel ?
When the page breaks is used to adjust the print area in a worksheet in excel , this would show up a...