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

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

SOR–Symbolic Output Routine<br />

SOR inserts the following:<br />

S2 of PARTBL+32 Bit 7, the ASCII bit, is zero if the first symbolic image written by<br />

SOR is Fieldata; otherwise, the ASCII bit is set to 1.<br />

S3 of PARTBL+32 Element type is set to (01-symbolic).<br />

T1 of PARTBL+35 Cycle limit is set to the system standard (CYCLIM$).<br />

T2 of PARTBL+35 Latest cycle number is set to zero.<br />

T3 of PARTBL+35 Current number of cycles is set to 1.<br />

S1 of PARTBL+36 Element subtype is set to 01 (ELT).<br />

H2 of PARTBL+36 Length of text.<br />

PARTBL+37 Location of text.<br />

PARTBL+38 Time and date element created. Initialized to zero by SSOR$<br />

routine. User may insert time and date after SSOR$ call;<br />

otherwise, current time and date will be used.<br />

PARTBL+39 Next write location in program file.<br />

25.1. SSOR$–Start Symbolic Output<br />

SSOR$ initializes the SOR routine by setting up the appropriate PARTBL fields and by<br />

opening the System Data Format Output (SDFO) routine.<br />

Calling Sequence<br />

LMJ X11,SSOR$<br />

error return<br />

normal return<br />

SSOR$ initializes and makes PARTBL entries for a symbolic element. If the calling<br />

program also calls SIR$ and if the same file is used for both SIR$ source output and SOR<br />

symbolic output, then SSOR$ should not be called until SIR$ has created its source<br />

output, which occurs at the end of the first pass through SIR$. This is necessary<br />

because the text location for SOR symbolic output cannot be correctly determined using<br />

ER PFWL$ until SIR$ has created its source output element. The SDFO packet with the<br />

external label SORFCT$ is opened for SOR symbolic output.<br />

The calling program receives control at the error return if ER PFWL$ encounters an error<br />

condition. (See the Exec ER <strong>Programming</strong> <strong>Reference</strong> <strong>Manual</strong>) On an error return,<br />

register A2 is nonzero, and contains the ER PFWL$ status.<br />

25–2 7833 1733–004

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

Saved successfully!

Ooh no, something went wrong!