--begin create order record
define ord record
sono char(10)
end record
--end create order record
--begin selecting orders
display "Selecting Orders..."
insert into sonos
select distinct(sono)
from sodetl
where soladat > p_yest
and sono[5,5] not in ('E','M','N')
and sono[4,4] not in...