Cobol Programming Examples

Compile and Execute COBOL Online

cobol

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

AdvancedCOBOLAssignment1AlexPitterle

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HW01AP.
AUTHOR AlexanderPitterle

DATA DIVISION.
WORKING-STORAGE SECTION.

01 WS-COURSE-SCORE  PICTURE S9(03) VALUE 0.
01 WS-PASSING-SCORE PICTURE 9(02) VALUE 70.
01 WS-POINTS-ABOVE-PASS PICTURE 9(02) VALUE 0.
01 WS-POINTS-BELOW-PASS PICTURE 9(02) VALUE 0.
01 WS-MONEY-MULTIPLIER PICTURE 9(01) VALUE 3.
01 WS-MONEY-EARNED PICTURE $9(02).9(2) VALUE 0.

PROCEDURE DIVISION.

DISPLAY 'Enter your score to see if you passed the class: '.
DISPLAY ' '.
ACCEPT WS-COURSE-SCORE.

    IF WS-COURSE-SCORE > 100 OR WS-COURSE-SCORE < 0
        DISPLAY 'Invalid Input. Your given score should be between 0 and 100'

    ELSE IF WS-COURSE-SCORE >= WS-PASSING-SCORE
        DISPLAY 'You passed the course with a score of: ' WS-COURSE-SCORE
        COMPUTE WS-POINTS-ABOVE-PASS = WS-COURSE-SCORE - WS-PASSING-SCORE
        DISPLAY 'You were ' WS-POINTS-ABOVE-PASS ' points above the passing grade!'
        MULTIPLY WS-MONEY-MULTIPLIER BY WS-POINTS-ABOVE-PASS GIVING WS-MONEY-EARNED
        DISPLAY 'You earned ' WS-MONEY-EARNED ' as a bonus!'

    ELSE
        DISPLAY 'Your score of ' WS-COURSE-SCORE ' did not pass the course'
        DISPLAY 'A course score of ' WS-PASSING-SCORE ' is required to pass.'
        COMPUTE WS-POINTS-BELOW-PASS = WS-PASSING-SCORE - WS-COURSE-SCORE
        DISPLAY 'You were ' WS-POINTS-BELOW-PASS ' points away from passing this course.'
    
STOP RUN.

Compile and Execute COBOL Online

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. CALCULADORA.

ENVIRONMENT DIVISION.

DATA DIVISION.
WORKING-STORAGE SECTION.
77 WKS-NUM-1      PIC S9(05)V99.
77 WKS-NUM-2      PIC S9(05)V99.
77 WKS-RESULTADO  PIC S9(10)V99.
77 WKS-RESULTADO2 PIC S9(10)V99.
77 WKS-OPCION     PIC A(01).


PROCEDURE DIVISION.
00001-MI-SECCION SECTION.
00001-MAIN.
    DISPLAY 'CALCULADORA'.
    DISPLAY "DAME EL NUMERO 1:".
    ACCEPT WKS-NUM-1.
    DISPLAY "DAME EL NUMERO 2:".
    ACCEPT WKS-NUM-2.
    DISPLAY "INDICA LA OPERACION A REALIZAR: S = SUMA,R = RESTA,"
    "M = MULTIPLICACION, D = DIVISION".
    ACCEPT WKS-OPCION.
    
    IF WKS-OPCION = "S"
       ADD WKS-NUM-1 TO WKS-NUM-2 GIVING WKS-RESULTADO
       DISPLAY WKS-RESULTADO
    ELSE
    IF WKS-OPCION = "R"
       SUBTRACT WKS-NUM-1 FROM WKS-NUM-2 GIVING WKS-RESULTADO
       DISPLAY WKS-RESULTADO
    ELSE
    IF WKS-OPCION = "M"
    MULTIPLY WKS-NUM-1 BY WKS-NUM-2 GIVING WKS-RESULTADO
    DISPLAY WKS-RESULTADO
    ELSE
    IF WKS-OPCION = "D"
    DIVIDE WKS-NUM-1 INTO WKS-NUM-2 GIVING WKS-RESULTADO
    DISPLAY WKS-RESULTADO
    ELSE
    DISPLAY "OPERACION INVALIDA, VERIFIQUE".
    
    
    STOP "PAUSA".
    
    
    STOP RUN.
    
    
    
    
    
        
    
    
    
STOP RUN.

CALCULATEV1.1

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. Calc.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 c PIC X(6) VALUE NULL.
01 n PIC 999V999 VALUE 9.99.
01 i PIC 999V999 VALUE 9.99.
01 b PIC +++,++9.999 VALUE 9.99.
PROCEDURE DIVISION.
DISPLAY "Enter 2 nums"
ACCEPT i
ACCEPT n
DISPLAY "Enter Char"
ACCEPT c
EVALUATE c
WHEN "a"
    COMPUTE b = i + n
    DISPLAY b
WHEN "s"
    COMPUTE b = i - n
    DISPLAY b
WHEN "m"
    COMPUTE b = i * n
    DISPLAY b
WHEN "d"
    COMPUTE b = i / n
    DISPLAY b
WHEN "e"
    COMPUTE b = i ** n
    DISPLAY b
END-EVALUATE.

