$#@
$*( create small load files
$*)
$=old= DSN.REPA.DA540769.APER21.P00*.**
call csiOpen csi, $old
do ix=1 while csiNext(csi, cs2)
call adrTso "delete '"m.cs2"'"
end
$#out 20130314 11:16:14
$#out 20130313 17:32:25
$#out 20130313 17:26:02