edit timp06s,trnp206s
i<itrimp_transptwoas>
ta/%inc/
d1i<itrimp_hostcodes>
a'
d1i<tripcnsts>
a'
d1i<itrimp_tform2s>
ta/host=/i/m88k
/d1
e
imp trnp206s,y
permit trnp206s

transfer trnp206s,epcfta(pds,peathag)trnp206.i,file