3-Common_Verbs.cbl

      ******************************************************************
      * Author: Cristopher Bohol
      * Date: March 29, 2022
      * Purpose: Programming Languages Report
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. COMMON_VERBS.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
      *numbers we will perform operations on with verbs
       01 NUM1 PIC 9(2) VALUE 10.
       01 NUM2 PIC 9(2) VALUE 10.
       01 NUMA PIC 9(3) VALUE 100.
       01 NUMB PIC 9(3) VALUE 15.
      * variables we will use to store results of operations we do
       01 NUMC PIC 9(3).
       01 RES-DIV PIC 9(3).
       01 RES-MULT PIC 9(3).
       01 RES-SUB PIC 9(3).
       01 RES-ADD PIC 9(3).
       01 RES-MOV PIC X(3).
       PROCEDURE DIVISION.
       100-MAIN.
           PERFORM 200-COMPUTATION.
      *    reinitilize num1
           INITIALIZE NUM1.
      *    reinitilize num2 but replace numeric data with 12345
      *    return results wil be 45 since the size of num2 = 2
           INITIALIZE NUM2 REPLACING NUMERIC DATA BY 12345.
           PERFORM 300-PRINT.
           GOBACK.
       200-COMPUTATION.
      *    compute num1 times num2 and store result in numc
           COMPUTE NUMC = (NUM1 * NUM2).
      *    divide numa by numb and store result in res-div
           DIVIDE NUMA BY NUMB GIVING RES-DIV.
      *    multiply numa by numb storing result in res-mult
           MULTIPLY NUMA BY NUMB GIVING RES-MULT.
      *    subtract numa from numb store result in res-sub
           SUBTRACT NUMA FROM NUMB GIVING RES-SUB.
      *    add numa to numb and store result in res-add
           ADD NUMA TO NUMB GIVING RES-ADD.
      *    the pointer from numa to
           MOVE NUMA TO RES-MOV.
       300-PRINT.
           DISPLAY "NUMC:"NUMC
           DISPLAY "RES-DIV:"RES-DIV
           DISPLAY "RES-MULT:"RES-MULT
           DISPLAY "RES-SUB:"RES-SUB
           DISPLAY "RES-ADD:"RES-ADD
           DISPLAY "RES-MOV:"RES-MOV
           DISPLAY "REINITIALIZED NUM1: "NUM1
           DISPLAY "REINITIALIZED NUM2: "NUM2.
       END PROGRAM COMMON_VERBS.