RETRIEVE PATHS TO ANCESTORS

PRANST

CALL SEQUENCE

CALL PRANST (AFID, STRID, PTHORD, PTHDEP, IPTHSZ, N, ERRIND, OL, APTHSZ, PATHS)

INPUT PARAMETERS

INTEGER AFID

Archive file identifier

INTEGER STRID

Structure identifier

INTEGER PTHORD

Path order (PPOTOP,PPOBOT)

INTEGER PTHDEP

Path depth

INTEGER IPTHSZ

Size of path buffer

INTEGER N

Element of list of paths

OUTPUT PARAMETERS

INTEGER OL

Number of paths available

INTEGER APTHSZ

Actual size of the Nth structure path

INTEGER PATHS(2,IPTHSZ)

Nth structure path

PHIGS STATE

EFFECT

Returns the list of paths in the archive file that reference the structure STRID.

The complete path of ancestors of a structure S is represented by a series of couplets: ((A₁, E₁), (A₂, E₂), ... (S, 0))

where A_n indicates the structure identifier of the ancestor and E_n indicates the element number of an EXECUTE STRUCTURE element of a single path. Each (A_i, E_i) structure element references structure element (A_i+1, E_i+1), from the highest parent structure, down to (S, 0) the lowest structure, defined by STRID. A1 is a structure which is not referenced by any EXECUTE STRUCTURE in the archive.

The path depth PTHDEP and order PTHORD determine the position of each path to be returned.

Specify path depth = 0 to return each entire path.

Specify path depth = 0 and path order = PPOTOP to return a list of all paths (that are not identical) to the specified structure.

Specify path depth = 1 and path order = PPOTOP to return a list of all element references at the head of a path to the specified structure.

Specify path depth = 2 and path order = PPOBOT to return a list of all element references to the specified structure.

ERRORS

7

Ignoring function, function requires state (PHOP, *, *, AROP)

201

Ignoring function, the specified structure does not exist

207

Ignoring function, the specified path depth is less than zero (0)

SEE ALSO

open archive file, retrieve structures identifiers, retrieve structures, retrieve paths to descendant