Support Include

Hi All,

I have created macro to copy rename supports & include it in another zone

but I want to prompt zone name only once & include all newly created supports in that zone.

using attached macro prompting every support. 


Thanks

!typ = !!ce.type
if (!typ neq 'zone') then
!!alert.message('Please select zone that you want to copy supports')
else
endif
var !supp coll all suppo for CE
do !x value !supp
$!x
!a=!!ce.namn
new suppo /copy-of-$!a copy prev rename /$!a /copy-of-$!a
var !b coll all suppo with matchw(name of suppo,'*copy-of-*') for zone
do !y value !b
$!y
!q=!!ce.name
!seq = !!alert.input ('Input sequence','Real')
!e=abs(!seq.real())
!c=!!ce.name.replace('copy-of-','').split('-')
!d=!c[1] + '-' + !c[2]  + '-' + '$!e'
!zone=!!alert.input ('Input zone name','string')
!f=!zone.string()
q var !q
rename all  $!q $!d 
q var !d
$!f
include $!f
enddo
enddo