extern data_ora();
extern greg_date();
extern strsum();