Cobol Programming Examples

KJKJ

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 CTR PIC 9 VALUE 0.

PROCEDURE DIVISION.
    PERFORM UNTIL CTR EQUAL 2 
        IF CTR EQUAL 1 THEN
            GO TO DISPLAY-PROC
        END-IF
    END-PERFORM

STOP RUN.
DISPLAY-PROC.
    DISPLAY CTR.

Compile and Execute COBOL Online

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. calculate.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-A  PIC 9(2).
   01 WS-B  PIC 9(2) .
   01 RESULT PIC 9(2) VALUE ZERO.
   01 ARESULT PIC 9(2) VALUE ZERO.
   01 VALUE1 PIC 9(3).
   01 CHOICE PIC  X.
PROCEDURE DIVISION.
  DISPLAY 'CALCULATOR PROGRAM'
  DISPLAY 'ENTER VALUE OF WS-A '
  ACCEPT WS-A.
  DISPLAY WS-A
  
  DISPLAY 'ENTER VALUE OF WS-B :'  
  ACCEPT WS-B.
  
  DISPLAY WS-B
  DISPLAY 'OPTIONS A)ADDITION S)SUBSTRACTION C)COMPUTATION'
  DISPLAY 'ENTER CHOICE'
  ACCEPT CHOICE.
  DISPLAY 'CHOICE ENTERED:' CHOICE.
  EVALUATE CHOICE
    WHEN 'A'  
       PERFORM ADDITION
    WHEN 'S'  
       PERFORM SUBSTRACT
    WHEN 'C'
       PERFORM COMPUTATION
    WHEN OTHER
       DISPLAY 'WRONG CHOICE'
 END EVALUATE
 STOP RUN.
    
  ADDITION.
    ADD WS-A TO WS-B GIVING RESULT.
    MOVE RESULT TO ARESULT.
    DISPLAY 'ADDITION RESULT' ARESULT.
  SUBSTRACT.  
    SUBTRACT WS-B FROM WS-A GIVING RESULT.
    MOVE RESULT TO ARESULT.
    DISPLAY 'SUBSTRACTION RESULT' ARESULT.
  COMPUTATION.
    ACCEPT VALUE1.
    COMPUTE RESULT =(WS-B + WS-A )*VALUE1.
    DISPLAY 'COMPUTE RESULT :'RESULT.

Calculator

cobol

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

IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-NUM PIC 9(3). 88 PASS VALUES ARE 041 THRU 100. 88 FAIL VALUES ARE 000 THRU 40. PROCEDURE DIVISION. ACCEPT WS-NUM. IF PASS DISPLAY "PASSWS

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-NUM PIC 9(3).
   88 PASS VALUES ARE 041 THRU 100.
   88 FAIL VALUES ARE 000 THRU 40.

PROCEDURE DIVISION.


  ACCEPT WS-NUM.
  IF PASS
  DISPLAY "PASSWS WITH: " WS-NUM ' MARKS'.
  IF FAIL 
  DISPLAY "FAIL WITH: " WS-NUM ' MARKS'.
      
STOP RUN.

calcAddSubMultDiv

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. COBCALC.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
    SPECIAL-NAMES. DECIMAL-POINT IS COMMA.

DATA DIVISION.
WORKING-STORAGE SECTION.
    77 OPCAO     PIC 9.
    77 VALOR1    PIC 99.
    77 VALOR2    PIC 99.
    77 RESULTADO PIC 99.

