COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

argument
is an integer of the form YYYYDDD, whose value is calculated from the equation (YYYY *
1000) + DD where:
Represented byDate Part RepresentedFactor
Integer in the range 1,601 through 9,999Year in Gregorian calendarYYYY
Integer in the range 1 through 366 that is a valid day
for the year specified by YYYY
Day of the yearDD
The returned value is an integer that is the number of days that the date represented by argument
succeeds December 31, 1600, in the Gregorian calendar.
Example 193 INTEGER-OF-DAY Function
Code:
DISPLAY FUNCTION INTEGER-OF-DAY (1601001)
DISPLAY FUNCTION INTEGER-OF-DAY (1601365)
DISPLAY FUNCTION INTEGER-OF-DAY (1700341)
DISPLAY FUNCTION INTEGER-OF-DAY (1634292)
DISPLAY FUNCTION INTEGER-OF-DAY (1874289)
Output:
00000001
00000365
00036500
00012345
00100000
INTEGER-PART Function
INTEGER-PART, an integer function, returns the integer part of its argument.
argument
is a numeric argument.
The returned value is determined as shown in this table:
Returned ValueValue of argument
ZeroZero
Greatest integer less than or equal to the value of argumentPositive
Least integer greater than or equal to the value of argumentNegative
INTEGER-PART Function 669