home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch06 / CHAPT06D.COB < prev    next >
Text File  |  1998-09-14  |  652b  |  19 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt06d.
  4. 000031* Inspect Example
  5. 000041 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  Data-Item Pic X(20) Value "Teach Yourself COBOL".
  12. 000068  Procedure Division.
  13. 000327 Chapt06d-Start.
  14. 000328     Inspect Data-Item
  15. 000329        Replacing All Space By "*" After "f"
  16. 000330                  All "OBOL" By "obol" After "C"
  17. 000331                  All "e" By "E" Before "Y"
  18. 000342     Display Data-Item
  19. 000352     Stop Run.