home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch03 / CHAPT03C.COB < prev    next >
Text File  |  1998-09-14  |  2KB  |  46 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt03c.
  4. 000040 Environment Division.
  5. 000050 Configuration Section.
  6. 000060 Source-Computer.  IBM-PC.
  7. 000070 Object-Computer.  IBM-PC.
  8. 000080 Data Division.
  9. 000090 Working-Storage Section.
  10. 000100 01  Group-Level-Item.
  11. 000110     05  Elementary-Numeric       Pic 9(7)        Value 12345.
  12. 000120     05  Elementary-Numeric-Dec   Pic 9(5)v99     Value 123.45.
  13. 000130     05  Elementary-Numeric-Sign  Pic S9(5)v99    Value -123.45.
  14. 000140 01  Edited-Group-Item.
  15. 000150     05  Elementary-Zero-Sup      Pic Z(6)9.
  16. 000160     05  Elementary-Aster-Sup     Pic ******9.
  17. 000170     05  Elementary-Formatted     Pic Z,Z(3),Z(3).
  18. 000180     05  Elementary-Formatted-Dec Pic Z,Z(3),Z(3).99.
  19. 000190 01  Group-Alphanumeric-Item.
  20. 000200     05  Elementary-Alphanum      Pic X(20)
  21. 000210         Value "ABCDEFGHIJKLMNOPQRST".
  22. 000220     05  Elementary-Alphanum-A    Pic X(6)
  23. 000230         Value "UVWXYZ".
  24. 000240 01  Group-Alphanumeric-Edited.
  25. 000250     05  Elementary-Slash         Pic X(3)/X(3)/X(3).
  26. 000260 Procedure Division.
  27. 000270 Chapt03c-Start.
  28. 000280     Move Elementary-Numeric To Elementary-Zero-Sup.
  29. 000290     Move Elementary-Numeric To Elementary-Formatted.
  30. 000300     Move Elementary-Numeric To Elementary-Aster-Sup.
  31. 000310     Move Elementary-Numeric-Dec To Elementary-Formatted-Dec.
  32. 000320     Move Elementary-Alphanum    To Elementary-Slash.
  33. 000330     Display "Group Alphanumeric " Group-Alphanumeric-Item.
  34. 000340     Display "Elementary Alpha " Elementary-Alphanum.
  35. 000350     Display "Elementary Alpha A " Elementary-Alphanum-A.
  36. 000360     Display "Elementary Slash " Elementary-Slash.
  37. 000370     Display "Group Level Item " Group-Level-Item.
  38. 000380     Display "Elementary Numeric " Elementary-Numeric.
  39. 000390     Display "Elementary Numeric Dec " Elementary-Numeric-Dec.
  40. 000400     Display "Elementary Numeric Sign " Elementary-Numeric-Sign.
  41. 000410     Display "Elementary Zero Sup " Elementary-Zero-Sup.
  42. 000420     Display "Elementary Aster Sup " Elementary-Aster-Sup.
  43. 000430     Display "Elementary Formatted " Elementary-Formatted.
  44. 000440     Display "Elementary Formatted Dec " Elementary-Formatted-Dec.
  45. 000450     Display "Elementary Slash " Elementary-Slash.
  46. 000460     Stop Run.