Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
Tutorialspoint
Home
Q/A
Tools
Coding Ground
Current Affairs
UPSC Notes
Online Tutors
Code Examples
Whiteboard
Net Meeting
Articles
Library
Videos
eBooks

Compile and Execute COBOL Online

cobol 

IDENTIFICATION DIVISION.
PROGRAM-ID. PARAGRAPHS.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01   WS-NAME  PIC X(10).
PROCEDURE DIVISION.
0000-INITIALIZATION.
DISPLAY 'DEFINING MY OWN PARAGRAPHS NAME'.
DISPLAY 'USING PERFORM'.
0000-SET-VARIABLES.
    MOVE 'IDRISSA' TO WS-NAME.
0000-CALL-FUNCTIONS.
    PERFORM SAY-HELLO-AGAIN.

0000-DISPLAY-STRINGS.
    DISPLAY 'Hello, world'.
0000-PRINT-VARIABLES.
    DISPLAY WS-NAME.

0000-EXIT.
    STOP RUN.
    
    
SAY-HELLO-AGAIN.
    DISPLAY ' '.
    DISPLAY 'START SAY-HELLO-AGAIN'.
    DISPLAY "HELLO HELLO!".
    DISPLAY WS-NAME "my name:".
    DISPLAY 'END SAY-HELLO-AGAIN'.
    DISPLAY ' '.

EX IFS ANINHADOS

cobol 

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUMEROA PIC 9(03) VALUE 4.
01 NUMEROB PIC 9(03) VALUE 7.
01 NUMEROC PIC 9(03) VALUE 2.
01 NUMEROD PIC 9(03) VALUE 2.
01 NUMEROE PIC 9(03) VALUE 5.
01 NUMEROF PIC 9(03) VALUE 3.
01 NUMEROG PIC 9(03) VALUE 2.
01 NUMEROH PIC 9(03) VALUE 9.

PROCEDURE DIVISION.
010-ROOT.
DISPLAY 'SE A > B'.
DISPLAY 'A= ' NUMEROA ' B= ' NUMEROB.
IF NUMEROA > NUMEROB
THEN 
    DISPLAY 'É MAIOR QUE B, ENTÃO VEJA SE E MENOR QUE F '
    DISPLAY 'E= ' NUMEROE ' F= ' NUMEROF
    IF NUMEROE < NUMEROF
    THEN
        DISPLAY 'É MENOR, FAÇA CALCULO1 E VA PARA CALC5'
        DISPLAY 'CALC1'
        PERFORM 020-CALC5
    ELSE
        DISPLAY 'É MAIOR FACA CALCULO2 E VA PARA CALC5'
        DISPLAY 'CALC2'
        PERFORM  020-CALC5
    END-IF
ELSE
    DISPLAY 'É MENOR QUE B,ENTÃO VEJA SE C = D'
    DISPLAY 'C= ' NUMEROC ' D= ' NUMEROD
    IF NUMEROC = NUMEROD
    THEN
        DISPLAY 'É IGUAL, VEJA SE G = H'
        DISPLAY 'G= ' NUMEROG ' H= ' NUMEROH
        IF NUMEROG = NUMEROH
        THEN
            DISPLAY 'É IGUAL, FAÇA CALC5'
            PERFORM 020-CALC5
        ELSE    
            DISPLAY 'NÃO É, FAÇA CALC4'
            DISPLAY 'CALC4'
            PERFORM 020-CALC5
        END-IF
    ELSE
        DISPLAY 'N É IGUAL, FAÇA CALC3'
        DISPLAY 'CALC3'
        PERFORM 020-CALC5
    END-IF
END-IF
DISPLAY 'EXECUTA ALGO AQUI?'.
DISPLAY 'NÃO EXECUTA NADA DPS DESSE END-IF POIS PAREI O CODIGO LA.'.
GOBACK.

020-CALC5.
DISPLAY 'CALC5'.
DISPLAY 'FIM DE CODIGO'.
STOP RUN.
020-CALC5-FIM. EXIT.

Compile and Execute COBOL Online

cobol 

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  FIRST-NAME  PIC X(10) VALUE "IDRISSA".
01  LAST-NAME   PIC X(10) VALUE "DIALLO".
01  AGE-ME      PIC 9(02) VALUE 29.
01  NOW-AGE     PIC 9(02).
01  A-SPACE     PIC X(01).
PROCEDURE DIVISION.

0000-MAINLINE.
    MOVE " " TO A-SPACE.
    DISPLAY "HELLO COBOL!".
    
   
    DISPLAY 'MY NAME IS'
            A-SPACE
            FIRST-NAME
            A-SPACE
            LAST-NAME
            A-SPACE
            'AND I AM'
            AGE-ME
            "YEARS OLD"
            .
    MOVE AGE-ME TO NOW-AGE.
    DISPLAY 'NOW AGE:' NOW-AGE.

0000-EXIT.
    STOP RUN.

KK

cobol 

