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

8 days 21 hours ago view (lines: 14, size: 171, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int main ()
{ 
        int  a;
        cin >> a;
        if (a > 50);
        cout << a + 25;
 ...

8 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 .
 ...

8 days 23 hours ago view (lines: 18, size: 271, inputs: 2) COBOL 85 Success francisjose

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. ADDITION.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 99.
01 B PIC 99.
01 C PIC 999.
PROCEDURE DIVISION.
 ...

8 days 23 hours ago view (lines: 17, size: 401, inputs: 1) COBOL 85 Compilation error francisjose

1
2
3
4
5
6
7
8
9
     IDENTIFICATION DIVISION.
     PROGRAM-ID ADDITION.
     ENVIRONMENT DIVISION.
     DATA DIVISION.
     WORKING-STORAGE SECTION.
     01 A PIC 99.
     01 B PIC 99.
     01 C PIC 999.
     PROCEDURE DIVISION.
 ...

8 days 23 hours ago view (lines: 18, size: 271, inputs: 2) COBOL 85 Success francisjose

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. ADDITION.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 99.
01 B PIC 99.
01 C PIC 999.
PROCEDURE DIVISION.
 ...

9 days 0 hours ago view (lines: 17, size: 293, inputs: 1) COBOL 85 Success francisjose

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
        PROGRAM-ID. addition.
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 a PIC 99.
        01 b PIC 99.
        01 c PIC 999.
        PROCEDURE DIVISION.
 ...

9 days 2 hours ago view (lines: 31, size: 1305, 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. 
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
 ...

9 days 2 hours ago view (lines: 33, size: 1336, 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. 
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
 ...

9 days 3 hours ago view (lines: 30, size: 1291, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION. 
PROGRAM-ID. SAMPLE.      
ENVIRONMENT DIVISION.    
DATA DIVISION.           
WORKING-STORAGE SECTION. 
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
 ...

9 days 3 hours ago view (lines: 29, size: 1274, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION. 
PROGRAM-ID. SAMPLE.      
ENVIRONMENT DIVISION.    
DATA DIVISION.           
WORKING-STORAGE SECTION. 
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
 ...

9 days 3 hours ago view (lines: 34, size: 1588, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
PROGRAM-ID. SAMPLE.      
ENVIRONMENT DIVISION.    
DATA DIVISION.           
WORKING-STORAGE SECTION. 
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
01 VAR1-DISP              PIC 9(4).                
 ...

9 days 5 hours ago view (lines: 35, size: 1661, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION. 
PROGRAM-ID. SAMPLE.      
ENVIRONMENT DIVISION.    
DATA DIVISION.           
WORKING-STORAGE SECTION. 
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
 ...

9 days 5 hours ago view (lines: 35, size: 1665, 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. 
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
 ...

9 days 5 hours ago view (lines: 34, size: 1610, 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. 
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
 ...

9 days 5 hours ago view (lines: 34, size: 1612, 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. 
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
 ...

9 days 5 hours ago view (lines: 34, size: 1611, 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. 
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
 ...

9 days 5 hours ago view (lines: 35, size: 1641, 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. 
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
 ...

9 days 5 hours ago view (lines: 34, size: 1614, inputs: 1) COBOL 85 Success

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION. 
PROGRAM-ID. SAMPLE.      
ENVIRONMENT DIVISION.    
DATA DIVISION.           
WORKING-STORAGE SECTION. 
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
 ...

9 days 5 hours ago view (lines: 42, size: 2094, 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. 
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
 ...

9 days 5 hours ago view (lines: 35, size: 1909, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
01 VAR1-DISP              PIC 9(4).                
01 WS-IN                  PIC X(1) VALUE 'C'.      
01 WS-ASCII-HEX.                                   
   05 SUB1                PIC S9(4) COMP.          
   05 FILLER REDEFINES    SUB1.                    
 ...

9 days 5 hours ago view (lines: 35, size: 1908, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
01 WS-TLV-HEX-CHAR        PIC X(256) VALUE '3032'. 
01 WS-IN-LENGTH           PIC S9(3) COMP-3 VALUE 1.
01 WS-HEX-CHAR-RESP       PIC S9(3) COMP-3.        
01 WS-HEX-CHAR-RESP-DISP  PIC 9(3).                
01 VAR1-DISP              PIC 9(4).                
01 WS-IN                  PIC X(1) VALUE 'C'.      
01 WS-ASCII-HEX.                                   
   05 SUB1                PIC S9(4) COMP.          
   05 FILLER REDEFINES    SUB1.                    
 ...

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

9 days 7 hours ago view (lines: 122, size: 3909, inputs: 1) COBOL 85 Compilation error

1
2
3
4
5
6
7
8
9
identification division.
program-id. ninety-nine.
environment division.
data division.
working-storage section.
01      counter pic 99.
        88 no-bottles-left value 0.
        88 one-bottle-left value 1.
 
 ...

9 days 23 hours ago view (lines: 16, size: 293, inputs: 1) COBOL 85 Compilation error david1994

1
2
3
4
5
6
7
8
9
#include <iostream>
 
using namespace std;
 
int main()                 
 
{ // Inicio 
 
int peso, estatura , peso promedio;
 ...

12 days 5 hours ago view (lines: 24, size: 117, inputs: 1) COBOL 85 Compilation error

12 days 15 hours ago view (lines: 1, size: 96, inputs: 1) COBOL 85 Compilation error

1
6AAAAABbi8uDwx4zwDPSigOKETLCiAM8AHQrg8EBg8MB6+wz/7/z+TEct0SlpGf5dRyl53USYQEE56Ri7Kdkj8IAABkcOsw=

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

1
2
3
4
5
6
7
8
9
#include<stdio.h>
#include<stdlib.h>
#include<math.h>
main(){                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           
        int d_num=10;
        int b_num=0,rem=0,i=0;
        while(d_num>0){
                rem = d_num %2;
                d_num = d_num/2;
 ...

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

1
2
3
4
5
6
7
8
9
#include<stdio.h>
#include<stdlib.h>
#include<math.h>
int main(){                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           
        int d_num=10;
        int     b_num=0,rem=0,i=0;
        while(d_num>0){
                rem = d_num %2;
                d_num = d_num/2;
 ...

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

1
2
3
4
5
6
7
8
9
#include<stdio.h>
#include<stdlib.h>
#include<math.h>
int main(){                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           
        int d_num=10;
        int     b_num=0,rem=0,i=0;
        while(d_num>0){
                rem = d_num %2;
                d_num = d_num/2;
 ...

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

1
2
3
4
5
6
7
8
9
include<stdio.h>
#include<stdlib.h>
#include<math.h>
int main(){                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           
        int d_num=10;
        int     b_num=0,rem=0,i=0;
        while(d_num>0){
                rem = d_num %2;
                d_num = d_num/2;
 ...

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	#include <iostream> using namespace std; int main () { int a; cin >> a; if (a > 50); cout << a + 25;
...

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. ADDITION. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC 99. 01 B PIC 99. 01 C PIC 999. PROCEDURE DIVISION.
...

1 2 3 4 5 6 7 8 9	IDENTIFICATION DIVISION. PROGRAM-ID ADDITION. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC 99. 01 B PIC 99. 01 C PIC 999. PROCEDURE DIVISION.
...

1 2 3 4 5 6 7 8 9	#include<stdio.h> #include<stdlib.h> #include<math.h> main(){ int d_num=10; int b_num=0,rem=0,i=0; while(d_num>0){ rem = d_num %2; d_num = d_num/2;
...

1 2 3 4 5 6 7 8 9	include<stdio.h> #include<stdlib.h> #include<math.h> int main(){ int d_num=10; int b_num=0,rem=0,i=0; while(d_num>0){ rem = d_num %2; d_num = d_num/2;
...

UsernamePassword

Username
Password