** alter table
CLEAR
CLOSE ALL 
SET TALK OFF
CREATE CURSOR rb (jenis c(10))
INSERT INTO rb (jenis) VALUES ("Laki")    
INSERT INTO rb (jenis) VALUES ("Wanita")
INSERT INTO rb (jenis) VALUES ("Other")

CREATE CURSOR anuku (jenis c(10)) 

SELECT rb
a=''
b=''
c=1
SCAN
	a=EVALUATE('jenis')
	b=b+a
	IF AT(a,b) > 0 OR c<>1
		ALTER TABLE anuku add &a n(20)	
	ENDIF 
	c=c+1
ENDSCAN
SELECT anuku
BROWSE