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.

SIR$–Symbolic Input/Output Routine<br />

If input is from an element, the SDF type is tested. If S3 of the label control record is<br />

nonzero and not the Fieldata character "S", the message 'SI IS NOT SIR TYPE' is printed.<br />

All cycling information in the control words is then ignored.<br />

Calling Sequence<br />

LMJ X11,OPNSR$<br />

error return<br />

normal return<br />

Returns<br />

OPNSR$ takes the error return if:<br />

• SDFI is unable to open the symbolic input. Register A5 contains the I/O error status<br />

code from SDFI.<br />

• An attempt is made to process an invalid SDF file or element. Register A5 is set to<br />

zero. The associated error message is<br />

INVALID SDF LABEL WORD w<br />

where w is the first two words of the element or file printed in Fieldata.<br />

23.2.2. INISR$–Initialize SIR$ Input and Output<br />

INISR$ initializes SIR$ to allow input and output of symbolic data. INISR$ performs the<br />

first or second pass initialization functions described for OPNSR$ and additionally allows<br />

the calling program to control certain SIR$ actions.<br />

Calling Sequence<br />

L A4,initialization-word<br />

LMJ X11,INISR$<br />

error return<br />

normal return<br />

The initialization-word is provided by the caller to control certain SIR$ actions.<br />

The initialization-word can contain<br />

• A list of specific SDF control record types that SIR$ should not pass to the calling<br />

program.<br />

• A flag to indicate that SIR$ should not create source output if certain conditions are<br />

met.<br />

• A flag to indicate that when an ASCII-like image is passed to the calling program,<br />

SIR$ should include the CCS for the image.<br />

• A flag to indicate that SIR$ should pass images in all 63 legal CCSs to the calling<br />

program and should include the CCS for the image.<br />

7833 1733–004 23–11

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

Saved successfully!

Ooh no, something went wrong!