CEEDAYS—Convert date to Lilian format
CEEDAYS converts a string representing a date into a Lilian format, which represents a date as the number of days from the beginning of the Gregorian calendar. CEEDAYS converts the specified input_char_date to a number representing the number of days since day one in the Lilian format: Friday, 14 October, 1582.
The inverse of CEEDAYS is CEEDATE, which converts output_Lilian_date from Lilian format to character format.
Do not use CEEDAYS in combination with COBOL intrinsic functions unless the programs are compiled with the INTDATE(LILIAN) compiler option. Use CEECBLDY for COBOL programs that use intrinsic functions and that are compiled with INTDATE(ANSI).
To handle dates earlier than 1601, it is possible to add 4000 to each year, convert to Lilian, calculate, subtract 4000 from the result, and then convert back to character format.
Syntax >>-CEEDAYS--(--input_char_date--,--picture_string--,------------> >--output_Lilian_date--,--fc--)--------------------------------><
- 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 CEEDAYS 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, CEEDAYS ignores all remaining characters. Valid dates range between and include 15 October 1582 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, CEEDAYS reads an input_char_date of 060288 as 02 June 1988.
If delimiters such as a slash (/) appear in the picture string, leading zeros can be omitted. For example, the following calls to CEEDAYS, would each assign the same value, 148155 (02 June 1988), to lildate.
CALL CEEDAYS('6/2/88' , 'MM/DD/YY', lildate, fc); CALL CEEDAYS('06/02/88', 'MM/DD/YY', lildate, fc); CALL CEEDAYS('060288' , 'MMDDYY' , lildate, fc); CALL CEEDAYS('88154' , 'YYDDD' , lildate, fc); CALL CEEDAYS('1988154' , 'YYYYDDD' , lildate, 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_Lilian_date (output)
- A 32-bit binary integer representing the Lilian date, the number
of days since 14 October 1582. For example, 16 May 1988 is day number
148138.
If input_char_date does not contain a valid date, output_Lilian_date is set to 0 and CEEDAYS terminates with a non-CEE000 symbolic feedback code.
Date calculations are performed easily on the output_Lilian_date, because it 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 result 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 not valid. CEE2ED 3 2509 Tbe era passed to CEEDAYS or CEESECS was not recognized. CEE2EH 3 2513 The input date was not within the supported range. CEE2EL 3 2517 The month value was not recognized. CEE2EM 3 2518 An incorrect picture string was specified. 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 year-within-era value passed to CEEDAYS or CEESECS was zero.
Usage notes
- The probable cause for receiving message number 2518 is a picture string that contains a DBCS string that is not valid. You should verify that the data in the picture string is correct.
- z/OS UNIX consideration—In multithread applications, CEEDAYS applies to the enclave.
For more information
- See the INTDATE COBOL compiler installation option in the appropriate version of the COBOL programming guide in the COBOL library at Enterprise COBOL for z/OS library for information about how to get Lilian integer values from COBOL intrinsic functions that are compatible with the Language Environment callable services CEEDAYS and CEEDATE.
- See CEEDATE—Convert Lilian date to character format for more information about the CEEDATE runtime option.
- See CEESCEN—Set the century window for more information about the CEESCEN callable service.
Examples
- Following is an example of CEEDAYS called by C/C++.
/*Module/File Name: EDCDAYS */ #include <leawi.h> #include <stdio.h> #include <string.h> #include <stdlib.h> #include <ceeedcct.h> int main(void) { _FEEDBACK fc; _INT4 lil_date1,lil_date2; _VSTRING date,date_pic; /* use CEEDAYS to get the Lilian format */ strcpy(date.string,"05/14/64"); date.length = strlen(date.string); strcpy(date_pic.string,"MM/DD/YY"); date_pic.length = strlen(date_pic.string); CEEDAYS(&date,&date_pic,&lil_date1,&fc); if ( _FBCHECK ( fc , CEE000 ) != 0 ) { printf("CEEDAYS failed with message number %d\n", fc.tok_msgno); exit(2999); } /* use CEEDAYS to get the Lilian format */ strcpy(date.string,"August 14, 1966"); date.length = strlen(date.string); strcpy(date_pic.string,"Mmmmmmmmmmmz DD, YYYY"); date_pic.length = strlen(date_pic.string); CEEDAYS(&date,&date_pic,&lil_date2,&fc); if ( _FBCHECK ( fc , CEE000 ) != 0 ) { printf("CEEDAYS failed with message number %d\n", fc.tok_msgno); exit(2999); } /* subtract the two Lilian dates to find out */ /* difference in days */ printf("The number of days between" " May 14, 1964 and August 14, 1966" " is: %d\n",lil_date2 - lil_date1); } - Following is an example of CEEDAYS called by COBOL.
CBL LIB,QUOTE *Module/File Name: IGZTDAYS ******************************************* ** ** ** Function: CEEDAYS - convert date to ** ** Lilian format ** ** ** ******************************************* IDENTIFICATION DIVISION. PROGRAM-ID. CBLDAYS. DATA DIVISION. WORKING-STORAGE SECTION. 01 CHRDATE. 02 Vstring-length PIC S9(4) BINARY. 02 Vstring-text. 03 Vstring-char PIC X OCCURS 0 TO 256 TIMES DEPENDING ON Vstring-length of CHRDATE. 01 PICSTR. 02 Vstring-length PIC S9(4) BINARY. 02 Vstring-text. 03 Vstring-char PIC X OCCURS 0 TO 256 TIMES DEPENDING ON Vstring-length of PICSTR. 01 LILIAN PIC S9(9) BINARY. 01 FC. 02 Condition-Token-Value. COPY CEEIGZCT. 03 Case-1-Condition-ID. 04 Severity PIC S9(4) BINARY. 04 Msg-No PIC S9(4) BINARY. 03 Case-2-Condition-ID REDEFINES Case-1-Condition-ID. 04 Class-Code PIC S9(4) BINARY. 04 Cause-Code PIC S9(4) BINARY. 03 Case-Sev-Ctl PIC X. 03 Facility-ID PIC XXX. 02 I-S-Info PIC S9(9) BINARY. PROCEDURE DIVISION. PARA-CBLDAYS. ************************************************* ** Specify input date and length ** ************************************************* MOVE 16 TO Vstring-length of CHRDATE. MOVE "1 January 2000" TO Vstring-text of CHRDATE. ************************************************* ** Specify a picture string that describes ** ** input date, and the picture string's length.** ************************************************* MOVE 25 TO Vstring-length of PICSTR. MOVE "ZD Mmmmmmmmmmmmmmz YYYY" TO Vstring-text of PICSTR. ************************************************* ** Call CEEDAYS to convert input date to a ** ** Lilian date ** ************************************************* CALL "CEEDAYS" USING CHRDATE, PICSTR, LILIAN, FC. ************************************************* ** If CEEDAYS runs successfully, display result** ************************************************* IF CEE000 of FC THEN DISPLAY Vstring-text of CHRDATE " is Lilian day: " LILIAN ELSE DISPLAY "CEEDAYS failed with msg " Msg-No of FC UPON CONSOLE STOP RUN END-IF. GOBACK. - Following is an example of CEEDAYS called by PL/I.
*PROCESS MACRO; /*Module/File Name: IBMDAYS */ /***************************************************/ /** **/ /** Function : CEEDAYS - Convert date to **/ /** Lilian format **/ /** **/ /** This example converts two dates to the Lilian **/ /** format in order to calculate the number of **/ /** days between them. **/ /** **/ /***************************************************/ PLIDAYS: PROC OPTIONS(MAIN); %INCLUDE CEEIBMAW; %INCLUDE CEEIBMCT; DCL CHRDATE CHAR(255) VARYING; DCL CHRD2 CHAR(255) VARYING; DCL PICSTR CHAR(255) VARYING; DCL PICST2 CHAR(255) VARYING; DCL LILIAN REAL FIXED BINARY(31,0); DCL LIL2 REAL FIXED BINARY(31,0); DCL 01 FC, /* Feedback token */ 03 MsgSev REAL FIXED BINARY(15,0), 03 MsgNo REAL FIXED BINARY(15,0), 03 Flags, 05 Case BIT(2), 05 Severity BIT(3), 05 Control BIT(3), 03 FacID CHAR(3), /* Facility ID */ 03 ISI /* Instance-Specific Information */ REAL FIXED BINARY(31,0); /* First date to be converted to Lilian format */ CHRDATE = '5/7/69'; /* Picture string of first input date */ PICSTR = 'ZM/ZD/YY'; /* Call CEEDAYS to convert input date to the */ /* Lilian format */ CALL CEEDAYS ( CHRDATE , PICSTR , LILIAN , FC ); IF FBCHECK( FC, CEE000) THEN DO; PUT SKIP LIST( 'The Lilian date for ' || CHRDATE || ' is ' || LILIAN ); END; ELSE DO; DISPLAY( 'CEEDAYS failed with msg ' || FC.MsgNo ); STOP; END; /* Second date to be converted to Lilian format */ CHRD2 = '1 January 2000'; /* Picture string of second input date */ PICST2 = 'ZD Mmmmmmmmmmmmmmz YYYY'; /* Call CEEDAYS to convert input date to the */ /* Lilian format */ CALL CEEDAYS ( CHRD2 , PICST2 , LIL2 , FC ); IF FBCHECK( FC, CEE000) THEN DO; PUT SKIP LIST( 'The Lilian date for ' || CHRD2 || ' is ' || LIL2 ); END; ELSE DO; DISPLAY( 'CEEDAYS failed with msg ' || FC.MsgNo ); STOP; END; /* Subtract the two Lilian dates to find out */ /* the difference in days between the two */ /* input dates */ PUT SKIP LIST( 'The number of days between ' || CHRDATE || ' and ' || CHRD2 || ' is' || LIL2 - LILIAN || '.'); END PLIDAYS;