This procedure obtains the current system date and time and formats them according to the specified convention. Date and time components are translated to the natural language designated in LANG_NAME. The system computes both the date and time from the result of a single TIME(206) function call. Thus, the possibility that the date and time are split across midnight does not exist.

Example

This example formats system date and time according to formatting definitions in the ASERIESNATIVE convention. The form of date and time is specified by CS_LDATENTIMEV (long date and numeric time). Formatted date and time are translated to English and returned in SDT_ARY.

BEGIN

 $ INCLUDE INTL="*SYMBOL/INTL/ALGOL/PROPERTIES." 10000000 - 49999999

  FILE OUT(KIND=DISK,UNITS=CHARACTERS,MYUSE=IO,FILETYPE=0,NEWFILE,
           MAXRECSIZE=80,TITLE="OUT/ALGOL/CNVSYSDATETIME.");
  DEFINE MAX_NAME_LEN        = 17#;    % Maximum length of convention
                                       % name
  EBCDIC ARRAY CNV_NAME[0:MAX_NAME_LEN - 1], SDT_ARY[0:59],
               LANG_NAME[0:MAX_NAME_LEN - 1];
  INTEGER DATE_LEN, RESULT, SDT_LEN;

  REPLACE CNV_NAME BY "ASERIESNATIVE";
  REPLACE LANG_NAME BY "ENGLISH";
  RESULT := CNV_SYSTEMDATETIME(CS_LDATENTIMEV, CNV_NAME, LANG_NAME,
                                  DATE_LEN, SDT_LEN, SDT_ARY);
  WRITE(OUT,<"RESULT  = ",J4>,RESULT);
  IF RESULT EQL CS_DATAOKV THEN
    WRITE(OUT,<"SDT_ARY = ",C60>,SDT_ARY);
  CLOSE(OUT,LOCK);
END.

Output

RESULT  = 1
SDT_ARY = Friday, November 9, 1990 10:31:30

In this call, the parameters have the following meanings:

CS_LDATENTIMEV represents an integer that requests the long date and time format to be returned. It is one of eleven options:

CNV_NAME is an EBCDIC array passed to the procedure. It contains the name of the convention to be used to edit the date and time value. If this parameter contains all blanks or zeros, the procedure uses the hierarchy to determine the convention to be used. Refer to the MultiLingual System Administration, Operations, and Programming Guide for the list of convention names and the explanation of the hierarchy.

LANG_NAME is an EBCDIC array passed to the procedure. It contains the language to be used in formatting the date and time value. If this parameter contains all blanks or zeros, the procedure uses the hierarchy to determine the language to be used. Refer to the MultiLingual System Administration, Operations, and Programming Guide for information about determining the valid language names on the system being used and the explanation of the hierarchy.

DATE_LEN is an integer returned by the procedure. It specifies the length of the formatted date portion of the date and/or time. If this parameter is 0 (zero), there is no formatted date in the output. If both date and time are presented in the output, the formatted date is separated from the formatted time by a blank. The extra character is reflected in the length of the formatted date.

SDT_LEN is an integer returned by the procedure that specifies the total length of the formatted date and/or time.

SDT_ARY is an EBCDIC array returned by the procedure that contains the formatted date and/or time. The recommended size of this array is 96 characters.

RESULT is an integer returned by the procedure. It indicates whether or not an error occurred during the execution of the procedure. An explanation of the error result values and messages can be found at the end of this section. The values returned by this procedure include: