$*( create small load files
$*)
$=old=A540769.TMPUL.PER21.P*.UNL
$=olSu=.UNL
$=nwSu=.UNL
call csiOpen csi, $old
do ix=1 while csiNext(csi, cs2)
nf = overlay('Q', m.cs2, pos('*', $old)-1)
ff = dsnAlloc('dd(dd1)' m.cs2)
call readDDBegin dd1
call readDD dd1, i., 5000
call readDDEnd dd1
interpret subword(ff, 2)
call writeDsn nf "shr :like('"m.cs2"')", i., ,1
end