Example:

    S len=$L(name)
    S be4=$EXTRACT(name,1,len-1)_$CHAR($ASCII(name,len)-1)
    I $V("RTNNEXT",be4_$E("ZZZZZZZ",1,8-len))=name D
    . ZLINK name    
    

Given a routine name this uses $VIEW() to determine whether the image contains the routine. If the routine already exists the ZLINK replaces it. Otherwise, auto-ZLINK will bring in a new copy.