Cobol Programming Examples

TestRoÅ¾injo

cobol

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

Afrundingsfejl

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. ROUND-FEJL.
DATA DIVISION.

WORKING-STORAGE SECTION.

77 DEP366-OMK-HANDEL-PCT         PIC 9(13)V9(02).
77 DEP361-OMK-HANDEL-BEL-DKK     PIC S9(13)V9(02) COMP-3.
77 DEP361-AFREGNINGS-BEL-DKK     PIC S9(13)V9(02) COMP-3.

PROCEDURE DIVISION.

MOVE     7.50   TO DEP361-OMK-HANDEL-BEL-DKK
MOVE  1507.50   TO DEP361-AFREGNINGS-BEL-DKK

COMPUTE DEP366-OMK-HANDEL-PCT =                     
      ( DEP361-OMK-HANDEL-BEL-DKK * 100 )           
      / DEP361-AFREGNINGS-BEL-DKK                   
   ON SIZE ERROR MOVE ZERO TO DEP366-OMK-HANDEL-PCT 
END-COMPUTE                                         

DISPLAY 'DEP366-OMK-HANDEL-PCT = ' DEP366-OMK-HANDEL-PCT

COMPUTE DEP366-OMK-HANDEL-PCT ROUNDED =                     
      ( DEP361-OMK-HANDEL-BEL-DKK * 100 )           
      / DEP361-AFREGNINGS-BEL-DKK                   
   ON SIZE ERROR MOVE ZERO TO DEP366-OMK-HANDEL-PCT 
END-COMPUTE                                         

DISPLAY 'DEP366-OMK-HANDEL-PCT = ' DEP366-OMK-HANDEL-PCT

STOP RUN.

asdf

cobol

IDENTIFICATION DIVISION.
       PROGRAM-ID. ADD01.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  FIRST-NUMBER      PICTURE IS 99999.
       01  SECOND-NUMBER     PICTURE IS 99999.
       01  THE-RESULT        PICTURE IS 99999.
       PROCEDURE DIVISION.
       PROGRAM-BEGIN.
               DISPLAY "===== ADDITION OF TWO NUMBERS =====".
               DISPLAY "Enter the first number :".
               ACCEPT FIRST-NUMBER.
               DISPLAY "Enter the second number :".
               ACCEPT SECOND-NUMBER.
               ADD FIRST-NUMBER, SECOND-NUMBER GIVING THE-RESULT.
      DISPLAY "The result is : ".
      DISPLAY THE-RESULT.
               STOP RUN.

COBXX903

cobol

IDENTIFICATION DIVISION.
       PROGRAM-ID. COBXX902.
       AUTHOR. PROGRAMADOR.
       INSTALLATION. HOST-OS/390.
       DATE-WRITTEN. 17/03/2008.
       DATE-COMPILED. 17/03/2008.
       
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
         DECIMAL-POINT IS COMMA.
        
       DATA DIVISION.
       WORKING-STORAGE SECTION.
            01 TOTAL.
            	05 NUMERO		PIC	9(2)	VALUE 1.
        	    05 FILLER		PIC	X(3)	VALUE ' X '.
         	    05 INDICE		PIC	9(2)	VALUE 1.
        	    05 FILLER		PIC	X(3)	VALUE ' = '.
         	    05 RESULTADO 	PIC	9(2) 	VALUE 0.
    
       PROCEDURE DIVISION.
        	PERFORM 2000-PROCESO
       		THRU 2000-PROCESO-EXIT
        		UNTIL NUMERO = 10.
        	
       STOP RUN.
        
       2000-PROCESO.
            PERFORM 2100-PROCESO
       		THRU 2100-PROCESO-EXIT
        		UNTIL INDICE = 10.
            
            ADD 1 TO NUMERO.
            MOVE 1 TO INDICE.
            DISPLAY "***********************".
            
       2000-PROCESO-EXIT.
            EXIT.
            
       2100-PROCESO.
            
            MULTIPLY INDICE BY NUMERO GIVING RESULTADO.
            DISPLAY TOTAL.
            ADD 1 TO INDICE.
            
       2100-PROCESO-EXIT.
            EXIT.

Fourth Class COBOL Project

cobol

IDENTIFICATION DIVISION. 
DATE-WRITTEN.  MM-DD-CCYY.
PROGRAM-ID.  ConditionNames. 
AUTHOR.  Elvedin Sumic. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 
01 CharIn             PIC X.    
88 Vowel           VALUE "a", "e", "i", "o", "u".    
88 Consonant       VALUE "b", "c", "d", "f", "g", "h"                             "j" THRU "n", "p" THRU "t", "v" THRU "z".   
88 Digit           VALUE "0" THRU "9".    
88 ValidCharacter  VALUE "a" THRU "z", "0" THRU "9". 
PROCEDURE DIVISION. 
0000-MAIN.    
DISPLAY "Enter lower case character or digit. Invalid char ends."    
ACCEPT CharIn    
PERFORM UNTIL NOT ValidCharacter      
EVALUATE TRUE        
WHEN Vowel     DISPLAY "The letter " CharIn " is a vowel."       
WHEN Consonant DISPLAY "The letter " CharIn " is a consonant."       
WHEN Digit     DISPLAY CharIn " is a digit."      
END-EVALUATE      
ACCEPT CharIn    
END-PERFORM    
GOBACK.

Second Class Assignment

cobol

IDENTIFICATION DIVISION. 
PROGRAM-ID. CobolGreeting. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 
01  IterNum   PIC 9 VALUE 3.
PROCEDURE DIVISION. 
BeginProgram.   
PERFORM DisplayGreeting IterNum TIMES.   
STOP RUN.    
DisplayGreeting.   
DISPLAY "Cobol Greeting From Elvedin Sumic".

First Class Assignment (FIRSTFL.cbl)

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. FIRSTBL.
PROCEDURE DIVISION.
DISPLAY 'Elvedin Sumic Completed the First Program'.
STOP RUN.

TestRoÅ¾injo

Afrundingsfejl

asdf

COBXX903

Fourth Class COBOL Project

Second Class Assignment

First Class Assignment (FIRSTFL.cbl)

Follow

Newsletter