18.08.2013 Views

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

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

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

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

18.1.3.3. SAR_WRITE_CONTROL Procedure Call<br />

SAR$ WRITE<br />

The SAR_WRITE_CONTROL procedure performs the following write control functions<br />

for symbiont files:<br />

• Moves to the top of the next page<br />

• Moves to logical line n<br />

• Inserts a heading at the top of all succeeding pages<br />

• Clears the heading from the top of all succeeding pages<br />

• Sets the page length, top margin, bottom margin, and lines per inch<br />

Initial Conditions<br />

The calling program sets the following parameters in the WRITE packet to appropriate<br />

values before calling SAR_WRITE_CONTROL:<br />

• Required parameter (described below)<br />

CONTROL_FUNCTION<br />

• Optional parameters (described below)<br />

LINE_NUMBER_ON_PAGE<br />

PAGE_LENGTH<br />

TOP_MARGIN_LENGTH<br />

BOTTOM_MARGIN_LENGTH<br />

LINES_PER_INCH<br />

Calling Format<br />

PROCEDURE SAR_WRITE_CONTROL<br />

(WRITE_PACKET_ADDRESS: WORD MACHINE POINTER)<br />

IMPORTED ('SAR$WCNTL$PG');<br />

Parameters<br />

CONTROL_FUNCTION<br />

PLUS Attribute: 18-bit status<br />

The WRITE control function to be performed by SAR_WRITE_CONTROL:<br />

S'Top_of_page'<br />

Move to the top of the next page (page eject).<br />

S'Line_spacing'<br />

Space to line n on the page, where n is the value set by the calling program in<br />

the field LINE_NUMBER_ON_PAGE. If the current line location is equal to or<br />

beyond n, space to line n of the next page.<br />

7833 1733–004 18–15

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!