home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch10 / CHAPT10B.COB < prev    next >
Text File  |  1998-09-14  |  727b  |  28 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt10b.
  4. 000031* Perform Example 2
  5. 000040 Environment Division.
  6. 000050 Configuration Section.
  7. 000051 Source-Computer.  IBM-PC.
  8. 000055 Object-Computer.  IBM-PC.
  9. 000056 Data Division.
  10. 000057 Working-Storage Section.
  11. 000058 Procedure Division.
  12. 000068 Chapt10a-Section Section.
  13. 000159 Chapt10a-Start.
  14. 000160     Perform First-Section
  15. 000161     Perform Para-2
  16. 000162     Perform Para-1 Thru Para-2
  17. 000163     Stop Run
  18. 000164     .
  19. 000171 First-Section Section.
  20. 000181 Para-1.
  21. 000191     Display "Para 1"
  22. 000193     .
  23. 000201 Para-2.
  24. 000211     Display "Para 2"
  25. 000221     .
  26. 000231 Para-3.
  27. 000241     Display "Para 3"
  28. 000298     .