CEECBLDY—Convert date to COBOL Integer format

To handle dates earlier than 1601, add 4000 to each year, convert to Integer, calculate, subtract 4000 from the result, and then convert back to character format. By default, 2-digit years lie within the 100-year range starting 80 years prior to the system date. Thus, in 1995, all 2-digit years represent dates between 1915 and 2014, inclusive. You can change this default range by using the CEESCEN callable service.

Syntax

>>-CEECBLDY--(--input_char_date--,--picture_string--,----------->

>--output_ANSI_date--,--)--------------------------------------><

input_char_date (input)

A halfword length-prefixed character string (VSTRING) representing a date or timestamp, in a format conforming to that specified by picture_string. The character string must contain between 5 and 255 characters, inclusive. input_char_date can contain leading or trailing blanks. Parsing for a date begins with the first nonblank character (unless the picture string itself contains leading blanks, in which case CEECBLDY skips exactly that many positions before parsing begins). After parsing a valid date, as determined by the format of the date specified in picture_string, CEECBLDY ignores all remaining characters. Valid dates range between and include 01 January 1601 to 31 December 9999. See Table 1 for a list of valid picture character terms that can be specified in input_char_date.

picture_string (input)

A halfword length-prefixed character string (VSTRING), indicating the format of the date specified in input_char_date. Each character in the picture_string corresponds to a character in input_char_date. For example, if you specify MMDDYY as the picture_string, CEECBLDY reads an input_char_date of 060288 as 02 June 1988. If delimiters such as the slash (/) appear in the picture string, leading zeros can be omitted. For example, the following calls to CEECBLDY would each assign the same value, 148155 (02 June 1988), to COBINTDATE:

MOVE '6/2/88' TO DATEVAL.
MOVE 'MM/DD/YY' TO PICSTR.
CALL CEECBLDY USING DATEVAL, PICSTR, COBINTDATE, fc);

MOVE '06/02/88' TO DATEVAL.
MOVE 'MM/DD/YY' TO PICSTR.
CALL CEECBLDY USING DATEVAL, PICSTR, COBINTDATE, fc);

MOVE '060288' TO DATEVAL.
MOVE 'MMDDYY' TO PICSTR.
CALL CEECBLDY USING DATEVAL, PICSTR, COBINTDATE, fc);

MOVE '88154' TO DATEVAL.
MOVE 'YYDDD' TO PICSTR.
CALL CEECBLDY USING DATEVAL, PICSTR, COBINTDATE, fc);

Whenever characters such as colons or slashes are included in the picture_string (such as HH:MI:SS YY/MM/DD), they count as placeholders but are otherwise ignored. See Table 1 for a list of valid picture character terms and Table 2 for examples of valid picture strings.

If picture_string includes a Japanese Era symbol <JJJJ>, the YY position in input_char_date is replaced by the year number within the Japanese Era. For example, the year 1988 equals the Japanese year 63 in the Showa era. See Table 2 for an additional example. See also Table 3 for a list of Japanese Eras supported by CEEDATE.

If picture_string includes era symbol <CCCC> or <CCCCCCCC>, the YY position in input_char_date is replaced by the year number within the era. See Table 2 for an additional example.

output_Integer_date (output)

A 32-bit binary integer representing the COBOL Integer date, the number of days since 31 December 1600. For example, 16 May 1988 is day number 141485. If input_char_date does not contain a valid date, output_Integer_date is set to 0 and CEECBLDY terminates with a non-CEE000 symbolic feedback code. Date calculations are performed easily on the output_Integer_date, because output_Integer_date is an integer. Leap year and end-of-year anomalies do not affect the calculations.

fc (output)

A 12-byte feedback code, optional in some languages, that indicates the result of this service. If you choose to omit this parameter, refer to Invoking callable services for the appropriate syntax to indicate that the feedback code was omitted.

The following symbolic conditions can arise from this service:

Code	Severity	Message number	Message text
CEE000	0	—	The service completed successfully.
CEE2EB	3	2507	Insufficient data was passed to CEEDAYS or CEESECS. The Lilian value was not calculated.
CEE2EC	3	2508	The date value passed to CEEDAYS or CEESECS was invalid.
CEE2ED	3	2509	The era passed to CEEDAYS or CEESECS was not recognized.
CEE2EH	3	2513	The input date passed in a CEEISEC, CEEDAYS, or CEESECS call was not within the supported range.
CEE2EL	3	2517	The month value in a CEEISEC call was not recognized.
CEE2EM	3	2518	An invalid picture string was specified in a call to a date/time service.
CEE2EO	3	2520	CEEDAYS detected non-numeric data in a numeric field, or the date string did not match the picture string.
CEE2EP	3	2521	The (<JJJJ>) or (<CCCC>) year-within-era value passed to CEEDAYS or CEESECS was zero.