(SYSLIB) Programming Reference Manual - Public Support Login ...

SFDT$–System Standard Format Date and Time
SFDT_ERROR_CODE
22.2.3. Example
Negative error code if an error occurs:
1 The buffer length is too short for specified format(s).
2 The date-format index is out of range.
3 The time-format index is out of range.
4 Both date and time formats are zero.
5 An outdated version of the SFDT$ packet is being used.
The following example calls the relocatable version of SFDT$ from a PLUS program to
return the date and time as an ASCII character string.
module;
copy ( ‘sfdt$dg’ );
declare line: sfdt_buffer;
declare pkt: sfdt_packet;
sfdt_initialize ( %pkt, 8, 3, s’space’, 0, 7, loc( line ), -1, -1 );
standard_date_time ( %pkt );
open file ‘sysprint’ stream output;
put file ‘sysprint’ edit ( line ) ( skip, a(28), skip );
close file ‘sysprint’ ;
term
This will store the ASCII string for date format 8 and time format 2, which are separated
by a space. These formats start in Q3 of the first word using current date and time in
the buffer DATE_AND_TIME_LINE. They are six words long.
22.3. SFDTBL$–Month and Day Table
SFDTBL$ is a table of three ASCII character abbreviations for the months of the year and
days of the week. SFDTBL$ is used by the standard date/time routines as a separate
element. The ASCII characters can then be changed easily to incorporate user-defined
abbreviations. Each abbreviation uses one word of storage, with a blank as the fourth
character of the word.
22–12 7833 1733–004