Cobol Programming Examples

Compile and Execute COBOL Online

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 FIRSTNAME                         PIC X(5) VALUE SPACES.
PROCEDURE DIVISION.
    MOVE 'STEVE' TO FIRSTNAME.
    DISPLAY 'Hello, world...And ' FIRSTNAME.
STOP RUN.

camara

cobol

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

vioajyedaf s[pfasdflsdjfkjsdf

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
PROCEDURE DIVISION.
DISPLAY 'hello '.
STOP RUN.

x-traverse

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. pallen.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ws-string  pic x(18).
01 ws-string2 pic x(18).
01 ws-lp      pic 9(2).
01 ws-sp      pic 9(1) value 0.
01 ws-count   pic 9(2).
PROCEDURE DIVISION.
    accept ws-string
    perform varying ws-lp from 1 by 1 until ws-lp = 18
    if ws-string(ws-lp:1) equal to space and ws-sp = 0
        compute ws-count = ws-lp - 1
        compute ws-sp = 1
    end-if
    end-perform.
    perform varying ws-lp from 1 by 1 until ws-lp > ws-count
        move ws-string to ws-string2
        move 'X' to ws-string2(ws-lp:1)
        display ws-string2
    end-perform
STOP RUN.

Compile and Execute COBOL Online

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-TABLE1.
   05 WS-A OCCURS 2 TIMES INDEXED BY I.
      10 WS-B PIC X(5).
      10 WS-C OCCURS 1 TIMES INDEXED BY J.
         15 WS-D PIC X(5).
PROCEDURE DIVISION.
MOVE 'SRINIVASANSRINIVASAN' TO WS-TABLE1.
PERFORM A-PARA VARYING I FROM 1 BY 1 UNTIL I > 2.
STOP RUN.

A-PARA.
PERFORM C-PARA VARYING J FROM 1 BY 1 UNTIL J > 1.

C-PARA.
DISPLAY 'NAME:' WS-B(I).
DISPLAY 'NAME:' WS-D(I,J).

Nnsp!! ðŸ‘£

cobol

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

PERFORM demo

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.


* Perform Thru
PROCEDURE DIVISION.
   A-PARA.
   PERFORM DISPLAY 'IN A-PARA'
   END-PERFORM.
   PERFORM C-PARA THRU E-PARA.
   
   B-PARA.
   DISPLAY 'IN B-PARA'.
   STOP RUN.
   
   C-PARA.
   DISPLAY 'IN C-PARA'.
   
   D-PARA.
   DISPLAY 'IN D-PARA'.
   
   E-PARA.
   DISPLAY 'IN E-PARA'.
   
   
*Perform Until: a paragraph is executed until the given condition becomes true.
*   DATA DIVISION.
*   WORKING-STORAGE SECTION.
*   01 WS-CNT PIC 9(1) VALUE 0. 
* PROCEDURE DIVISION.
*   A-PARA.
*   PERFORM B-PARA WITH TEST AFTER UNTIL WS-CNT>3.
*   STOP RUN.
   
*   B-PARA.
*   DISPLAY 'WS-CNT : 'WS-CNT.
*   ADD 1 TO WS-CNT.

* Perform Times: a paragraph will be executed the number of times specified.

* PROCEDURE DIVISION.
*   A-PARA.
*   PERFORM B-PARA 3 TIMES.
*   STOP RUN.
   
*   B-PARA.
*   DISPLAY 'IN B-PARA'.

WESTBROOK-P03-EASTER

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. WESTBROOK-P03-EASTER.

DATA DIVISION.
WORKING-STORAGE SECTION.


PROCEDURE DIVISION.
DISPLAY 'Hello, world'.
STOP RUN.

MY PROJ

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
  01  VAR1 PIC A(9).
PROCEDURE DIVISION.
DISPLAY 'Hello, world'.
ACCEPT VAR1.
DISPLAY 'VAR1 IS' VAR1.
MOVE 'PRAVEENRAJU' TO VAR1.
DISPLAY VAR1.
STOP RUN.

mouni

cobol

IDENTIfication  DIVISION.
PROGRAM-ID. add1.
data division.
working storage section
    01 a pic 9(1).
    01 b pic 9(1).
    01 c pic 9(2).
PROCEDURE DIVISION.
        accept a
        accept b
        compute c = a + b
        DISPLAY 'c'
STOP RUN.

Follow

Newsletter