7.1.49 "COBOL Language Reference" IBM Library Server

X 7.1.49 YEAR-TO-YYYY

X The YEAR-TO-YYYY function converts argument-1, a 2-digit year, to a
X 4-digit year. Argument-2, when added to the year at the time of
X execution, defines the ending year of a 100-year interval, or sliding
X century window, into which the year of argument-1 falls.

X The function type is integer.

X If the DATEPROC compiler option is in effect, then the returned value is
X an expanded date field with implicit DATE FORMAT YYYY.


 X  ___ Format _____________________________________________________________ 
 X |                                                                        |
 X | >>__FUNCTION YEAR-TO-YYYY__(argument-1_ ____________ _)_____________>< |
 X |                                        |_argument-2_|                  |
   |                                                                        |
   |________________________________________________________________________|

X argument-1

X Must be a non-negative integer that is less than 100.

X argument-2

X Must be an integer. If argument-2 is omitted, the function is
X evaluated assuming the value 50 was specified.

X The sum of the year at the time of execution and the value of argument-2
X must be less than 10,000 and greater than 1,699.

Subtopics:

7.1.49.1 Example

Adobe, the Adobe logo, Acrobat, the Acrobat logo, and Acrobat Reader are registered trademarks of Adobe Systems incorporated.

X 7.1.49 YEAR-TO-YYYY

IBM Library Server Copyright 1989, 2005 IBM Corporation. All rights reserved.