home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch22 / CHAPT22E.COB < prev    next >
Text File  |  1998-09-14  |  816b  |  22 lines
  1. 000010 @OPTIONS MAIN,TEST
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt22e.
  4. 000031* Variable Length Table Function Length
  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. 000067 01  Variable-Table.
  12. 000077     03  Table-Items Occurs 1 To 500 Times
  13. 000087                     Depending On Table-Occurrences.
  14. 000097         05  Table-Element   Pic 9(3).
  15. 000098 01  Table-Occurrences       Pic 9(3) Value 237.
  16. 000108 01  Item-Length     Pic 9(5) Value Zeros.
  17. 000148 Procedure Division.
  18. 000159 Chapt22e-Start.
  19. 000309     Compute Item-Length = Function Length (Variable-Table)
  20. 000310     Display "Item Length " Item-Length.
  21. 000311     Stop Run.
  22. 000319     .