home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch03 / CHAPT03X.COB < prev   
Text File  |  1998-09-14  |  3KB  |  49 lines
  1. 000460 @OPTIONS MAIN
  2. 000470 Identification Division.
  3. 000480 Program-Id.  Chapt03x.
  4. 000481* Chapter 3 Exercise Solution
  5. 000490 Environment Division.
  6. 000500 Configuration Section.
  7. 000510 Source-Computer.  IBM-PC.
  8. 000520 Object-Computer.  IBM-PC.
  9. 000530 Data Division.
  10. 000540 Working-Storage Section.
  11. 000550 01  Group-Level-Item.
  12. 000560     05  Elementary-Numeric       Pic 9(7)        Value 12345.
  13. 000570     05  Elementary-Numeric-Dec   Pic 9(5)v99     Value 123.45.
  14. 000580     05  Elementary-Numeric-Sign  Pic S9(5)v99    Value -123.45.
  15. 000590 01  Edited-Group-Item.
  16. 000600     05  Elementary-Zero-Sup      Pic Z(6)9.
  17. 000610     05  Elementary-Aster-Sup     Pic ******9.
  18. 000620     05  Elementary-Edited        Pic Z,Z(3),Z(3).
  19. 000630     05  Elementary-Edited-Dec    Pic Z,Z(3),Z(3).99.
  20. 000631     05  Elementary-Dollar-Field  Pic $,$$$,$$$.99.
  21. 000640 01  Group-Alphanumeric-Item.
  22. 000650     05  Elementary-Alphanum      Pic X(20)
  23. 000660         Value "ABCDEFGHIJKLMNOPQRST".
  24. 000670     05  Elementary-Alphanum-A    Pic X(6)
  25. 000680         Value "UVWXYZ".
  26. 000690 01  Group-Alphanumeric-Edited.
  27. 000700     05  Edited-Alphanumeric      Pic X(3)/X(3)/X(3).
  28. 000710 Procedure Division.
  29. 000720 Chapt03x-Start.
  30. 000730     Move Elementary-Numeric     To Elementary-Zero-Sup.
  31. 000740     Move Elementary-Numeric     To Elementary-Edited.
  32. 000750     Move Elementary-Numeric     To Elementary-Aster-Sup.
  33. 000760     Move Elementary-Numeric-Dec To Elementary-Edited-Dec.
  34. 000761     Move Elementary-Numeric-Dec To Elementary-Dollar-Field.
  35. 000770     Move Elementary-Alphanum    To Edited-Alphanumeric.
  36. 000780     Display "1 Group Alphanumeric="      Group-Alphanumeric-Item.
  37. 000790     Display "2 Elementary Alpha="        Elementary-Alphanum.
  38. 000800     Display "3 Elementary Alpha A="      Elementary-Alphanum-A.
  39. 000810     Display "4 Edited Alphanumeric="     Edited-Alphanumeric.
  40. 000820     Display "5 Group Level Item="        Group-Level-Item.
  41. 000830     Display "6 Elementary Numeric="      Elementary-Numeric.
  42. 000840     Display "7 Elementary Numeric Dec="  Elementary-Numeric-Dec.
  43. 000850     Display "8 Elementary Numeric Sign=" Elementary-Numeric-Sign.
  44. 000860     Display "9 Elementary Zero Sup="     Elementary-Zero-Sup.
  45. 000870     Display "10 Elementary Aster Sup="   Elementary-Aster-Sup.
  46. 000880     Display "11 Elementary Edited="      Elementary-Edited.
  47. 000890     Display "12 Elementary Edited Dec="  Elementary-Edited-Dec.
  48. 000900     Display "13 Elementary Edited Dol="  Elementary-Dollar-Field.
  49. 000910     Stop Run.