ISODRAFTMODE!messageFile = !this.dirAmTemp.FullName() & |\message.txt|
!pipeCol = !!collectallfor(|BRAN|,|type eq 'BRAN'|,!elem)
do !i from 1 to !pipeCol.Size()
!boltFileName = !this.dirBolts.FullName() & |\BOLTFILE_| & !i.String()
MESS /$!messageFile OVER
BOLTFILE /$!boltFileName OVER
BOLTREPORT $!pipeCol[$!i]
enddo
EXIT