Skip to content

Instantly share code, notes, and snippets.

@MilkZoft

MilkZoft/hello.cob

Created January 23, 2012 02:54
Show Gist options
  • Star 2 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save MilkZoft/1660170 to your computer and use it in GitHub Desktop.
Save MilkZoft/1660170 to your computer and use it in GitHub Desktop.
Download ZIP
codejobs - Hello World - Cobol
Raw
hello.cob
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.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment