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

14 days 0 hours ago view (lines: 90, size: 3559, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  VENTAS.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT ARCHIVO-IN ASSIGN TO UT-S-SYSIN.
 ...

14 days 1 hour ago view (lines: 89, size: 3511, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  VENTAS.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT ARCHIVO-IN ASSIGN TO UT-S-SYSIN.
 ...

14 days 1 hour ago view (lines: 90, size: 3553, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  VENTAS.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT ARCHIVO-IN ASSIGN TO UT-S-SYSIN.
 ...

14 days 1 hour ago view (lines: 2, size: 12, inputs: 1) COBOL Compilation error

1
2
if a 
move 3

14 days 1 hour ago view (lines: 1, size: 3, inputs: 1) COBOL Compilation error

1
if

14 days 3 hours ago view (lines: 1, size: 0, inputs: 1) COBOL Compilation error

14 days 5 hours ago view (lines: 1, size: 0, inputs: 1) COBOL Compilation error

14 days 20 hours ago view (lines: 1, size: 0, inputs: 1) COBOL Compilation error

14 days 22 hours ago view (lines: 146, size: 5620, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

14 days 22 hours ago view (lines: 136, size: 5234, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

14 days 22 hours ago view (lines: 136, size: 5234, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

14 days 23 hours ago view (lines: 135, size: 5498, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

14 days 23 hours ago view (lines: 131, size: 5263, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

14 days 23 hours ago view (lines: 131, size: 5269, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

14 days 23 hours ago view (lines: 131, size: 5279, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

14 days 23 hours ago view (lines: 131, size: 5279, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

14 days 23 hours ago view (lines: 131, size: 5279, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

15 days 0 hours ago view (lines: 131, size: 5287, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

15 days 0 hours ago view (lines: 131, size: 5279, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

15 days 0 hours ago view (lines: 136, size: 5423, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

15 days 1 hour ago view (lines: 121, size: 4824, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

15 days 1 hour ago view (lines: 121, size: 4841, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

15 days 1 hour ago view (lines: 121, size: 4838, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

15 days 2 hours ago view (lines: 118, size: 4712, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
  0010 IDENTIFICATION DIVISION.
  0015 PROGRAM-ID.  PAYROLL-FILE.
  0020 ENVIRONMENT DIVISION.
  0025 CONFIGURATION SECTION.
  0030 SOURCE-COMPUTER.  IBM-360.
  0035 OBJECT-COMPUTER.  IBM-360.
  0040 INPUT-OUTPUT SECTION.
  0045 FILE-CONTROL.
  0050     SELECT PAYROLL-IN ASSIGN TO UT-S-SYSIN.
 ...

15 days 2 hours ago view (lines: 15, size: 416, inputs: 1) COBOL Success

1
2
3
4
5
6
7
8
9
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID.   HELLO-WORLD-PROG.
000030 AUTHOR.       TIMOTHY R P BROWN.
000040*The standard Hello world program
000050 
000060 ENVIRONMENT DIVISION.
000070 
000080 DATA DIVISION.
000090 WORKING-STORAGE SECTION.
 ...

15 days 4 hours ago view (lines: 12, size: 344, inputs: 1) COBOL Success

1
2
3
4
5
6
7
8
9
       ID DIVISION.
        PROGRAM-ID.PGM1.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
        WORKING-STORAGE SECTION.
         77 WS-A PIC X(5) USAGE IS COMP.
         77 WS-B PIC X(5) USAGE IS COMP-3. 
       PROCEDURE DIVISION.
            ACCEPT WS-A.
 ...

15 days 4 hours ago view (lines: 11, size: 307, inputs: 1) COBOL Success

1
2
3
4
5
6
7
8
9
       ID DIVISION.
        PROGRAM-ID.PGM1.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
        WORKING-STORAGE SECTION.
         77 WS-A PIC X(5).
         77 WS-B PIC X(5) USAGE IS COMP-3. 
       PROCEDURE DIVISION.
            MOVE WS-A TO WS-B.
 ...

15 days 5 hours ago view (lines: 20, size: 1270, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.                                        
 PROGRAM-ID. MULPGM.                                             
 ENVIRONMENT DIVISION.                                           
 DATA DIVISION.                                                  
 WORKING-STORAGE SECTION.                                        
 77 NUM1        PIC 9(3) VALUE ZEROS.                            
 77 NUM2        PIC 9(3) VALUE ZEROS.                            
 77 NUM3        PIC 9(3) VALUE ZEROS.                            
 77 RESU        PIC 9(4) VALUE ZEROS.                            
 ...

15 days 13 hours ago view (lines: 218, size: 6567, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.
      *
       PROGRAM-ID.    LOANT.
      *
       DATE-WRITTEN.  04/16/84.
      *
      *    MODIFIED   10/18/97.
      *
      *        *******************************
 ...

15 days 14 hours ago view (lines: 59, size: 2490, inputs: 1) COBOL Compilation error

1
2
3
4
5
6
7
8
9
      IDENTIFICATION DIVISION.
       PROGRAM-ID. COBVALU.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  CHAR-DATA.
           05  INPUT-1           PIC X(10).
           05  PAYMENT-OUT       PIC $$$$,$$$,$$9.99 USAGE DISPLAY.
           05  INTEREST-IN       PIC X(5).
 ...

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	ID DIVISION. PROGRAM-ID.PGM1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 WS-A PIC X(5). 77 WS-B PIC X(5) USAGE IS COMP-3. PROCEDURE DIVISION. MOVE WS-A TO WS-B.
...

1 2 3 4 5 6 7 8 9	IDENTIFICATION DIVISION. * PROGRAM-ID. LOANT. * DATE-WRITTEN. 04/16/84. * * MODIFIED 10/18/97. * * *******************************
...

UsernamePassword

Username
Password