*DECK DBSRCHAX
USETEXT DBTEXT
USETEXT DNTEXT
FUNC SRCH$AUXT (LDNAT$PTR,(LAUX$TYPE)); 
*CALL DEBUGVARS 
*CALL DNATVALS
*CALL GETSET
*CALL TABLNAMES 
XREF FUNC SRCH$FUNC;
START("SRCH$AUXT")
    #THIS FUNCTION PERFORMS A SEARCH ALONG AN AUXTABLE
    CHAIN LOOKING FOR AN ENTRY THAT HAS ITS TYPE
    EQUAL TO THE SPECIFIED TYPE.
    THIS IS THE INITIAL ENTRY TO THE SEARCH SO
    THE PTR FOR THE FIRST AUXT ENTRY IS TAKEN FROM
    THE SPECIFIED DNAT ENTRY. 
  
    THE ROUTINE RETURNS EITHER THE APPROPRIATE AUXT PTR 
    VALUE OR ZERO IF NO MATCH OCCURS. 
    # 
    ITEM LDNAT$PTR;  #POINTER TO THE SPECIFIED DNAT ENTRY#
    ITEM LAUX$TYPE;  #SPECIFIED AUXT ENTRY TYPE#
                IV$($SET$,"LDNAT$PTR",LDNAT$PTR)
                 IV$($SET$,"LDNAT$PTR",LDNAT$PTR) 
                IV$($SET$," LAUX$TYP",LAUX$TYPE)
    #SET PTR FROM DNAT ENTRY# 
    SRCH$AUXT=SRCH$FUNC(GETQUICK(DN$AUXREF,DNAT$,LDNAT$PTR) 
                      ,LAUX$TYPE);
FINIS("SRCH$AUXT")
TERM
