Cobol Programming Examples

mouni

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. add.
data division.
working storage section.
        01 ws-num1 pic 9(2).
        01 ws-num2 pic 9(2).
        01 ws-num3 pic 9(3).
PROCEDURE DIVISION.
        accept ws-num1.
        accept ws-num2.
        compute ws-num3 = ws-num1 + ws-num2.
        display ws-num3
STOP RUN.

mouni

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. add.
data division.
working storage section.
        01 ws-num1 pic 9(2).
        01 ws-num2 pic 9(2).
        01 ws-num3 pic 9(3).
PROCEDURE DIVISION.
        accept ws-num1.
        accept ws-num2.
        compute ws-num3 = ws-num1 + ws-num2.
        display ws-num3
STOP RUN.

Compile and Execute COBOL Online

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. PERFORM_01.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 THE_MESSAGE PIC X(50).
01 THE_NUM PIC 9(2).
01 THE_SPACE PIC X.

PROCEDURE DIVISION.
MOVE ' ' TO THE_SPACE.
MOVE 0 TO THE_NUM.
MOVE "LADY FROM BANGALORE" TO THE_MESSAGE.
ADD 1 TO THE_NUM.
DISPLAY
    THE_NUM
    THE_SPACE
    THE_MESSAGE.
    
MOVE " WHO LIVED IN PALACE GUTTAHALLI BANGALORE" TO THE_MESSAGE.
ADD 1 TO THE_NUM.
DISPLAY
    THE_NUM
    THE_SPACE
    THE_MESSAGE.
    
MOVE "AND WHO WORKS IN TECH MAHINDRA ECITY" TO THE_MESSAGE.
ADD 1 TO THE_NUM.
DISPLAY
    THE_NUM
    THE_SPACE
    THE_MESSAGE.
    
STOP RUN.    

    
    
    
STOP RUN.

gnucobol first test

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
PROCEDURE DIVISION.
DISPLAY 'Hello, world'.
STOP RUN.

STRING

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
PROCEDURE DIVISION.
DISPLAY 'Hello, world'.
STOP RUN.

STRING

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. STRG.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-STRING     PIC  X(25) VALUE 'OOOLAO0OLADDUMALAYA@AY@'.
01 WS-A          PIC  X(5).
01 WS-B          pic  x(10).
01 WS-C          PIC  X(10).
01 WS-D          PIC  X(5).
PROCEDURE DIVISION.
MOVE 'D' TO WS-D
 UNSTRING WS-STRING(3: ) DELIMITED BY 'O0O' OR 'M' OR 'L@' OR '@'
 INTO WS-A
      WS-B
      WS-C
      WS-D(2: )
END-UNSTRING      
 DISPLAY 'THE UNSTRING IS : ' WS-A
 DISPLAY 'THE UNSTRING IS : ' WS-B
 DISPLAY 'THE UNSTRING IS : ' WS-C
 DISPLAY 'THE UNSTRING IS : ' WS-D
 
STOP RUN.

Compile and Execute COBOL Online

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. STRING.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-LOCAL-VARIABLES.
    05 WS-STRING                          PIC X(25) 
                            VALUE'OOOLAO0OLADDUMALAYAL@AM@'.
    05 WS-A                               PIC X(05).
    05 WS-B                               PIC X(05).
    05 WS-C                               PIC X(10).
    05 WS-D                               PIC X(10).

    
PROCEDURE DIVISION.
MOVE 'D'             TO WS-D
 UNSTRING WS-STRING (3:) DELIMITED BY 'O0O'OR'M'OR'L@'OR'@'
                    INTO WS-A
                         WS-B
                         WS-C
                         WS-D (2:1)
 END-UNSTRING
 
 
 DISPLAY WS-A
 DISPLAY WS-B
 DISPLAY WS-C
 DISPLAY WS-D
 
 
 STOP RUN.

FOUR

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.
working-storage section.
01 n binary-int.
01 i binary-int.
01 sumT binary-int.

PROCEDURE DIVISION.
display 'Enter a positive integer'.
accept n
perform varying i from 1 by 1 until i > n
 add i to sumT
end-perform
display 'The sum is ' , sumT.
DISPLAY 'Hello, world'.
STOP RUN.

