TEXT
Ok...kembali ke EXECSCRIPT( .. )
Bagi rekan2 yg gemar menyimpan "function/proc" di file table bisa coba spt ini :

** jika file table blom ada, create table dg field bernama "ckode" typenya "memo"

    CREATE CURSOR t_coba (ckode memo) 

BROWSE
^Y && control Y
Double click field memo anda
Isi dg fungsi spt ini :

    LPARAMETERS nA, nB 
    RETURN nA + nB 


Kemudian "save" dg ^W && kontrol W
Selanjutnya jalankan spt ini :

    ? execscript(t_coba.ckode,2,3) 

** hasilnya adalah 5
** krn fungsi di atas adalah fungsi penjumlahan 2 bil.
ENDTEXT

** ================================================
** mztolo 2006
CLEAR
SET TALK OFF 

CREATE CURSOR t_coba (ckode memo) 
INSERT INTO t_coba(ckode) VALUES ('LPARAMETERS nA, nB'+CHR(13)+CHR(10)+'RETURN nA + nB')
TEXT 
? execscript(t_coba.ckode,2,3)
? execscript(t_coba.ckode,7,13)
** fungsi di atas adalah fungsi penjumlahan 2 bil.
ENDTEXT

? execscript(t_coba.ckode,2,3)
? execscript(t_coba.ckode,7,13)
USE IN t_coba
** =================================================