home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch12 / CHAPT12F.COB < prev    next >
Encoding:
Text File  |  1998-09-15  |  815 b   |  24 lines
  1. 000010 @OPTIONS MAIN,TEST
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt12f.
  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  File-Cabinet.
  11. 000069     03  Drawer-Number Occurs 3 Times Indexed By Drawer-Index.
  12. 000070         05  File-Number Pic 9(3) Occurs 10 Times
  13. 000071             Indexed By File-Index.
  14. 000072
  15. 000077 Procedure Division.
  16. 000207 Chapt12f-Start.
  17. 000208     Set Drawer-Index To 2
  18. 000216     Search File-Number
  19. 000218            At End Display "File Not Found"
  20. 000219            When File-Number (Drawer-Index, File-Index) = 123
  21. 000220            Display "File Found"
  22. 000222     End-Search
  23. 000224     Stop Run
  24. 000344     .
  25.