Guest User

Untitled

a guest
Sep 5th, 2017
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.52 KB | None | 0 0
  1. 000100 IDENTIFICATION DIVISION.
  2. 000200 PROGRAM-ID. HELLOWORLD.
  3. 000300
  4. 000400*
  5. 000500 ENVIRONMENT DIVISION.
  6. 000600 CONFIGURATION SECTION.
  7. 000700 SOURCE-COMPUTER. RM-COBOL.
  8. 000800 OBJECT-COMPUTER. RM-COBOL.
  9. 000900
  10. 001000 DATA DIVISION.
  11. 001100 FILE SECTION.
  12. 001200
  13. 100000 PROCEDURE DIVISION.
  14. 100100
  15. 100200 MAIN-LOGIC SECTION.
  16. 100300 BEGIN.
  17. 100400 DISPLAY " " LINE 1 POSITION 1 ERASE EOS.
  18. 100500 DISPLAY "Hello world!" LINE 15 POSITION 10.
  19. 100600 STOP RUN.
  20. 100700 MAIN-LOGIC-EXIT.
  21. 100800 EXIT.
Add Comment
Please, Sign In to add comment