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

SAR$ WRITE
18.1.3.5. Example
The following example shows a PLUS program using SAR$ WRITE to write SDF output:
COPY (‘SAR$DEFN’);
COPY (‘SAR$WPKTD’);
COPY (‘SAR$FILEPKTD’);
DECLARE WRITE_PKT: SAR_WRITE_PACKET,
IO_BUF: SAR_IO_BUFFER,
IMAGE_BUF: SAR_IMAGE_BUFFER,
TEXT_BUF: SAR_TEXT_BUFFER,
ATTRIBUTE_TBL: SAR_ATTRIBUTE_TABLE,
FILE_PKT: SAR_FILE_INFO_PACKET;
COPY (‘SAR$WRITE$DG’);
.
.
.
WRITE_PKT.PACKET_VERSION:= SAR_WRITE_PACKET_CURRENT_VERSION;
WRITE_PKT.OUTPUT_FILE_INFO_PACKET_ADDRESS:= LOC(FILE_PKT);
WRITE_PKT.OUTPUT_BUFFER_ADDRESS:= LOC(IO_BUF);
WRITE_PKT.OUTPUT_BUFFER_WORD_LENGTH:= SAR_IO_BUFFER_WORD_LENGTH;
WRITE_PKT.IMAGE_BUFFER_ADDRESS:= LOC(IMAGE_BUF);
WRITE_PKT.IMAGE_BUFFER_WORD_LENGTH:= SAR_IMAGE_BUFFER_WORD_LENGTH;
WRITE_PKT.TEXT_BUFFER_ADDRESS:= LOC(TEXT_BUF);
WRITE_PKT.TEXT_BUFFER_BYTE_LENGTH:= SAR_TEST_BUFFER_BYTE_LENGTH;
WRITE_PKT.ATTRIBUTE_TABLE_ADDRESS:= LOC(ATTRIBUTE_TBL);
WRITE_PKT.ATTRIBUTE_TABLE_WORD_LENGTH:= SAR_ATTRIBUTE_TABLE_WORD_LENGTH;
.
.
.
SAR_OPEN_OUTPUT(LOC(WRITE_PKT));
IF WRITE_PKT.CALL_STATUS NE S ‘Normal’
THEN BEGIN
PROCESS_WRITE_ERROR;
RETURN;
END;
.
.
.
SAR_WRITE(LOC(WRITE_PKT));
IF WRITE_PKT.CALL_STATUS NE S’Normal’
THEN BEGIN
PROCESS_WRITE_ERROR;
RETURN;
END;
.
.
.
SAR_CLOSE_OUPUT(LOC(WRITE_PKT));
IF WRITE_PKT.CALL_STATUS NE S ‘Normal’
THEN BEGIN
PROCESS_WRITE_ERROR;
RETURN;
END;
18–18 7833 1733–004