SumOfIntegers

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. SumOfIntegers.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 n BINARY-LONG.
01 i BINARY-LONG.
01 b PIC +++,++9.99.
01 a BINARY-LONG VALUE 0.
PROCEDURE DIVISION.
DISPLAY "Enter a positive integer"
ACCEPT n
PERFORM VARYING i FROM 1 BY 1 UNTIL i > n
    ADD i TO a
END-PERFORM
MOVE a TO b
DISPLAY b.

demo1

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.

   01 WS-DB-LIST-TABLE.
      05 WS-DB-LIST-RECORD OCCURS 3 TIMES 
            ASCENDING KEY IS DB-LIST-NAME INDEXED BY I.
         10 DB-LIST-NAME PIC X(10).

   01 WS-ENV-LIST-TABLE.
      05 WS-ENV-LIST-RECORD OCCURS 5 TIMES 
           ASCENDING KEY IS ENV-LIST-NAME INDEXED BY J.
         10 ENV-LIST-NAME PIC X(15).

   01 WS-ENV-LIST-NAME PIC X(10).  

PROCEDURE DIVISION.
   A-PARA.
         
   MOVE 'AKILAN    KAYAL     SELVA     ' TO WS-DB-LIST-TABLE.
   MOVE 'BHAVANI_DB1    BHAVANI_DB2    SELVA_DB1      KAYAL_DB1      '
          TO WS-ENV-LIST-TABLE.
   PERFORM B-PARA VARYING J FROM 1 BY 1 UNTIL J > 5.
   STOP RUN.
   
   B-PARA.
   UNSTRING ENV-LIST-NAME(J) DELIMITED BY "_" INTO WS-ENV-LIST-NAME.
   
   SEARCH ALL WS-DB-LIST-RECORD
          AT END DISPLAY "DB NAME NOT FOUND ====> " ENV-LIST-NAME(J)
   WHEN DB-LIST-NAME(I) = WS-ENV-LIST-NAME
         CONTINUE
   END-SEARCH.

space-equal

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-NUM1 PIC X(9) VALUE IS SPACE.
   01 WS-NUM2 PIC X(9) VALUE IS SPACE.
   01 WS-NUM3 PIC 9(5).
   01 WS-NUM4 PIC 9(6).

PROCEDURE DIVISION.
   A000-FIRST-PARA.
   MOVE '9' TO WS-NUM1.
   MOVE '10' TO WS-NUM2.
   MOVE 25 TO WS-NUM3.
   MOVE 15 TO WS-NUM4.
   
   IF WS-NUM1 = '9' THEN
      DISPLAY 'IN LOOP 1 - IF BLOCK'
      
      IF WS-NUM2 = '10' THEN
         DISPLAY 'IN LOOP 2 - IF BLOCK'
      ELSE
         DISPLAY 'IN LOOP 2 - ELSE BLOCK'
      END-IF
      
   ELSE
      DISPLAY 'IN LOOP 1 - ELSE BLOCK'
   END-IF.
   
STOP RUN.

Compile and Execute COBOL Online

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. CHUVA.
AUTHOR. DIEGO.

WS-A PIC XXXXXXX VALUE '. . . .'.

ARRAY sample

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 2D-TABLE VALUE 'DUHIABCDPUNIEFGHKARUIJKL'.
   02 ONE-DATA  OCCURS 3 TIMES INDEXED BY I1.
   03 ONE-DATA1 PIC X(4).
   03 TWO-DATA  PIC X(2) OCCURS 2 TIMES INDEXED BY I2.
77 I3 PIC 9(2) VALUE ZERO.
77 I4 PIC 9(2) VALUE ZERO. 
PROCEDURE DIVISION.
SET I1,I2 TO 1
SET I3,I4 TO 1
PERFORM VARYING I1 FROM 1 BY 1 UNTIL I1 > 3
   PERFORM VARYING I2 FROM 1 BY 1 UNTIL I2 > 2
   DISPLAY "DUHI IS PARI " 2D-TABLE
   DISPLAY "DUHI IS PARI " ONE-DATA(I1)
   DISPLAY "DUHI IS PARI " ONE-DATA1(I1)
   DISPLAY "DUHI IS PARI " TWO-DATA(I1,I2)
   DISPLAY I1,I2
   END-PERFORM
END-PERFORM.
STOP RUN.

PERFORM sample

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-CNT PIC 9(1) VALUE 1. 

PROCEDURE DIVISION.
   A-PARA.
   PERFORM B-PARA  WITH TEST BEFORE UNTIL WS-CNT>3.
   PERFORM C-PARA 2 TIMES.
   PERFORM C-PARA UNTIL WS-CNT<1.
   PERFORM B-PARA THRU C-PARA.
   PERFORM D-PARA WITH TEST AFTER VARYING WS-CNT FROM 0 BY 1 UNTIL WS-CNT = 3.
   GO TO E-PARA.
   PERFORM 
   DISPLAY "THIS SHOULD NOT EXECUTE"
   END-PERFORM.
   STOP RUN.
   
   B-PARA.
   DISPLAY 'WS-CNT : 'WS-CNT.
   ADD 1 TO WS-CNT.
   
   C-PARA.
   DISPLAY "I WILL WIN."WS-CNT.
   SUBTRACT 1 FROM WS-CNT.
   
   D-PARA.
   DISPLAY "PUNI-KARU-DUHI"WS-CNT.
   
   E-PARA.
   DISPLAY "IF GO TO THEN THEN THE NEXT PARA WONT EXECUTE".

Follow

Newsletter