ao

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. DEMO8.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-LOCAL-VARIABLES.
    05 WS-NUM1                               PIC S9(03)V9(03) VALUE -100.200.
    05 WS-NUM2                               PIC S9(03)V9(03) VALUE +200.100.
    05 WS-CHOICE                             PIC 9(02).
        88 C01-ADD                                  VALUE 01.
        88 C01-SUBTRACT                             VALUE 02.
        88 C01-PRODUCT                              VALUE 03.
        88 C01-DIVIDE                               VALUE 04.

01 WS-LOCAL-VARIABLES-E.
    05 WS-NUM1-E                             PIC +9(03).9(03).
    05 WS-NUM2-E                             PIC -9(03).9(03).        
    05 WS-SUM-E                              PIC Z9(03).9(03).
    05 WS-DIFF-E                             PIC +9(01),9(02).9(03).
    05 WS-PROD-E                             PIC 9(01)B9(02).9(03).
    05 WS-QUO-E                              PIC 9(03).9(02).
    05 WS-REM-E                              PIC 9(03).9(03).
    
PROCEDURE DIVISION.
0000-MAIN-PARA.
    PERFORM 1000-INITIALIZE-PARA
    PERFORM 2000-PROCESS-PARA
    PERFORM 9000-TERMINATE-PARA.

1000-INITIALIZE-PARA.
    INITIALIZE  WS-NUM1-E
                WS-NUM2-E
                WS-SUM-E
                WS-DIFF-E
                WS-PROD-E
                WS-QUO-E
                WS-REM-E
                WS-CHOICE.    
                
2000-PROCESS-PARA.
    ACCEPT WS-CHOICE
    EVALUATE TRUE
        WHEN C01-ADD
            PERFORM 2100-ADD-PARA
            PERFORM 3000-DISPLAY-PARA

        WHEN C01-SUBTRACT
            PERFORM 2200-SUBTRACT-PARA
            PERFORM 3000-DISPLAY-PARA

        WHEN C01-PRODUCT
            PERFORM 2300-MULTIPLY-PARA
            PERFORM 3000-DISPLAY-PARA

        WHEN C01-DIVIDE
            PERFORM 2400-DIVIDE-PARA
            PERFORM 3000-DISPLAY-PARA

        WHEN OTHER
            DISPLAY 'ENTERED CHOICE IS WRONG...'
            DISPLAY 'PROGRAM IS TERMINATED...'
    END-EVALUATE.

    
2100-ADD-PARA.
    ADD WS-NUM1                 TO WS-NUM2  GIVING WS-SUM-E.
    
2200-SUBTRACT-PARA.
    SUBTRACT WS-NUM1            FROM WS-NUM2  GIVING WS-DIFF-E.

2300-MULTIPLY-PARA.
    MULTIPLY 10.20              BY WS-NUM2  GIVING WS-PROD-E.

2400-DIVIDE-PARA.
    DIVIDE 300                  BY 18  GIVING WS-QUO-E  REMAINDER WS-REM-E.

3000-DISPLAY-PARA.
    MOVE WS-NUM1                TO WS-NUM1-E
    MOVE WS-NUM2                TO WS-NUM2-E
    DISPLAY '-----------------------------------------'
    DISPLAY ' Value of Number 1         : ' WS-NUM1-E
    DISPLAY ' Value of Number 2         : ' WS-NUM2-E
    DISPLAY ' Sum of ' WS-NUM1-E ' and ' WS-NUM2-E ' is ' WS-SUM-E
    DISPLAY ' Difference of ' WS-NUM1-E ' and ' WS-NUM2-E ' is ' WS-DIFF-E
    DISPLAY ' Product of ' WS-NUM1-E ' and ' WS-NUM2-E ' is ' WS-PROD-E
    DISPLAY ' Quotient of ' WS-NUM1-E ' and ' WS-NUM2-E ' is ' WS-QUO-E ' and'  'remainder is ' WS-REM-E.

9000-TERMINATE-PARA.    
    STOP RUN.

prueba

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
PROCEDURE DIVISION.
DISPLAY 'Hello, world'.
STOP RUN.

Follow

Newsletter