fork download
copy 
  1. 	IDENTIFICATION DIVISION.
  2. 	PROGRAM-ID. IDEONE.
  3.  
  4. 	ENVIRONMENT DIVISION.
  5.  
  6. 	DATA DIVISION.
  7.        WORKING-STORAGE SECTION.
  8.           01 EINGABE PIC X(255).
  9.  
  10. 	PROCEDURE DIVISION.
  11.          PERFORM 3 TIMES
  12. 	     ACCEPT EINGABE
  13.          DISPLAY EINGABE
  14.          END-PERFORM.
  15. 		STOP RUN.
Success #stdin #stdout 0s 5312KB
comments (?)
stdin
copy 
Bayern München - Union Berlin -:- (-:-) 
Ein.Frankfurt - SC Freiburg . -:- (-:-)
B.Mönchengladbach - FSV Mainz -:- (-:-) 
Hamburger SV - 1.FC Köln .... -:- (-:-) 
Werder Bremen - FC Augsburg . -:- (-:-)
VfB Stuttgart - Bor.Dortmund  -:- (-:-)
B.Leverkusen - RB Leipzig ... -:- (-:-)  
FC Schalke 04 - SV Elversberg -:- (-:-)
SC Paderborn - TSG Hoffenheim -:- (-:-)
stdout
copy 
Bayern München - Union Berlin -:- (-:-)                                                                                                                                                                                                                       
Ein.Frankfurt - SC Freiburg . -:- (-:-)                                                                                                                                                                                                                        
B.Mönchengladbach - FSV Mainz -:- (-:-)
https://ideone.com/7xRBFC
Bayern München - Union Berlin -:- (-:-)
Ein.Frankfurt - SC Freiburg . -:- (-:-)
B.Mönchengladbach - FSV Mainz -:- (-:-)
Hamburger SV - 1.FC Köln .... -:- (-:-)
Werder Bremen - FC Augsburg . -:- (-:-)
VfB Stuttgart - Bor.Dortmund -:- (-:-)
B.Leverkusen - RB Leipzig ... -:- (-:-)
FC Schalke 04 - SV Elversberg -:- (-:-)
SC Paderborn - TSG Hoffenheim -:- (-:-)
language:
Cobol (gnucobol 2.2.0)
created:
14 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!