home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch04 / CHAPT04A.COB next >
Text File  |  1998-09-14  |  1KB  |  28 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt04a.
  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. 000252 01  Dollar-Amount         Pic 9(5)v99 Value 12.99.
  11. 000253 01  Item-Description      Pic X(10) Value "Gold Coins".
  12. 000254 Screen Section.
  13. 000255 01  Main-Screen
  14. 000256     Blank Screen, Auto, Required,
  15. 000257     Foreground-Color Is 7,
  16. 000258     Background-Color Is 1.
  17. 000259     03  Line 1 Column 35 Value "Item Entry".
  18. 000261     03  Line 3 Column 5  Value "Item Value " Highlight Bell.
  19. 000262     03  Line 3 Column 16 Pic $$,$$$.99 From Dollar-Amount.
  20. 000263     03  Line 5 Column 5  Value "Item Description" Highlight.
  21. 000264     03  Line 5 Column 22 Pic X(10) From Item-Description.
  22. 000265     03  Line 6 Column 4  Value "Short Description" Highlight.
  23. 000266     03  Line 6 Column 22 Pic X(5) From Item-Description
  24. 000267                                        Justified Right.
  25. 000285 Procedure Division.
  26. 000286 Chapt04a-Start.
  27. 000287     Display Main-Screen
  28. 000460     Stop Run.