*DECK DBSRCHFUN 
USETEXT DBTEXT
FUNC SRCH$FUNC(LAUX$PTR,LAUX$TYPE); 
*CALL DEBUGVARS 
*CALL GETSET
*CALL TABLNAMES 
*CALL AUXT1 
*CALL AUXTVALS
    #COMMON SEARCH CODING FOR BOTH ENTRIES# 
START("SRCH$FUNC")
ITEM LAUX$PTR; #AUX TABLE PTR FOR CHAIN#
ITEM LAUX$TYPE; #TYPE OF ENTRY SEARCHED FOR#
    LOOP("WHILE CHAIN IS SEARCHED") 
        IF GETQUICK(AX$TTYPE,AUX$,LAUX$PTR) EQ LAUX$TYPE
            THENB("MATCH ON AUX TYPE")
                IV$($SET$,"LAUX$PTR",LAUX$PTR)
                IV$($SET$," LAUX$TYP",LAUX$TYPE)
                SRCH$FUNC=LAUX$PTR; 
                QUIT
        ENDIF 
        LAUX$PTR=GETQUICK(AX$TNEXTPTR,AUX$,LAUX$PTR); 
        EXITIF(LAUX$PTR,EQ,0,"END OF CHAIN")
    ENDLOOP("END OF CHAIN") 
        SRCH$FUNC=0;
FINIS("SRCH$FUNC")
TERM
