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

SFDT$–System Standard Format Date and Time
Initialization Procedure
The calling program may use the following procedure to set these variables in the SFDT$
packet:
PROCEDURE SFDT_INITIALIZE(%PACKET: SFDT_PACKET,
INIT_DATE_FORMAT: 6 BIT INTEGER,
INIT_TIME_FORMAT: 6 BIT INTEGER,
INIT_SEPARATOR: 6 BIT STATUS (S’SPACE’:0,
S’DASH’:1),
INIT_CHAR_OFFSET: 6 BIT INTEGER,
INIT_BUFFER_LENGTH: 6 BIT INTEGER,
INIT_BUFFER_ADDRESS: 36 BIT MACHINE POINTER,
INIT_DATE: 36 BIT MACHINE LOGICAL,
INIT_TIME: 36 BIT MACHINE LOGICAL);
BEGIN
PACKET.SFDT_DATE_FORMAT:= INIT_DATE_FORMAT;
PACKET.SFDT_TIME_FORMAT:= INIT_TIME_FORMAT;
PACKET.SFDT_SEPARATOR:= INIT_SEPARATOR;
PACKET.SFDT_CHAR_OFFSET:= INIT_CHAR_OFFSET;
PACKET.SFDT_BUFFER_LENGTH:= INIT_BUFFER_LENGTH;
PACKET.SFDT_BUFFER_ADDRESS:= INIT_BUFFER_ADDRESS;
PACKET.SFDT_DATE:= INIT_DATE;
PACKET.SFDT_TIME:= INIT_TIME;
PACKET.SFDT_PACKET_VERSION:= 1;
END;
The SFDT_INITIALIZE procedure is defined in a PLUS COPY element (see 22.2.2).
For example, the following call will initialize the data entity 'pkt' for date format 4 and
time format 2, which are separated by a dash.
SFDT_INITIALIZE(%pkt,4,2,S’Dash’,0,5,LOC(buffer),TEST_DATE,-1);
These formats start in Q1 of the first word of the buffer; the buffer length is five words
and is stored in buffer using the date stored at TEST_DATE and the current time.
Returns
SFDT$ returns string length in SFDT_NUMBER_CHAR, the offset of the last character
(0, 1, 2, or 3) in SFDT_CHAR_OFFSET, and the error code, if any, in
SFDT_ERROR_CODE.
22–10 7833 1733–004