home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch22 / CHAPT22J.COB < prev    next >
Text File  |  1998-09-14  |  993b  |  26 lines
  1. 000010 @OPTIONS MAIN,TEST
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt22j.
  4. 000031*random Function
  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 01  Random-Seed      Pic 9(8)      Value Zeros.
  12. 000059 01  Random-Number    Pic 99        Value Zeros.
  13. 000069 01  Random-Generate  Pic V9(18)    Value Zeros.
  14. 000148 Procedure Division.
  15. 000159 Chapt22j-Start.
  16. 000160     Move Function Current-Date (9:8) To Random-Seed
  17. 000162     Compute Random-Generate = Function Random (Random-Seed)
  18. 000163     Compute Random-Number = (Random-Generate * 21) + 1
  19. 000164     Display Random-Number
  20. 000165     Perform 19 Times
  21. 000166        Compute Random-Generate = Function Random
  22. 000167        Compute Random-Number = (Random-Generate * 21) + 1
  23. 000169        Display Random-Number
  24. 000170     End-Perform
  25. 000171     Stop Run
  26. 000172     .