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: 13824 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

91 days 22 hours ago view (lines: 17, size: 401, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
 IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A        PIC 9(10)   VALUE ZEROES.
       01 B        PIC 9(10)   VALUE ZEROES.
       01 STR      PIC X(10).
 ...

91 days 22 hours ago view (lines: 15, size: 326, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
               IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 A        PIC 9.
       77 B        PIC 9.
       77 ANS PIC 9.
       PROCEDURE DIVISION.
       ACCEPT A B.
 ...

91 days 22 hours ago view (lines: 14, size: 194, inputs: 1) COBOL 85 Compilation error

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

91 days 22 hours ago view (lines: 22, size: 706, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID.  Multiplier.
AUTHOR.  Michael Coughlan.
* Example program using ACCEPT, DISPLAY and MULTIPLY to 
* get two single digit numbers from the user and multiply them together
 
DATA DIVISION.
 
WORKING-STORAGE SECTION.
 ...

91 days 22 hours ago view (lines: 14, size: 194, inputs: 1) COBOL 85 Compilation error

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

91 days 22 hours ago view (lines: 18, size: 436, inputs: 1) COBOL 85 Success afix

1
2
3
4
5
6
7
8
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A        PIC 9(10)   VALUE ZEROES.
       01 B        PIC 9(10)   VALUE ZEROES.
       01 STR      PIC A(10).
 ...

91 days 22 hours ago view (lines: 15, size: 322, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
               IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 A        PIC 9.
       77 B        PIC 9.
       77 ANS PIC 9.
       PROCEDURE DIVISION.
       ACCEPT A.
 ...

91 days 22 hours ago view (lines: 14, size: 194, inputs: 1) COBOL 85 Compilation error

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

91 days 22 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 .
 ...

91 days 22 hours ago view (lines: 18, size: 436, inputs: 1) COBOL 85 Success afix

1
2
3
4
5
6
7
8
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A        PIC 9(10)   VALUE ZEROES.
       01 B        PIC 9(10)   VALUE ZEROES.
       01 STR      PIC X(10).
 ...

91 days 22 hours ago view (lines: 18, size: 435, inputs: 1) COBOL 85 Success afix

1
2
3
4
5
6
7
8
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A        PIC 9(10)   VALUE ZEROES.
       01 B        PIC 9(10)   VALUE ZEROES.
       01 STR      PIC X(3).
 ...

91 days 22 hours ago view (lines: 15, size: 209, inputs: 1) COBOL 85 Compilation error

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

91 days 22 hours ago view (lines: 18, size: 435, inputs: 1) COBOL 85 Success afix

1
2
3
4
5
6
7
8
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A        PIC 9(10)   VALUE ZEROES.
       01 B        PIC 9(10)   VALUE ZEROES.
       01 STR      PIC X(1).
 ...

91 days 22 hours ago view (lines: 15, size: 322, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
               IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 A        PIC 9.
       77 B        PIC 9.
       77 ANS PIC 9.
       PROCEDURE DIVISION.
       ACCEPT A.
 ...

91 days 22 hours ago view (lines: 15, size: 209, inputs: 1) COBOL 85 Compilation error

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

91 days 22 hours ago view (lines: 23, size: 737, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
      $ SET SOURCEFORMAT"FREE"
IDENTIFICATION DIVISION.
PROGRAM-ID.  Multiplier.
AUTHOR.  Michael Coughlan.
* Example program using ACCEPT, DISPLAY and MULTIPLY to 
* get two single digit numbers from the user and multiply them together
 
DATA DIVISION.
 ...

91 days 22 hours ago view (lines: 18, size: 436, inputs: 1) COBOL 85 Success afix

1
2
3
4
5
6
7
8
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A        PIC 9(10)   VALUE ZEROES.
       01 B        PIC 9(10)   VALUE ZEROES.
       01 STR      PIC X(10).
 ...

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

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

91 days 22 hours ago view (lines: 16, size: 279, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 n PIC Z9 .
        01 A        PIC 9(10)   VALUE ZEROES.
 ...

91 days 23 hours ago view (lines: 15, size: 188, 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 .
 ...

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

1
2
3
4
5
6
7
8
9
               IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 A        PIC 999.
       77 B        PIC 999.
       77 ANS PIC 999v99.
       PROCEDURE DIVISION.
       ACCEPT A.
 ...

91 days 23 hours ago view (lines: 18, size: 417, inputs: 1) COBOL 85 Success afix

1
2
3
4
5
6
7
8
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A        PIC 9(10)   VALUE ZEROES.
       01 B        PIC 9(10)   VALUE ZEROES.
       01 STR      PIC X(10).
 ...

91 days 23 hours ago view (lines: 16, size: 202, inputs: 1) COBOL 85 Runtime error

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

91 days 23 hours ago view (lines: 15, size: 188, 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 .
 ...

91 days 23 hours ago view (lines: 24, size: 617, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A        PIC 9(10)   VALUE ZEROES.
       01 B        PIC 9(10)   VALUE ZEROES.
       01 I        PIC 9(10)   VALUE ZEROES.
       01 STR      PIC X(10).
 ...

91 days 23 hours ago view (lines: 16, size: 201, inputs: 1) COBOL 85 Compilation error

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

91 days 23 hours ago view (lines: 18, size: 627, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.
       PROGRAM-ID.  Multiplier.
       AUTHOR.  Michael Coughlan.
 
       DATA DIVISION.
 
       77  Num1                                PIC 9(10)  COMP.
       77  Num2                                PIC 9(10)  COMP.
       77  Result                              PIC 9(10)  COMP.
 ...

91 days 23 hours ago view (lines: 14, size: 295, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
               IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 A        PIC 999.
       77 B        PIC 999.
       PROCEDURE DIVISION.
       ACCEPT A.
       ACCEPT B.
 ...

91 days 23 hours ago view (lines: 14, size: 295, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
               IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 A        PIC 999.
       77 B        PIC 999.
       PROCEDURE DIVISION.
       ACCEPT A.
       ACCEPT B.
 ...

91 days 23 hours ago view (lines: 18, size: 372, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 A        PIC 99.
       77 B        PIC 99.
       77 STR      PIC X(10).
 ...

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	IDENTIFICATION DIVISION. PROGRAM-ID. SOLUTION. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC 9(10) VALUE ZEROES. 01 B PIC 9(10) VALUE ZEROES. 01 STR PIC X(10).
...

1 2 3 4 5 6 7 8 9	IDENTIFICATION DIVISION. PROGRAM-ID. SOLUTION. DATA DIVISION. WORKING-STORAGE SECTION. 77 A PIC 9. 77 B PIC 9. 77 ANS PIC 9. PROCEDURE DIVISION. ACCEPT A 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. Multiplier. AUTHOR. Michael Coughlan. DATA DIVISION. 77 Num1 PIC 9(10) COMP. 77 Num2 PIC 9(10) COMP. 77 Result PIC 9(10) COMP.
...

UsernamePassword

Username
Password