home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch07 / CHAPT07A.COB next >
Text File  |  1998-09-21  |  2KB  |  52 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt07a.
  4. 000040* String 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. 000110 01  First-Name    Pic X(25)   Value Spaces.
  12. 000120 01  Last-Name     Pic X(25)   Value Spaces.
  13. 000130 01  Combined-Name Pic X(30)   Value Spaces.
  14. 000140 Procedure Division.
  15. 000150 Chapt07a-Start.
  16. 000160     Move "First" To First-Name
  17. 000170     Move "Last"  To Last-Name
  18. 000180     String First-Name Delimited By Space
  19. 000190            " "        Delimited By Size
  20. 000200            Last-Name  Delimited By Space
  21. 000210        Into
  22. 000220            Combined-Name
  23. 000230        On Overflow
  24. 000240            Move Last-Name To Combined-Name
  25. 000250     End-String
  26. 000270     Display "1 " Combined-Name
  27. 000280     Move "A" To First-Name
  28. 000290     Move "B" To Last-Name
  29. 000300     String First-Name Delimited By Space
  30. 000310            " "        Delimited By Size
  31. 000320            Last-Name  Delimited By Space
  32. 000330        Into
  33. 000340            Combined-Name
  34. 000350        On Overflow
  35. 000360            Move Last-Name To Combined-Name
  36. 000370     End-String
  37. 000380     Display "2 " Combined-Name
  38. 000390     Move Spaces To Combined-Name
  39. 000400     Move "ReallyLongFirstName" To First-Name
  40. 000410     Move "ReallyLongLastName"  To Last-Name
  41. 000420     String First-Name Delimited By Space
  42. 000430            " "        Delimited By Size
  43. 000440            Last-Name  Delimited By Space
  44. 000450        Into
  45. 000460            Combined-Name
  46. 000470        On Overflow
  47. 000480            Move Last-Name To Combined-Name
  48. 000490     End-String
  49. 000500     Display "3 " Combined-Name
  50. 000510     Stop Run
  51. 000520     .
  52.