run(TList) :- float_format(_,f(5,2)), oracle_logon('scott/tiger',R1), (R1==0;R1 ==0,write(' n** logon failed ** n'),abort), oracle_auto_off(_), drop_supplier_table, make_supplier_table, query_supplier_table(-1,TList).

drop_supplier_table :- oracle_exec('drop table supplier',R). (R==0;R ==0,write(' n** table not removed ** n'),abort).

make_supplier_table :- concat( 'SName char(10)','IName char(20)','NumSold number', 'Price number(6,1)' ,',',TARGS), create_table(supplier,TARGS,R1), (R1==0;R1 ==0,write(' n** table create failed ** n'),abort), %% backtrack point: supplier(SN,IN,NS,PR), quotestring(SN,QSN), quotestring(IN,QIN), concat( QSN,QIN,NS,PR ,',',ARGS), insert_table(supplier,ARGS,R2), (R2==0,fail;R2 ==0,write(' n** table fill failed ** n'),abort). make_supplier_table.

query_supplier_table(NTup,TList) :- write(' nquerying: what items cost more than $1000 ?'), concat( 'select IName, Price from supplier ', 'where Price > 1000' , Q_QUERY), oracle_fetch_n(Q_QUERY,NTup,TList).

create_table(TName,ARGS,R) :- concat( 'create table ',TName,' (',ARGS,' )' , Q_CREATE), oracle_exec(Q_CREATE, R).

insert_table(TName,ARGS,R) :- concat( 'insert into ',TName,' values (',ARGS,' )' , Q_INSERT), oracle_exec(Q_INSERT,R).

quotestring(S,QS) :- concat( ' '',S,' '' ,QS).

supplier(dior,nice_watch,100,550.0). supplier(dior,porsche_glasses,80,498.0). supplier(dior,brillant_jewel,4,2990.0). supplier(dior,silver_hat,14,1480.0). !R! UNIT C;SLS .4;EXIT; supplier(tiffany,golden_ring,20,299.0). supplier(tiffany,ruby_jewel,20,1500.0). supplier(tiffany,nice_watch,50,1050.0). supplier(tiffany,silver_diadem,3,12490.0). supplier(cartier,beuys_hat,14,17480.0). supplier(cartier,nice_watch,100,550.0). supplier(cartier,lady_di_collar,1,25450.0).