IDENTIFICATION DIVISION.
PROGRAM-ID. BASICCBL.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-EMPLOYEE-DETAILS.
  
     05 WS-PSID  PIC   9(07).
     05 WS-FIRST-NAME  PIC  X(15).
     05 WS-LAST-NAME  PIC  X(15).
     05 WS-SALARY  PIC  9(07).
     05 WS-MOBILE  PIC  9(10).
     

PROCEDURE DIVISION.
   ACCEPT WS-PSID.
   ACCEPT WS-FIRST-NAME.
   ACCEPT WS-LAST-NAME.
   ACCEPT WS-SALARY.
   ACCEPT WS-MOBILE.
   
  IF (WS-PSID(1:1) NOT = 1)
    DISPLAY 'PSID NOT STARTING WITH 1'
  ELSE 
    IF(WS-FIRST-NAME IS NOT ALPHABETIC)
        DISPLAY 'FIRST NAME IS NOT ALPHABETIC'
    ELSE
        IF(WS-LAST-NAME IS NOT  ALPHABETIC)
            DISPLAY 'LAST NAME IS NOT ALPHABETIC'
        ELSE
            IF(WS-SALARY IS NOT NUMERIC)
            AND(WS-SALARY NOT > 10000)
                DISPLAY 'SALARY IS INVALID'
            ELSE
                IF(WS-MOBILE IS NOT NUMERIC)
                AND((WS-MOBILE(1:1) NOT = 9)
                OR(WS-MOBILE(1:1) NOT = 8)
                OR(WS-MOBILE(1:1) NOT = 7))
                    DISPLAY 'MOBILE NUMBER IS INVALID'
                ELSE
                    DISPLAY WS-LAST-NAME(1:1)'.' WS-FIRST-NAME
                    DISPLAY 'PSID:'WS-PSID
                    DISPLAY 'MOBILE:'WS-MOBILE
                END-IF
            END-IF
        END-IF
    END-IF
END-IF.
                
   
  

STOP RUN.

EXEMPLO SUBTRACT ADD

cobol 

IDENTIFICATION DIVISION.
PROGRAM-ID. EXSUBADD.

ENVIRONMENT DIVISION.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUMERO PIC 9(2) VALUES 7.
01 WS-NUMERO2 PIC 9(2) VALUES 3.
01 WS-NUMERO3 PIC 9(2).
01 WS-NUMERO4 PIC 9(2) VALUES 2.

PROCEDURE DIVISION.
*>SUBTRAÇÃO DE UM NUMERO DETERMINADO DE TAL COISA
DISPLAY 'VALOR DE NUMERO: ' WS-NUMERO.
SUBTRACT 1 FROM WS-NUMERO.
DISPLAY 'VALOR DO NUMERO APOS SUBTRAÇÃO DE 1 DEFINIDO: ' WS-NUMERO.

*>SUBTRAÇÃO DE VARIAVELX DE VARIAVELY
MOVE 7 TO WS-NUMERO.
DISPLAY ' '.
DISPLAY 'VALOR DE NUMERO: ' WS-NUMERO.
DISPLAY 'VALOR DE NUMERO2: ' WS-NUMERO2.
SUBTRACT WS-NUMERO2 FROM WS-NUMERO.
DISPLAY 'VALOR DO NUMERO APOS SUBTRAÇÃO DE NUMERO2 = ' WS-NUMERO2 ': ' WS-NUMERO.

*>SUBTRAÇÃO E DAR VALOR PARA OUTRA VARIAVEL
MOVE 7 TO WS-NUMERO.
DISPLAY ' '.
DISPLAY 'VALOR DE NUMERO: ' WS-NUMERO.
DISPLAY 'VALOR DE NUMERO2: ' WS-NUMERO2.
DISPLAY 'VALOR DE NUMERO3: ' WS-NUMERO3.
SUBTRACT WS-NUMERO2 FROM WS-NUMERO GIVING WS-NUMERO3.
DISPLAY 'VALOR DO NUMERO3 APOS SUBTRAÇÃO DE NUMERO2 = ' WS-NUMERO2 ': ' WS-NUMERO3.

*>ADIÇÃO DE UM NUMERO DETERMINADO PARA TAL COISA
MOVE 7 TO WS-NUMERO.
DISPLAY ' '.
DISPLAY 'VALOR DE NUMERO: ' WS-NUMERO.
ADD 1 TO WS-NUMERO.
DISPLAY 'VALOR DO NUMERO APOS ADIÇÃO DE 1 DEFINIDO: ' WS-NUMERO.

*>ADIÇÃO DE VARIAVELX PARA VARIAVELY
MOVE 7 TO WS-NUMERO.
DISPLAY ' '.
DISPLAY 'VALOR DE NUMERO: ' WS-NUMERO.
DISPLAY 'VALOR DE NUMERO2: ' WS-NUMERO2.
ADD WS-NUMERO2 TO WS-NUMERO.
DISPLAY 'VALOR DO NUMERO APOS ADIÇÃO DE NUMERO2 = ' WS-NUMERO2 ': ' WS-NUMERO.

