home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch21 / CHAPT21A.COB next >
Text File  |  1998-09-14  |  1KB  |  31 lines
  1. 000010 @OPTIONS MAIN,TEST
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt21a.
  4. 000041 Environment Division.
  5. 000050 Configuration Section.
  6. 000051 Source-Computer.  IBM-PC.
  7. 000056 Object-Computer.  IBM-PC.
  8. 000147 Data Division.
  9. 000148 Working-Storage Section.
  10. 000157 01  Current-Date-Group.
  11. 000167     03  Todays-Date.
  12. 000177         05  Today-YYYY       Pic 9(4).
  13. 000187         05  Today-MM         Pic 9(2).
  14. 000197         05  Today-DD         Pic 9(2).
  15. 000207     03  Time-Now.
  16. 000217         05  Time-Hour        Pic 99.
  17. 000227         05  Time-Minutes     Pic 99.
  18. 000237         05  Time-Seconds     Pic 99.
  19. 000247         05  Time-Hundredths  Pic 99.
  20. 000257     03  GMT-Offset.
  21. 000258         05  GMT-Direction    Pic X.
  22. 000259         05  GMT-Hours        Pic 99.
  23. 000260         05  GMT-Minutes      Pic 99.
  24. 000390 Procedure Division.
  25. 000391 Chapt21a.
  26. 000401     Move Function Current-Date To Current-Date-Group
  27. 000402     Display "Today = " Todays-Date
  28. 000403     Display "Time  = " Time-Now
  29. 000404     Display "GMT offset = " GMT-Offset
  30. 000411     Stop Run
  31. 000421     .