edit poneb01s,vp1s
i<itrimp_vnsponeas>
ta/%inc/
d1i<itrimp_hostcodes>
a'
d1i<itrimp_tform2s>
m/%constlonglongreal/
e
imp vp1s,.null
offer vp1s,eepz06