*>ADIÇÃO DE VARIAVELX, VARIAVELY PARA VARIAVELZ DANDO VALOR PARA VARIAVELW
MOVE 7 TO WS-NUMERO.
DISPLAY ' '.
DISPLAY 'VALOR DE NUMERO: '  WS-NUMERO.
DISPLAY 'VALOR DE NUMERO2: ' WS-NUMERO2.
DISPLAY 'VALOR DE NUMERO3: ' WS-NUMERO3.
DISPLAY 'VALOR DE NUMERO4: ' WS-NUMERO4.

ADD WS-NUMERO,WS-NUMERO2 TO WS-NUMERO4 GIVING WS-NUMERO3
DISPLAY 'VALOR DE NUMERO3 = ' WS-NUMERO3 ' APOS RECEBER A SOMA DE NUMERO1 + NUMERO2 + NUMERO4 = ' WS-NUMERO '+' WS-NUMERO2 '+' WS-NUMERO4.

STOP RUN.

Compile and Execute COBOL Online

cobol 

IDENTIFICATION DIVISION.
program-id. Hello.
data division.
working-storage section.
        01 emp-name     pic A(10).
        01 emp-id       pic 9(10).
        01 emp-adress   pic X(10).
        01 abcd         pic 9(10).
    procedure division.
       display 'enter emp-name'.
       accept emp-name.
       display 'enter emp-id'.
       accept emp-id.
       display  'enter emp-adress'.
       accept emp-adress.
       Goback.

temp

cobol 

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

Compile and Execute COBOL Online

cobol 


IDENTIFICATION DIVISION.

PROGRAM-ID.    DZF011B.

AUTHOR.        I DIALLO

DATE-WRITTEN.  09/24/2017.

DATE-COMPILED.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.

DATA DIVISION.

WORKING-STORAGE SECTION.

01  WS-PROG-NAME                PIC  X(08) VALUE 'DTEST02 '.
01  DSPL-CODE                   PIC  X(06) VALUE SPACES.
01  WS-VARIABLES.
    05  WS-DISPLAY              PIC  X(20) VALUE SPACES.
    05  WS-DATE                 PIC  X(8).
    05  WS-TIME                 PIC  X(20).
    05  WS-DATE-TIME            PIC  X(20).
    05  WS-DT-STR               PIC  X(80).
    05  MY-DATE                 PIC  X(20).
    05  WS-NAME.
        10  SR-NAME             PIC  X(06) VALUE 'MR.'.
        10  FT-NAME             PIC  X(20) VALUE 'IDRISSA'.
        10  MD-INTL             PIC  X(01) VALUE SPACES.
                     10  LST-NAME            PIC  X(20) VALUE 'DIALLO'.
             10  SUFFIX              PIC  X(06) VALUE 'SR.'.
         05  FULL-NAME               PIC  X(80) VALUE SPACES.





     PROCEDURE DIVISION.

     0000-MAINLINE.
         ACCEPT WS-DATE FROM DATE YYYYMMDD.
         ACCEPT MY-DATE FROM DATE YYYYMMDD.
         DISPLAY MY-DATE
         
         .

         MOVE FUNCTION CURRENT-DATE TO WS-DATE-TIME
         MOVE 'HELLO COBOL!' TO WS-DISPLAY
         DISPLAY WS-DISPLAY 'DATE:' WS-DATE-TIME(1:4)
                                '-' WS-DATE-TIME(5:2)
                                '-' WS-DATE-TIME(7:2)
                             ' TIME:' WS-DATE-TIME(9:2)
                                 ':' WS-DATE-TIME(11:2)
                                 ':' WS-DATE-TIME(13:2)
          .
          STRING        'DATE:'
                        WS-DATE-TIME (5:2)
                        '-'
                        WS-DATE-TIME (7:2)
                        '-'
                        WS-DATE-TIME (1:4)
                        ' TIME:'
                        WS-DATE-TIME (9:2)
                        ':'
                        WS-DATE-TIME (11:2)
                        ':'
                        WS-DATE-TIME (13:2) DELIMITED BY SIZE
          INTO   WS-DT-STR
          DISPLAY WS-DT-STR
          .


         STRING        'MY FULL NAME: '
                         SR-NAME
                         ' '
                         FT-NAME
                         ' '
                         MD-INTL
                         ' '
                         LST-NAME
                         ' '
                         SUFFIX DELIMITED BY '  '
         INTO  FULL-NAME
         
        DISPLAY FULL-NAME
           .
           
 
        


       0000-EXIT.
       
    STOP RUN.

Hello

cobol 

IDENTIFICATION DIVISION.
    PROGRAM-ID. HELLO-WORLD.
    * simple hello world program
    PROCEDURE DIVISION.
        DISPLAY 'Hello world!'.
STOP RUN.

howr

cobol 

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

Previous 1 ... 61 62 63 64 65 66 67 Next
Advertisements
Loading...
img img img img img img

Follow

© Copyright 2019. All Rights Reserved.

Newsletter

We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy.