offer dp1s
edit poneb02s,dp1s
i<itrimp_drsponeas>
ta/%inc/
d1i<itrimp_hostcodes>
a'
d1i<itrimp_tform2s>
m/%constlonglongreal/
ta/host=/r6i/DRS/
e
imp dp1s,.null
transfer dp1s,castle(ercc07,pete)impdir/sources/d386p1s10.i,file