Guardian Procedure Calls Reference Manual

Example
index := -1; ! initialize table
! index.
DO ! do until search
! is finished
BEGIN ! or an error
! occurs:
status := OPENER_LOST_ ( message:length ! search table
,table^ptr, ! for next
,index, ! affected
,num^of^entries ! entry
,entry^size );
do any necessary work
END
UNTIL status = 0 OR status = 2 OR status = 3 OR status = 7;
924 Guardian Procedure Calls (O)