NBS_DEFINE_STRUCTURE
- Define a new entry for a structured item within another structured item
and return a static identifier to the new item
Description:
Check that we are currently in the middle of defining a noticeboard.
Check that the environment static ID is not NIL and does not pertain to
a primitive item.
Allocate space to describe the new item and fill in fields appropriate to
a structured item such that items at this level are in alphabetical order.
(If an item of this name already exists, create a new item but position it
before the existing item).
Return the address of the item descriptor to the caller for use in
subsequent calls.
Static identifier of the item in the noticeboard which is the
parent of the item to be created.
NAME = CHARACTER*(*) (Given)
Name of the new item.
TYPE = CHARACTER*(*) (Given)
Type of the new item.
SID = INTEGER (Returned)
Static identifier of the new structured item. This should be used in
subsequent calls to the NBS_DEFINE_* routines.
STATUS = INTEGER (Given and returned)
The global status. Possible return values are,
NBS__NOTDEFINING Not currently defining a noticeboard
NBS__NILSID NIL static ID
NBS__PRIMITIVE Prospective parent is primitive
NBS__NOMOREROOM Storage area is full up