IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.
    WORKING-STORAGE SECTION.
        01 I PIC 99.
        01 J PIC 99.
        01 K PIC 99.
        01 LEN PIC 99.
        01 LEN-1 PIC 99.
        01 TEMP PIC 99.
        01 WS-TABLE.
            05 WS-A PIC 9(2) VALUE 1 OCCURS 1 TO 20 TIMES DEPENDING ON LEN.
PROCEDURE DIVISION.
    DISPLAY 'ENTER THE LENGTH OF THE TABLE: '.
    ACCEPT LEN.
    SUBTRACT 1 FROM LEN GIVING LEN-1.
    
    PERFORM WITH TEST AFTER VARYING I FROM 1 BY 1 UNTIL I=LEN
        DISPLAY 'ENTER ELEMENT NO. 'I WITH NO ADVANCING
        DISPLAY ': '
        ACCEPT WS-A(I)
    END-PERFORM.
    *>MOVE 10 TO WS-A(1).
    *>MOVE 20 TO WS-A(2).
    *>MOVE 3 TO WS-A(3).
    *>MOVE 15 TO WS-A(4)

    DISPLAY 'BEFORE SORT: 'WITH NO ADVANCING.
    PERFORM WITH TEST AFTER VARYING I FROM 1 BY 1 UNTIL I=LEN
        IF I<LEN THEN
            DISPLAY WS-A(I)', 'WITH NO ADVANCING
        ELSE
            DISPLAY WS-A(I)', '
        END-IF
    END-PERFORM.
        
    PERFORM WITH TEST AFTER VARYING I FROM 1 BY 1 UNTIL I = LEN-1
        ADD 1 TO I GIVING K
        PERFORM WITH TEST AFTER VARYING J FROM K BY 1 UNTIL J = LEN
            IF WS-A(I)>WS-A(J) THEN
                MOVE WS-A(I) TO TEMP
                MOVE WS-A(J) TO WS-A(I)
                MOVE TEMP TO WS-A(J)
            END-IF
        END-PERFORM
    END-PERFORM.
    
    DISPLAY 'AFTER SORT: 'WITH NO ADVANCING.
    PERFORM WITH TEST AFTER VARYING I FROM 1 BY 1 UNTIL I=LEN
        DISPLAY WS-A(I)', 'WITH NO ADVANCING
    END-PERFORM.

STOP RUN.

COBOL online compiler

Write, Run & Share COBOL code online using OneCompiler's COBOL online compiler for free. It’s a reliable and accessible playground to practice and run COBOL code with ease. The compiler supports classic COBOL syntax and is great for learning, teaching, and experimenting with business logic programs.

About COBOL

COBOL (Common Business-Oriented Language) is a high-level programming language developed in the 1950s. It is primarily used in business, finance, and administrative systems for companies and governments. COBOL is known for its English-like syntax and is still widely used in legacy enterprise systems.

Sample Code

The following is a simple COBOL program that prints a greeting:

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
PROCEDURE DIVISION.
    DISPLAY "Hello, OneCompiler!".
    STOP RUN.

Taking inputs

In COBOL, input is typically handled using the ACCEPT keyword. Here’s an example that takes user input and prints it back.

IDENTIFICATION DIVISION.
PROGRAM-ID. GREET.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 USER-NAME PIC A(30).

PROCEDURE DIVISION.
    DISPLAY "Enter your name: ".
    ACCEPT USER-NAME.
    DISPLAY "Hello, " USER-NAME "!".
    STOP RUN.

Syntax Basics

Program Structure

COBOL programs are divided into four divisions:

  • IDENTIFICATION DIVISION: Program metadata
  • ENVIRONMENT DIVISION: Machine/environment details (optional)
  • DATA DIVISION: Variable declarations
  • PROCEDURE DIVISION: Actual program logic

Variables

Variables are declared in the DATA DIVISION using PIC clauses.

01 AGE        PIC 99.
01 NAME       PIC A(20).
01 SALARY     PIC 9(5)V99.

Displaying and Accepting Data

DISPLAY "Welcome to COBOL!".
ACCEPT USER-INPUT.

Conditional Statements

IF AGE >= 18
    DISPLAY "Eligible to vote."
ELSE
    DISPLAY "Not eligible."
END-IF.

Loops (PERFORM)

PERFORM VARYING I FROM 1 BY 1 UNTIL I > 5
    DISPLAY "Count: " I
END-PERFORM.

This guide provides a quick reference to COBOL programming syntax and features. Start coding in COBOL using OneCompiler’s COBOL online compiler today!