*DECK DBCSRCHAX 
USETEXT DBTEXT
 FUNC C$SRCH$AUXT (LAUX$PTR,(LAUX$TYPE)); 
*CALL DEBUGVARS 
*CALL AUXT1 
*CALL AUXTVALS
*CALL GETSET
*CALL TABLNAMES 
XREF FUNC SRCH$FUNC;
START("C$SRCH$AUXT")
    #THIS IS THE CONTINUATION SEARCH ENTRY POINT. 
    IT DIFFERS ONLYIN THAT THE VALUE
    OF LAUX$PTR IS SET FROM THE SPECIFIED AUXT
    CHAIN ELEMENT OF THE SPECIFIED AUXT ENTRY.
    # 
    ITEM LAUX$PTR;  #POINTS TO LAST ENTRY CHECKED#
    ITEM LAUX$TYPE; #CONTAINS SPECIFIED ENTRY TYPE# 
                IV$($SET$,"LAUX$PTR",LAUX$PTR)
                IV$($SET$," LAUX$TYP",LAUX$TYPE)
    #SET PTR FROM SPECIFIED AUXT ENTRY# 
    C$SRCH$AUXT=SRCH$FUNC(GETQUICK(AX$TNEXTPTR,AUX$,LAUX$PTR) 
                        ,LAUX$TYPE);
FINIS("C$SRCH$AUXT")
TERM
