FUNCTION CJHARIAN(x11) IF !USED("CJHARIAN") ALAMATAK=ALAMATNYA('AAK') IF !EMPTY(ALAMATAK) BUKA(x11,(ALAMATAK+"CJHARIAN"),"CJHARIAN",(ALAMATAK+"CJHARIAN")) ENDIF ENDIF RETURN (USED("CJHARIAN")) ENDFUNC