1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| 000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. HELLOWORLD.
000300
000400*
000500 ENVIRONMENT DIVISION.
000600 CONFIGURATION SECTION.
000700 SOURCE-COMPUTER. RM-COBOL.
000800 OBJECT-COMPUTER. RM-COBOL.
000900
001000 DATA DIVISION.
001100 FILE SECTION.
001200
100000 PROCEDURE DIVISION.
100100
100200 MAIN-LOGIC SECTION.
100300 BEGIN.
100400 DISPLAY " " LINE 1 POSITION 1 ERASE EOS.
100500 DISPLAY "Hello world!" LINE 15 POSITION 10.
100600 STOP RUN.
100700 MAIN-LOGIC-EXIT.
100800 EXIT.
|
MDAwMTAwIElERU5USUZJQ0FUSU9OIERJVklTSU9OLgowMDAyMDAgUFJPR1JBTS1JRC4gICAgIEhFTExPV09STEQuCjAwMDMwMAowMDA0MDAqCjAwMDUwMCBFTlZJUk9OTUVOVCBESVZJU0lPTi4KMDAwNjAwIENPTkZJR1VSQVRJT04gU0VDVElPTi4KMDAwNzAwIFNPVVJDRS1DT01QVVRFUi4gUk0tQ09CT0wuCjAwMDgwMCBPQkpFQ1QtQ09NUFVURVIuIFJNLUNPQk9MLgowMDA5MDAKMDAxMDAwIERBVEEgRElWSVNJT04uCjAwMTEwMCBGSUxFIFNFQ1RJT04uCjAwMTIwMAoxMDAwMDAgUFJPQ0VEVVJFIERJVklTSU9OLgoxMDAxMDAKMTAwMjAwIE1BSU4tTE9HSUMgU0VDVElPTi4KMTAwMzAwIEJFR0lOLgoxMDA0MDAgICAgIERJU1BMQVkgIiAiIExJTkUgMSBQT1NJVElPTiAxIEVSQVNFIEVPUy4KMTAwNTAwICAgICBESVNQTEFZICJIZWxsbyB3b3JsZCEiIExJTkUgMTUgUE9TSVRJT04gMTAuCjEwMDYwMCAgICAgU1RPUCBSVU4uCjEwMDcwMCBNQUlOLUxPR0lDLUVYSVQuCjEwMDgwMCAgICAgRVhJVC4KCg==
prog.cbl: 1: error: syntax error, on or before '000100'
Choose your language:
Help us translate Ideone - click here