PROCEDURE DIVISION.
    DISPLAY 'SELECIONE O PRIMEIRO VALOR:'.
    ACCEPT VALOR1.
    DISPLAY VALOR1.
    DISPLAY '******************************'.
    
    DISPLAY 'SELECIONE QUAL OPERAÇÃO DESEJA'.
    DISPLAY '******************************'.
    DISPLAY '1) SOMA'.
    DISPLAY '2) SUBTRAÇÃO'.
    DISPLAY '3) MULTIPLICAÇÃO'.
    DISPLAY '4) DIVISÃO'.
    ACCEPT OPCAO.
    DISPLAY '******************************'
    
    DISPLAY 'SELECIONE O SEGUNDO VALOR:'.
    ACCEPT VALOR2.
    DISPLAY VALOR2.
    DISPLAY '******************************'.
    
    EVALUATE OPCAO
        WHEN 1 DISPLAY '******************************'
                DISPLAY 'SOMA'
                ADD VALOR1 TO VALOR2
                DISPLAY VALOR2
        WHEN 2 DISPLAY '1'
        WHEN 3 DISPLAY '1'
        WHEN 4 DISPLAY '1'
        WHEN OTHER PERFORM DISPLAY 'ESCOLHA UMA OPCAO VALIDA'
            END-PERFORM
    END-EVALUATE.
    
STOP RUN.

Compile and Execute COBOL Online

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUM.
      05 WS-NUM-1  PIC 9(02).
      05 WS-NUM-2  PIC 9(02).
      05 WS-NUM-3  PIC 9(02).
PROCEDURE DIVISION.
ACCEPT WS-NUM-1.
ACCEPT WS-NUM-2.
ACCEPT WS-NUM-3.
ADD 15 WS-NUM-1 WS-NUM-2 TO WS-NUM-3.
DISPLAY 'RESULT : ' WS-NUM-3.
STOP RUN.

ttttt

cobol

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

tst1

cobol

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

Compile and Execute COBOL Online

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NAME PIC X(5).
01 WS-I PIC 99.
01 WS-L PIC X.
   88 WS-LL VALUES 'A' 'B' 'C' 'D' 'E' 'F' 'G' 'H' 'I' 'J' 'K' 'L' 'M' 'N' 'O' 'P' 'Q' 'R' 'S' 'T' 'U' 'V' 'W' 'X' 'Y' 'Z' SPACE.
PROCEDURE DIVISION.
MOVE '4ARI5' TO WS-NAME.
IF WS-NAME = SPACES OR LOW-VALUES
    DISPLAY 'MANDATORY'
    ELSE
        PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I = LENGTH OF WS-NAME + 1
        MOVE WS-NAME(WS-I:1) TO WS-L
        DISPLAY WS-I
        IF NOT WS-LL
             DISPLAY 'INVALID'
             MOVE 5 TO WS-I 
             END-IF
        END-PERFORM
END-IF.
STOP RUN.

Compile and Execute COBOL Online

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. STRING.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-A           PIC X(10) VALUES 'ANANTA'.
01 WS-B           PIC X(10).
01 WS-LEN         PIC 9(2) VALUES ZEROS.
01 WS-C           PIC X(1) VALUE SPACES.
01 WS-1           PIC X(06) VALUES SPACES.
01 WS-2           PIC X(06) VALUES SPACES.
01 WS-3           PIC X(06) VALUES SPACES.
01 WS-4           PIC X(20) VALUES 'ANANTA KUMAR SAHU'.    

PROCEDURE DIVISION.
INSPECT WS-A TALLYING WS-LEN FOR CHARACTERS. 
DISPLAY 'NOS OF CHARACHER:'WS-LEN.
PERFORM UNTIL WS-LEN = 0
MOVE WS-A(WS-LEN:1) TO WS-C
STRING 
WS-B DELIMITED BY SPACES 
WS-C DELIMITED BY SPACES 
INTO WS-B
DISPLAY 'WS-B:'WS-B
COMPUTE WS-LEN = WS-LEN - 1
END-PERFORM.
DISPLAY 'WS-B:'WS-B.
UNSTRING 
WS-4 DELIMITED BY SPACES
INTO WS-1
WS-2
WS-3
DISPLAY 'WS-1:'WS-1.
DISPLAY 'WS-2:'WS-2.
DISPLAY 'WS-3:'WS-3.
STOP RUN.

Follow

Newsletter