managers.dal

来自「db.* (pronounced dee-be star) is an adva」· DAL 代码 · 共 15 行

open("sales","o");
def_fld(sale_id, s1);
def_fld(sale_id, s2);
whileok 
{
   input("salemgrs.asc") s1, s2;
   keyfind(sale_id, s2);
   setor(manages);
   keyfind(sale_id, s1);
   connect(manages);
}
close();
exit;