home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch21 / CHAPT21B.COB < prev    next >
Text File  |  1998-09-14  |  682b  |  18 lines
  1. 000010 @OPTIONS MAIN,TEST
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt21b.
  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. 000390 01  Integer-Version-Of-Date   Pic 9(7) Value Zeros.
  11. 000391 01  Date-To-Convert           Pic 9(8) Value 19991231.
  12. 000392 Procedure Division.
  13. 000393 Chapt21b.
  14. 000401     Compute Integer-Version-Of-Date =
  15. 000402             Function Integer-Of-Date (Date-To-Convert)
  16. 000403     Display "Integer Date Version of " Date-To-Convert
  17. 000404             " is " Integer-Version-Of-Date
  18. 000421     .