Cobol Programming Examples

Cobol Picture Clause

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-NUM1 PIC S9(3)V9(2).
   01 WS-NUM2 PIC PPP999.
   01 WS-NUM3 PIC S9(3)V9(2) VALUE -123.45.
   01 WS-NAME PIC A(6) VALUE 'ABCDEF'.
   01 WS-ID PIC X(5) VALUE 'A121$'.

PROCEDURE DIVISION.
   DISPLAY "WS-NUM1 : "WS-NUM1.
   DISPLAY "WS-NUM2 : "WS-NUM2.
   DISPLAY "WS-NUM3 : "WS-NUM3.
   DISPLAY "WS-NAME : "WS-NAME.
   DISPLAY "WS-ID : "WS-ID.
STOP RUN.

COBOL Identification Division

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
PROCEDURE DIVISION.
DISPLAY 'Welcome to Tutorialspoint'.
STOP RUN.

COBOL Procedure Division

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-NAME PIC A(30).
   01 WS-ID PIC 9(5) VALUE '12345'.

PROCEDURE DIVISION.
   A000-FIRST-PARA.
   DISPLAY 'Hello World'.
   MOVE 'TutorialsPoint' TO WS-NAME.
   DISPLAY "My name is : "WS-NAME.
   DISPLAY "My ID is : "WS-ID.
STOP RUN.

cobol_decimal_punktum

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.                  DECIMAL-POINT IS COMMA.
DATA DIVISION.          
WORKING-STORAGE SECTION.

01 WS-TXT.
    03 WS-DISP-V           PIC +9(2).9(2).


  
PROCEDURE DIVISION.

  MOVE 12,34 TO  WS-DISP-V 

  DISPLAY WS-TXT

STOP RUN.

Compile and Execute COBOL Online

cobol

 
       IDENTIFICATION DIVISION.
       PROGRAM-ID. LEE-ARCHIVOS-IND.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT FENTRADA ASSIGN TO "../datos.dat"
           ORGANIZATION IS INDEXED
           ACCESS MODE IS DYNAMIC
           RECORD KEY IS VAR-ID.



       DATA DIVISION.
       FILE SECTION.
       FD FENTRADA.
       01 ESTUDIANTE.
           02 VAR-ID PIC 9(5).
           02 NOMBRE PIC X(50).

       WORKING-STORAGE SECTION.
       01 WKS-DATOS.
           02 WKS-ID PIC 9(5).
           02 WKS-NOMBRE PIC X(50).

       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
           
           OPEN I-O FENTRADA
           MOVE 12345 TO VAR-ID.
           
           READ FENTRADA RECORD INTO WKS-DATOS
               KEY IS VAR-ID
               INVALID KEY DISPLAY 'Invalid Key'
               NOT INVALID KEY DISPLAY WKS-DATOS
           END-READ.
             
             

           CLOSE FENTRADA.
       STOP RUN.











       END PROGRAM LEE-ARCHIVOS-IND.

AAAA

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WK-B COPY WK-A.
01 WK-A.
   03  WK-A1 PIC 9(01).
   03  WK-A2 PIC 9(02).
PROCEDURE DIVISION.
DISPLAY 'Hello, world'.
STOP RUN.

silly world

cobol

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

Cobol Test 02

cobol

identification division.
program-id. test001.

data division.
    working-storage section.
    77 ws-name pic a(5).
    77 ws-id pic 9(6) value 12345.
    01 ws-today.
        02 ws-day pic a(2) value '09'.
        02 ws-month pic a(2) value '11'.
        02 ws-year.
            03 ws-century pic a(2) value '20'.
            03 ws-year pic a(2) value '17'.
            
    77 ws-num1 pic s9(3)v9(2).
    77 ws-num2 pic ppp999.
    77 ws-num3 pic 99v9 value zero.
    77 ws-data1 pic x(10) value '1s231$->'.
    77 ws-date pic x(10).

procedure division.
    para000-first-parag.
    move '12' to ws-name.
    display 'hello ' ws-name '#' ws-id.
    display 'bye ' ws-id.
    display 'date: ' ws-today.
    move -113.78 to ws-num1.
    display ws-num1.
    display ws-num2.
    display ws-num3.
    move ws-num1 to ws-num3.
    display ws-num3.
    display ws-data1.
    accept ws-date from date.
    display ws-date.
    accept ws-name.
    display ws-name.
    accept ws-name.
    display ws-name.
stop run.

string

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 X PIC X(30) VALUE 'mYhU nAME iS nITIN'.
01 I PIC 99 VALUE ZERO.

PROCEDURE DIVISION.
PERFORM UNTIL X = SPACES
ACCEPT X
DISPLAY X
END-PERFORM.
STOP RUN.

Compile and Execute COBOL Online

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. MPROG20.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
WORKING-STORAGE Section.
01 WS-Name pic X(10) values spaces.
01 WS-Number pic 99 values Zero.
01 WS-inputedDate.
    03 WS-inputedDay pic 9(2).
    03 WS-inputedMonth pic 9(2).
    03 WS-inputedCenturies pic 9(2).
    03 WS-inputedYear pic 9(2).
01 WS-Command pic 9 values zero.
01 WS-temp pic 99 values zero.
01 WS-multipleResult pic 99 values zero.
01 WS-CURRENT-DATE-DATA.
    05  WS-CURRENT-DATE.
        10  WS-CURRENT-YEAR         PIC 9(04).
        10  WS-CURRENT-MONTH        PIC 9(02).
        10  WS-CURRENT-DAY          PIC 9(02).
01 WS-inputedIntergerDate pic 9(8).
01 WS-currentIntergerDate pic 9(8).
PROCEDURE DIVISION.
    Perform 100-MENU.
    STOP RUN.

100-MENU SECTION.
110-START.
    DISPLAY '1. Say Hello funtion'.
    DISPLAY '2. Multiple'.
    DISPLAY '3. Different date'.
    DISPLAY '4. Exit'.
    Perform 200-SAY-HELLO.
190-END.

200-SAY-HELLO SECTION.
210-START.
    move 'PhucLH9' to WS-Name.
    DISPLAY 'Hello ' WS-Name.
    Perform 300-Multiple.
    Perform 400-Different-date.
290-END. 
    EXIT.

300-Multiple SECTION.
310-Start.
    move 3 to WS-Number.
    move 1 to WS-temp.
320-Multiple.
    Compute WS-multipleResult = WS-temp * WS-Number.
    DISPLAY WS-Number 'x' WS-temp '=' WS-multipleResult.
    Add 1 to WS-temp.
    if WS-temp < 11
       Perform 320-Multiple
    end-if.
390-END. 
    EXIT.

400-Different-date SECTION.
410-START.
    move '02112016' to WS-inputedDate.
    move FUNCTION CURRENT-DATE to WS-CURRENT-DATE-DATA.
    Compute WS-currentIntergerDate = FUNCTION INTEGER-OF-DATE(WS-CURRENT-DATE-DATA(1:8)).
    DISPLAY WS-CURRENT-DATE-DATA(1:8).
    DISPLAY WS-inputedCenturies WS-inputedYear '/' WS-inputedMonth '/' WS-inputedDay.
490-END.
    EXIT.

Follow

Newsletter