home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch07 / CHAPT07B.COB < prev    next >
Text File  |  1998-09-14  |  2KB  |  44 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt07b.
  4. 000040* Unstring Example
  5. 000050 Environment Division.
  6. 000060 Configuration Section.
  7. 000070 Source-Computer.  IBM-PC.
  8. 000080 Object-Computer.  IBM-PC.
  9. 000090 Data Division.
  10. 000100 Working-Storage Section.
  11. 000101 01  Expression-In    Pic X(10)   Value Spaces.
  12. 000102 01  First-Term       Pic X(5)    Value Spaces.
  13. 000103 01  Second-Term      Pic X(5)    Value Spaces.
  14. 000104 01  Operation        Pic X       Value Spaces.
  15. 000105 01  Unstring-Pointer Pic 9(2)    Value Zeros.
  16. 000106 Screen Section.
  17. 000107 01  Main-Screen Blank Screen.
  18. 000108     03  Line 01 Column 01 Value "Enter Expression:".
  19. 000109     03  Line 01 Column 19 Pic X(10) Using Expression-In.
  20. 000110     03  Line 03 Column 01 Value "First Term ".
  21. 000111     03  Line 04 Column 01 Value "Second Term ".
  22. 000112     03  Line 05 Column 01 Value "Operation ".
  23. 000113     03  Line 03 Column 13 Pic X(5) From First-Term.
  24. 000114     03  Line 04 Column 13 Pic X(5) From Second-Term.
  25. 000115     03  Line 05 Column 13 Pic X    From Operation.
  26. 000116 Procedure Division.
  27. 000117 Chapt07b-Start.
  28. 000120     Display Main-Screen
  29. 000130     Accept Main-Screen
  30. 000140     Unstring Expression-In
  31. 000150       Delimited By "+" Or "-" Or "*" Or "/"
  32. 000151       Into First-Term
  33. 000152       Delimiter In Operation
  34. 000153       Count In Unstring-Pointer
  35. 000154     End-Unstring
  36. 000155     Add 2 To Unstring-Pointer
  37. 000156     Unstring Expression-In
  38. 000157       Delimited By "="
  39. 000158       Into Second-Term
  40. 000159       Pointer Unstring-Pointer
  41. 000160     End-Unstring
  42. 000161     Display Main-Screen
  43. 000164     Stop Run
  44. 000174     .