home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch11 / CHAPT11A.COB next >
Encoding:
Text File  |  1998-09-15  |  700 b   |  21 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt11a.
  4. 000044 Environment Division.
  5. 000050 Configuration Section.
  6. 000051 Source-Computer.  IBM-PC.
  7. 000055 Object-Computer.  IBM-PC.
  8. 000056 Data Division.
  9. 000057 Working-Storage Section.
  10. 000067 01  Counter Pic 9(2) Value Zeros.
  11. 000077 Procedure Division.
  12. 000159 Chapt11a-Start.
  13. 000160     Perform Count-Routine With Test After Varying Counter
  14. 000161             From 1 By 1 Until Counter = 10
  15. 000164     Perform Count-Routine With Test After Varying Counter
  16. 000165             From 10 By -1 Until Counter = 1
  17. 000166     Stop Run
  18. 000167     .
  19. 000168 Count-Routine.
  20. 000169     Display Counter
  21. 000170     .
  22.