Cobol Language - Tips: Difference between revisions

From Wiki
 
(One intermediate revision by the same user not shown)
Line 1: Line 1:
You can download some examples from my repository on Git Hub [https://github.com/ebasso/cobol-exemplos Cobol Examples]




= Divisions of a Cobol Program =
= Divisions of a Cobol Program =


    IDENTIFICATION DIVISION
01234
    IDENTIFICATION DIVISION
  *
  *
    ENVIRONMENT DIVISION
    ENVIRONMENT DIVISION
      CONFIGURATION SECTION
*
      CONFIGURATION SECTION
  *  
  *  
      INPUT-OUTPUT SECTION
      INPUT-OUTPUT SECTION
   
  *
    DATA DIVISION
    DATA DIVISION
      FILE SECTION
*
        FILE SECTION
  *
  *
      WORKING-STORAGE SECTION
        WORKING-STORAGE SECTION
  *
  *
      LINKAGE SECTION
        LINKAGE SECTION
  *
  *
      SCREEN SECTION
        SCREEN SECTION
  *
  *
    PROCEDURE DIVISION


= Cobol Arithmetic Operations =
= Cobol Arithmetic Operations =

Latest revision as of 23:06, 17 April 2018

You can download some examples from my repository on Git Hub Cobol Examples


Divisions of a Cobol Program

01234
    IDENTIFICATION DIVISION
*
    ENVIRONMENT DIVISION
*
      CONFIGURATION SECTION
* 
      INPUT-OUTPUT SECTION
*
    DATA DIVISION
*
       FILE SECTION
*
       WORKING-STORAGE SECTION
*
       LINKAGE SECTION
*
       SCREEN SECTION
*
    PROCEDURE DIVISION

Cobol Arithmetic Operations

ADDITION

Cobol language Operation Comments
ADD B TO A A = A + B -
ADD B C TO A A = A + B + C -
ADD 1 TO A B A = A + 1; B = B + 1 -
ADD B C GIVING A A = B + C -

SUBTRACTION

Cobol language Operation Comments
SUBTRACT B FROM A A = A - B -
SUBTRACT B C FROM A A = A - B - C -
SUBTRACT B C FROM A GIVING D D = A - B - C -

DIVISION

Cobol language Operation Comments
DIVIDE 2 INTO A A = A / 2 -
DIVIDE 2 INTO A GIVING B B = A / 2 -
DIVIDE A BY 2 GIVING B B = A / 2 -
DIVIDE A BY 2 GIVING B REMAINDER C

B = A / 2 REMINDER C

-

MULTIPLICATION

Cobol language Operation Comments
MULTIPLY B BY A A = A * B -
MULTIPLY B BY A GIVING C C = A * B -