Ideone.com | Online COBOL Compiler & Debugging Tool

Computer geeks!

Recent public codes are listed below. You can filter them by the following programming languages:

codes: 10390 page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

1 day 18 hours ago view (lines: 22, size: 410, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG1.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC x(7).
01 B PIC x(10).
PROCEDURE DIVISION.
       MOVE 'PRIMARY' TO A.
       MOVE 'PRIMARY' TO B.
 ...

1 day 18 hours ago view (lines: 24, size: 442, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG1.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC x(7).
01 B PIC x(10).
PROCEDURE DIVISION.
       MOVE 'PRIMARY' TO A.
       MOVE 'PRIMARY' TO B.
 ...

1 day 18 hours ago view (lines: 22, size: 408, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG1.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC x(7).
01 B PIC x(10).
PROCEDURE DIVISION.
       MOVE 'PRIMARY' TO A.
       MOVE 'PRIMARY' TO B.
 ...

1 day 18 hours ago view (lines: 20, size: 352, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG1.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC x(7).
01 B PIC x(10).
PROCEDURE DIVISION.
       MOVE 'PRIMARY' TO A.
       MOVE 'PRIMARY' TO B.
 ...

1 day 18 hours ago view (lines: 20, size: 352, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG1.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC x(7).
01 B PIC x(10).
PROCEDURE DIVISION.
       MOVE 'PRIMARY' TO A.
       MOVE 'PRIMARY' TO B.
 ...

1 day 18 hours ago view (lines: 20, size: 352, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG1.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC x(10).
01 B PIC x(7).
PROCEDURE DIVISION.
       MOVE 'PRIMARY' TO A.
       MOVE 'PRIMARY' TO B.
 ...

1 day 20 hours ago view (lines: 20, size: 378, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG1.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 9(10) USAGE COMP-3.
01 B PIC 9(7) USAGE COMP-3.
PROCEDURE DIVISION.
       MOVE 'PRIMARY' TO A.
       MOVE 'PRIMARY' TO B.
 ...

1 day 20 hours ago view (lines: 18, size: 344, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG1.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 9(10) USAGE COMP-3.
01 B PIC 9(7) USAGE COMP-3.
PROCEDURE DIVISION.
       MOVE 'PRIMARY' TO A.
       MOVE 'PRIMARY' TO B.
 ...

2 days 22 hours ago view (lines: 4, size: 119, inputs: 1) COBOL 85 Compilation error

1
2
3
4
        IDENTIFICATION DIVISION.
        PROCEDURE DIVISION.
                DISPLAY 'HI!'.
                STOP RUN.

2 days 22 hours ago view (lines: 5, size: 150, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
        IDENTIFICATION DIVISION.
        DATE-WRITTEN. 12-12-12
        PROCEDURE DIVISION.
                DISPLAY 'HI!'.
                STOP RUN.

2 days 22 hours ago view (lines: 6, size: 174, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
        IDENTIFICATION DIVISION.
        PROGRAM-ID. MMV.
        DATE-WRITTEN. 12-12-12
        PROCEDURE DIVISION.
                DISPLAY 'HI!'.
                STOP RUN.

2 days 22 hours ago view (lines: 8, size: 227, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. MMV.
        DATE-WRITTEN. 12-12-12
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        PROCEDURE DIVISION.
                DISPLAY 'HI!'.
                STOP RUN.

2 days 22 hours ago view (lines: 8, size: 222, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. MMV.
        READ-ON. 12-12-12
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        PROCEDURE DIVISION.
                DISPLAY 'HI!'.
                STOP RUN.

2 days 22 hours ago view (lines: 8, size: 222, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. MMV.
        READ-ON. 12-12-12.
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        PROCEDURE DIVISION.
                DISPLAY 'HI!'.
                STOP RUN.

2 days 22 hours ago view (lines: 8, size: 221, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. MMV.
        READ-ON.12-12-12.
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        PROCEDURE DIVISION.
                DISPLAY 'HI!'.
                STOP RUN.

2 days 22 hours ago view (lines: 8, size: 218, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID.MMV
        READ-ON.12-12-12
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        PROCEDURE DIVISION.
                DISPLAY 'HI!'.
                STOP RUN.

2 days 22 hours ago view (lines: 8, size: 219, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID.MMV.
        READ-ON.12-12-12
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        PROCEDURE DIVISION.
                DISPLAY 'HI!'.
                STOP RUN.

2 days 22 hours ago view (lines: 8, size: 220, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID.MMV.
        READ-ON.12-12-12.
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        PROCEDURE DIVISION.
                DISPLAY 'HI!'.
                STOP RUN.

2 days 23 hours ago view (lines: 7, size: 138, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
IDENTIFICATION DIVISION.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
 100-MAIN-MODULE.
   DISPLAY 'HELLO PETE'.
   STOP RUN.

3 days 0 hours ago view (lines: 17, size: 237, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 n PIC Z9 .
 ...

3 days 0 hours ago view (lines: 17, size: 237, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 n PIC Z9 .
 ...

3 days 0 hours ago view (lines: 17, size: 237, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 n PIC Z9 .
 ...

3 days 11 hours ago view (lines: 33, size: 1582, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. NUMBERS.
000300 AUTHOR. TEEBEE.
000400****************************************************************
000500*    Simply transfer the present program to your favorite      *
000600*    mainframe computer, compile it, link it and submit some   *
000700*    appropriate JCL to run it. Its output tells the answer.   *
000800****************************************************************
000900 ENVIRONMENT DIVISION.
 ...

4 days 17 hours ago view (lines: 17, size: 237, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 n PIC Z9 .
 ...

5 days 23 hours ago view (lines: 15, size: 910, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.  PROGRAM-ID. GC33ZKE.  AUTHOR. GGGGEO2.
DATA DIVISION.  WORKING-STORAGE SECTION. 01 A1.  02 E1 PIC X(1).
02 E2 PIC X(1). 02 E3 PIC X(1).  02 E4 PIC X(1). 02 E5 PIC X(4).
02 E6 PIC X(1). 01 D1.  02 F1 PIC 9.  02  F2 PIC 9. 02 F3 PIC 9.
01  C1.  02 B1 PIC 9.  02 B2 PIC 9.  02  B3 PIC 9.  02 B4 PIC 9.
02 B5 PIC 9. 02 B6 PIC 9. 02 B7 PIC 9. 02 B8 PIC 9. 02 B9 PIC 9.
02 B0 PIC 9.  PROCEDURE DIVISION.  10000-MAIN-PARA.  DISPLAY "".
MOVE "NEW LINE." TO A1.  ACCEPT D1. DIVIDE F1 INTO F1 GIVING B4.
MOVE F1 TO B9.  SUBTRACT  F2 FROM F3 GIVING B6.  MOVE  F1 TO B9.
 ...

5 days 23 hours ago view (lines: 56, size: 994, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.  PROGRAM-ID. GC33ZKE.  AUTHOR. GGGGEO2.
 
DATA DIVISION.  
 
WORKING-STORAGE SECTION. 
01 A1.  
        02 E1 PIC X(1).
        02 E2 PIC X(1).
        02 E3 PIC X(1).
 ...

7 days 3 hours ago view (lines: 17, size: 237, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 n PIC Z9 .
 ...

7 days 6 hours ago view (lines: 29, size: 819, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
IDENTIFICATION DIVISION. 
PROGRAM-ID. HELLO-WORLD. 
AUTHOR. Antonio Neuton da Silva Júnior
DATE-WRITTEN.   03/02/2011.   
                                   
*ESTA É A LINHA DE COMENTÁRIO 
 
ENVIRONMENT DIVISION. 
 ...

7 days 6 hours ago view (lines: 27, size: 785, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION. 
PROGRAM-ID. HELLO-WORLD. 
AUTHOR. Antonio Neuton da Silva Júnior
DATE-WRITTEN.   03/02/2011.                                      
 
ENVIRONMENT DIVISION. 
 
DATA DIVISION. 
WORKING-STORAGE SECTION.
 ...

7 days 6 hours ago view (lines: 27, size: 790, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION. 
PROGRAM-ID. HELLO-WORLD. 
AUTHOR. Antonio Neuton da Silva Júnior
DATE-WRITTEN.   03/02/2011.                                      
 
ENVIRONMENT DIVISION. 
 
DATA DIVISION. 
WORKING-STORAGE SECTION.
 ...

page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

1 2 3 4 5 6 7 8 9	IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC x(7). 01 B PIC x(10). PROCEDURE DIVISION. MOVE 'PRIMARY' TO A. MOVE 'PRIMARY' TO B.
...

1 2 3 4 5 6 7 8	IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 n PIC Z9 .
...

1 2 3 4 5 6 7 8 9	IDENTIFICATION DIVISION. PROGRAM-ID. GC33ZKE. AUTHOR. GGGGEO2. DATA DIVISION. WORKING-STORAGE SECTION. 01 A1. 02 E1 PIC X(1). 02 E2 PIC X(1). 02 E3 PIC X(1).
...

1 2 3 4 5 6 7 8	IDENTIFICATION DIVISION. PROGRAM-ID. HELLO-WORLD. AUTHOR. Antonio Neuton da Silva Júnior DATE-WRITTEN. 03/02/2011. *ESTA É A LINHA DE COMENTÁRIO ENVIRONMENT DIVISION.
...

UsernamePassword

Username
Password