parm nocheck
edit transp401s,trnp401s
a/%incl/d1i<itrimp_hostcodes>
a'd1i<ercs01:ebits_ecodes28>
a'd1i<tripcnsts>
a'd1i<itrimp_tform2s>
ta/host=/r6i/M88K/
e
imp trnp401s,.null
permit trnp401s
transfer trnp401s,epcfta(pds,peathag)trnp401.i,file