home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch03 / CHAPT03A.COB next >
Text File  |  1998-09-14  |  560b  |  18 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt03a.
  4. 000040 Environment Division.
  5. 000050 Configuration Section.
  6. 000060 Source-Computer.  IBM-PC.
  7. 000070 Object-Computer.  IBM-PC.
  8. 000080 Data Division.
  9. 000090 Working-Storage Section.
  10. 000100 01  Hello-Text.
  11. 000110     03  Part-One Pic X(6) Value "Hello ".
  12. 000120     03  Part-Two Pic X(5) Value "World".
  13. 000130 Procedure Division.
  14. 000140 Chapt03a-Start.
  15. 000150     Display Part-One.
  16. 000160     Display Part-Two.
  17. 000170     Display Hello-Text.
  18. 000180     Stop Run.