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.

11.2.3. Example<br />

The following example uses ID$ in a PLUS program:<br />

MODULE;<br />

DECLARE ID_BUFFER: 80 ASCII CHARACTERS LOCATABLE,<br />

DESCRIPTION: 32 ASCII CHARACTERS LOCATABLE,<br />

ERROR: 36 BIT SIGNED INTEGER LOCATABLE;<br />

"<br />

PROCEDURE ID_LINE( ID_OUTPUT_ADDRESS: 36 BIT MACHINE POINTER,<br />

ID_OUTPUT_LENGTH: 36 BIT SIGNED INTEGER,<br />

ID_NAME_ADDRESS: 36 BIT MACHINE POINTER,<br />

ID_NAME_LENGTH: 36 BIT SIGNED INTEGER,<br />

ID_DATE: 36 BIT MACHINE LOGICAL,<br />

ID_OPTIONS: 36 BIT SIGNED INTEGER,<br />

%ID_ERROR_CODE: 36 BIT SIGNED INTEGER)<br />

IMPORTED (‘ID$P’);<br />

.<br />

.<br />

.<br />

DESCRIPTION:= ‘Weekly Status Reports’;<br />

ID_LINE(LOC(ID_BUFFER),20,LOC(DESCRIPTION),21,-1,0’32’,%ERROR);<br />

.<br />

.<br />

ID$–Identification Line Routine<br />

In this example, the calling program calls the relocatable version of ID$. ID$ places the<br />

identification line into "ID_BUFFER", with no creation date and time. The ID$ routine<br />

uses the current date and time for the creation date and time. ID$ places output at the<br />

top of the next page and sends it immediately to the current print file.<br />

7833 1733–004 11–11

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

Saved successfully!

Ooh no, something went wrong!