home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch05 / CHAPT05A.COB next >
Encoding:
Text File  |  1998-09-15  |  2.2 KB  |  55 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt05a.
  4. 000031* Data Entry Screen
  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  Field-Group-1.
  12. 000077     03  Fg1-First        Pic 9(2) Value 99.
  13. 000087     03  Fg1-Second       Pic 9(2) Value 2.
  14. 000097     03  Fg1-Third        Pic 9(2) Value 3.
  15. 000107 01  Field-Group-2.
  16. 000117     03  Fg1-First        Pic 9(2) Value 10.
  17. 000127     03  Fg1-Second       Pic 9(2) Value 20.
  18. 000137     03  Fg1-Third        Pic 9(2) Value 30.
  19. 000147 01  Data-Item-2          Pic 9999 Value 2.
  20. 000148 01  Data-Item-3          Pic 9999 Value 2.
  21. 000149 01  Data-Item-4          Pic 9999.
  22. 000150 01  Data-Item-5          Pic 9999.
  23. 000151 01  Edited-Field         Pic XX/xx/xx.
  24. 000152 01  Data-Field-1.
  25. 000153     03  Data-Field-Contents Pic X(6) Value "ABCDEF".
  26. 000154 01  Some-Number          Pic S9(5)v99 Value -1234.56.
  27. 000155 01  Some-Field           Pic X(10).
  28. 000156 01  Alpha-Number         Pic X(5) Value "12345".
  29. 000157 01  Number-Number        Pic 9(4).
  30. 000158 Procedure Division.
  31. 000159 Required-Paragraph.
  32. 000167     Add Corresponding Field-Group-1 To Field-Group-2
  33. 000168        On Size Error
  34. 000169           Display "Size error"
  35. 000170     End-Add
  36. 000177     Display Field-Group-2
  37. 000178     Add 10 20 30 Giving Data-Item-2 Data-Item-3
  38. 000179     Multiply 10  By 30  Giving Data-Item-2 Data-Item-3
  39. 000180     Display Data-Item-2
  40. 000181     Divide 10 By 3 Giving Data-Item-2 Data-Item-3
  41. 000182     Display "divide " Data-Item-3
  42. 000183     Divide 10 By 3 Giving Data-Item-2 Remainder Data-Item-4
  43. 000184     Display "divide 2 " Data-Item-4 " " Data-Item-5
  44. 000187     Compute Data-Item-4 = 3 * (1 / 3)
  45. 000188     Display Data-Item-4
  46. 000189     Move Data-Field-Contents To Edited-Field.
  47. 000190     Display "E1 " Edited-Field.
  48. 000191     Move Data-Field-1 To Edited-Field.
  49. 000192     Display "E2 " Edited-Field.
  50. 000193     Move Some-Number To Some-Field.
  51. 000194     Display "Sf " Some-Field.
  52. 000195     Move Alpha-Number To Number-Number.
  53. 000196     Display Number-Number.
  54. 000197     Stop Run
  55. 000198     .
  56.