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.

packet<br />

INFOR$–Internal Format Table Interface Routines<br />

Address of the 30-word packet required by the common bank version of INFOR$<br />

routine. This parameter is ignored unless parameter t is set to 'A' or 'CB'. If the<br />

common bank version of the SINF$ routine is being called and this parameter is<br />

omitted, then the routine assumes the address has already been loaded into register<br />

A2 by the calling program.<br />

Returns<br />

There is a special case where an element name is preceded by a period and entered<br />

without a filename.<br />

@processor .element<br />

This is normally interpreted to mean that the file name for the present subfield is either<br />

TPF$ (if it is the first subfield) or it is the same file name as in the previous subfield.<br />

When SINF$ is used to retrieve the element name and this condition exists, SINF$<br />

makes a normal find-return to the calling program with the element name in the register<br />

pair A0,A1 and sets the FCI field in the subfield control word to an octal 75. (Octal 75 is<br />

the Fieldata code for a period.) Register A2 contains the address of the subfield control<br />

word and the following test can be used to detect this condition.<br />

TNZ,S4 0,A2<br />

The instruction immediately after the TNZ will be skipped if the element name was given<br />

on the processor call line with a leading period but no file name.<br />

Another special case is when there is no qualifier in a field but an asterisk precedes the<br />

file name.<br />

@processor *file.<br />

In this case, if SINF$ is used to retrieve the qualifier, it makes a normal find-return to the<br />

calling program with blanks in the register pair A0,A1. When the processor call line<br />

specifies a file name with no qualifier or leading asterisk<br />

@processor file.<br />

SINF$ takes the no-find-return if asked to retrieve the qualifier.<br />

When a find-return occurs, the registers contain:<br />

A0,A1 the contents of the specified subfield in Fieldata (left-justified, space-filled).<br />

A2 (H2) location of subfield control word (see Appendix G).<br />

A3 number of characters.<br />

When a no-find-return occurs, A2 points to the word that stopped the search. If this<br />

word is zero, the end of the INFOR table has been reached.<br />

7833 1733–004 12–7

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

Saved successfully!

Ooh no, something went wrong!